+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [تم الحل] كيف يتم تلوين تكست RichTextBox (/showthread.php?tid=6775)
[تم الحل] كيف يتم تلوين تكست RichTextBox - ابو بدران - 30-10-12
السلام عليكماخواني
عندي RichTextBox كيف يتم تلوين الكلام الموجود بين قوسين مثل (بسم الله الرحمن الررحيم) او اي جملة بين القوسين
المطلب كود للتلوين في RichTextBox
اخوكم ابو بدران
[تم الحل] كيف يتم تلوين تكست RichTextBox - ناجي إبراهيم - 31-10-12
السلام عليكم...
كود :
Private Sub Command1_Click()
Dim Idx1 As Long
Dim Idx2 As Long
Dim AStart As Long
Dim TempStart As Long
Dim TempLen As Long
TempStart = RichTextBox1.SelStart
TempLen = RichTextBox1.SelLength
AStart = 0
Do While AStart < Len(RichTextBox1.Text)
Idx1 = RichTextBox1.Find("(", AStart)
If Idx1 = -1 Then
Exit Do
Else
Idx2 = RichTextBox1.Find(")", Idx1 + 1)
If Idx2 = -1 Then
Exit Do
Else
RichTextBox1.SelStart = Idx1 + 1
RichTextBox1.SelLength = Idx2 - Idx1 - 1
RichTextBox1.SelColor = vbRed ' ضع هنا اللون الذي تريده
AStart = Idx2 + 1
End If
End If
Loop
RichTextBox1.SelStart = TempStart
RichTextBox1.SelLength = TempLen
End Sub* في سطر التلوين RichTextBox1.SelColor = vbRed ضع اللون الذي تريده بدل vbRed الذي هو اللون الأحمر.
نرجو الاستفادة و السلام.
[تم الحل] كيف يتم تلوين تكست RichTextBox - ابو بدران - 31-10-12
جزالكم الله خير