كيفية تظليل النص برمجياً

أولا - استخدم RichTextBox عوضا عن TextBox

ثانيا - هذا مثال مبسط لما يمكن فعله

لنفرض أنه لديك على الفورم RichTextBox باسم RichTextBox1 وهو يحتوي على السطرين

This is a test string
arab team 2000

ونريد تعليم كلمة string باللون الأزرق نستخدم كود شبيه بالتالي

		' حفظ موقع المشيرة
		Dim J As Integer = Me.RichTextBox1.SelectionStart
		' البحث عن النص
		Dim i As Integer = Me.RichTextBox1.Find("string")
		' تعليم النص
		Me.RichTextBox1.Select(i, "string".Length)
		' تغيير لون النص
		Me.RichTextBox1.SelectionColor = Color.Blue
		' إعادة المشيرة إلى موقعها السابق
		Me.RichTextBox1.Select(J, 0)

جزاك الله خيراً

ولكن ما الفرق بين RichTextBox و TextBox؟؟؟

TextBox هو صندوق النصوص العادي الذي نستخدمه عادة

RichTextBox هو صندوق نصوص مطور يمكنك من تحديد تنسيقات مختلفة لفقرات النص المختلفة وكذلك حفظ النص بتنسيق RTF أي يمكنك اعتباره محرر نصوص مصغر ضمن برنامجك

شكراً أخي الكريم

والله يعطيك العافية

ولكن هل هناك طريقة يمكن استخدامها لترقيم الأسطر في RichTextBox؟

لا ادري إن فهمت المقصود بالضبط ولكن يمكنك استخدام الطريقة Lines للحصول على مصفوفة من النوع String تحوي الأسطر الموجودة في RichTextBox

مثال

		Dim LinesArray(Me.RichTextBox1.Lines.Length) As String
		LinesArray = Me.RichTextBox1.Lines

المقصود بترقيم الأسطر موضح في المثال المرفق

حيث اني قمت بوضع أداة label بجانب richTextBox بحيث يكون رقم كل سطر بجانبه

ولكن هناك مشكلتان:

1- ألاحظ بأن رقم السطر لا يكون بجانبه تماماً

2- إذا زاد عدد الأسطر عن الموجود لدي فإنني لا أستطيع أن أرى أرقام الأسطر الجديدة

WindowsApplication7.rar

بالطريقة التي عملت بها البرنامج استخدم ListBox لترقيم الأسطر وليس Lable

للأسف ما نفع معي حتى ListBox ويطلع معه ScrollBar وأنا ما ابغيه يطلع بهالشكل

ابغي رقم كل سطر يكون بجانبه

سؤال:

هل هناك طريقة لمعرفة رقم السطر الذي تقف عليه المشيرة؟