السلام عليكماخواني
عندي RichTextBox كيف يتم تلوين الكلام الموجود بين قوسين مثل (بسم الله الرحمن الررحيم) او اي جملة بين القوسين
المطلب كود للتلوين في RichTextBox
اخوكم ابو بدران
السلام عليكم...
كود :
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 الذي هو اللون الأحمر.
نرجو الاستفادة و السلام.