منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6

اذهب الى الأسفل

بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6 Empty بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6

مُساهمة من طرف VB.NET السبت يوليو 13, 2013 9:23 am

كاتب الموضوع : BADRMEDIA مع بعض التعديل



أداة RichTextBox الشهيرة كلنا تعاملنا معها ونعرف أنها تمتاز عن أداة TextBox بأنها تمكنا من التعامل مع النصوص المنسقة


لنري كيف نتعامل معها

بداية قم بوضع أداة RichTextBox على الفورم من صندوق الأدوات ثم ضع زر أمر
Button

1_
فتح الملفات النصية :

لو أحببنا أن نفتح ملف نصي بامتداد TXT من مسار محدد يكون الأمر كما فى الكود السابق  حيث نحدد مسار الملف ونحدد نوع الملف ...كما فى الكود التالى :


الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

RichTextBox1.LoadFile("C:\BADRMEDIA.txt", RichTextBoxStreamType.PlainText)

End Sub

 2_ SaveFile  نحفظ نص فى ملف محدد ....كما نري فى الكود نحدد المسار الذى نحفظ فيه ونحدد نوع الملف

الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

RichTextBox1.SaveFile("C:\vb4arab.txt", RichTextBoxStreamType.PlainText)

End Sub

لابد أن يكون نوع الملف متوافق مع الملف فمثلا عندما نقوم بتحميل ملف RTF وهو الامتداد الشهير لابد أن نحدد نوع الملف RichText


الكود:
RichTextBox1.LoadFile("C:\vb4arab.rtf", RichTextBoxStreamType.RichText)



وكذلك الحفظ


الكود:
RichTextBox1.SaveFile("C:\vb4arab.rtf", RichTextBoxStreamType.RichText)

 3_ معرفة عدد السطور ...وذلك باستخدام الكود التالى :


الكود:
MessageBox.Show(RichTextBox1.Lines.Length.ToString())

4_ تنسيق لون حروف معينة و الخطوط


ذلك أمر سهل كل ما فى الأمر أن تحدد حروف وتكتب فى حدث زر مثلاً أن يقوم بتلوينها باللون الأحمر


الكود:
RichTextBox1.SelectionColor = Color.Red


كما نري حروف او كلمات تكون بخط مختلف مثلما يحدث فى برامج تنسيق النصوص سنقوم بتعريف متغير من نوع FontStyle باسم style ونحدد له بعض الخصائص مثل أن الخط Bold ثم نسند للنص المحدد عن طريق الخاصية SelectionFont خط جديد بالاستايل الجديد.....كما يلى :


الكود:
Dim style As FontStyle
style = FontStyle.Bold
RichTextBox1.SelectionFont = New Font("Impact", 16, style)


5
_ البحث عن نص :


الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' نقوم بتعريق متغير نصي ونسند له قيمة نص نبحث عنه
        Dim SearchStr As String = "ABC"


        ' نقوم بتعريق متغير رقمي وسيحمل قيمة مكان النص الذى نحصل عليه من البحث
        Dim FindPost As Integer


        ' قمنا بعملية البحث عن طريق الأمر Find
        ' اعطينا موضع النتيجة للبحث للمتغير


        FindPost = RichTextBox1.Find(SearchStr)




        If FindPost > -1 Then


            ' قمنا بعمل تحديد للنص من بدايته حتى طوله الحرفي
            RichTextBox1.Select(FindPost, SearchStr.Length)


            RichTextBox1.Focus()


        End If


    End Sub


 
6_ لنفرض أنك حددت نص وتريد عند مغادرة الأداة أن يظل النص محدد كل ما عليك أم تسند للخاصية HideSelection القيمة False

الكود:
RichTextBox1.HideSelection = False

لنعرف مثلاً من أى نقطة بدأ التحديد للنص مثلاً نظهر ذلك فى رسالة

الكود:
MessageBox.Show(RichTextBox1.SelectionStart.ToString())
VB.NET
VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6 Empty رد: بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6

مُساهمة من طرف م/موسي الإثنين أكتوبر 29, 2018 8:27 am

جزاكم الله خيرا 
م/موسي
م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى