23-02-14, 03:07 AM
أخي الكريم يمكنك وضع هذا الكود داخل زر أمر وتجريبه لكي تتعرف على كيفية ضبط خاصية اللون لأداة رتش تكست
Private Sub Command1_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = &HFF&
RichTextBox1.SelStart = 4
RichTextBox1.SelLength = 7
RichTextBox1.SelColor = &H00FF0000&
End Sub
Private Sub Command1_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = &HFF&
RichTextBox1.SelStart = 4
RichTextBox1.SelLength = 7
RichTextBox1.SelColor = &H00FF0000&
End Sub
