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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

بعض استخدامات الاداة 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
المراقبين
المراقبين

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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