منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

ضع أداة RichTextBox على الفورم من صندوق الأدوات

ضع زر أمر Button

كود :

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

لو أحببنا أن نفتح ملف نصي بامتداد TXT من مسار محدد

يكون الأمر كما فى الكود السابق

حيث نحدد مسار الملف ونحدد نوع الملف

يمكن أيضاً أن نحفظ نص فى ملف محدد

الأمر 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)

[FONT=arial][b][COLOR=Blue]
لو أردنا أن نعرف عدد السطور داخل الأداة

مثال نظهر ذلك فى رسالة

كود :

MessageBox.Show(RichTextBox1.Lines.Length.ToString())

[COLOR=Blue]

انظر للصورة تجد حروف مكتوبة باللون الأحمر دون الباقى

ذلك أمر سهل كل ما فى الأمر

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

كود :

RichTextBox1.SelectionColor = Color.Red

[/COLOR][/b][/FONT][/COLOR]

كما نري حروف او كلمات تكون بخط مختلف مثلما يحدث فى برامج تنسيق النصوص

كود :

Dim style As FontStyle

style = FontStyle.Bold

RichTextBox1.SelectionFont = New Font("Impact", 16, style)

سنقوم بتعريف متغير من نوع FontStyle باسم style

ونحدد له بعض الخصائص مثل أن الخط Bold

ثم نسند للنص المحدد عن طريق الخاصية SelectionFont خط جديد بالاستايل الجديد

لنرى كيف نبحث عن نص وعندما نجده نقوم بتظليله

كود :

[/b][/FONT][/COLOR]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[COLOR=#0000FF][FONT=arial][b]

لنفرض أنك حددت نص وتريد عند مغادرة الأداة أن يظل النص محدد

كل ما عليك أم تسند للخاصية HideSelection القيمة False

كود :

RichTextBox1.HideSelection = False

=============================================

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

كود :

MessageBox.Show(RichTextBox1.SelectionStart.ToString())

كما ترى فى الصورة بمجرد أن كتبت عنوان موقع تعاملت معه الأداة على أساس أنه عنوان URL

كل ما فى الأمر أن تستد للخاصية DetectUrls القيمة True

كود :

RichTextBox1.DetectUrls = True

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech