Необходимо в RichTextBox занести несколько строк и первый символ каждой строки должен иметь свой цвет - VB

Формулировка задачи:

День добрый. Вопрос: Необходимо в RichTextBox занести 3 (например) строки и первый символ каждой строки должен иметь свой цвет. Например, i Информация (i - Bold & Blue) ! Ошибка (! - Bold & Red) ? Вопрос (? - Bold & Green) Код приведен ниже. Что у меня не правильно. Может я этот RichTextBox вообще не так заполняю.

                    Листинг программы
                
 
                        
                          
                    
Public Sub Info(st As String, iFlag As Integer)
Dim cFlag As OLE_COLOR
Dim iSelStart As Integer
 
sFlag$ = " i   ": cFlag = vbBlue
  
If iFlag = -1 Then
   sFlag = " !   ": cFlag = vbRed
ElseIf iFlag = 1 Then
   sFlag = " ?   ": cFlag = vbGreen
End If
  
iSelStart = Len(fMainForm.MessageWindow.Text)
If fMainForm.CoolBar2.Visible = True Then
   fMainForm.MessageWindow.Text = fMainForm.MessageWindow.Text + sFlag + st + vbCrLf
Else
   fMainForm.CoolBar2.Visible = True
   fMainForm.MessageWindow.Text = sFlag + st + vbCrLf
End If
 
fMainForm.MessageWindow.SelStart = iSelStart
fMainForm.MessageWindow.SelLength = 5
fMainForm.MessageWindow.SelColor = cFlag
fMainForm.MessageWindow.SelBold = True
fMainForm.MessageWindow.SelStart = Len(fMainForm.MessageWindow.Text)
fMainForm.MessageWindow.SelLength = 0
End Sub

Решение задачи: «Необходимо в RichTextBox занести несколько строк и первый символ каждой строки должен иметь свой цвет»

textual
                            Листинг программы 
                        
    ss& = Len(MessageWindow.Text)
    MessageWindow.TextRTF = Replace(MessageWindow.TextRTF, "par }", MyString & " par par }")
    MessageWindow.SelStart = MessageWindow.Find(MyString, ss)
    MessageWindow.SelLength = 1
    MessageWindow.SelColor = Customcolor

Оцени полезность:

7 голосов , оценка 3.571 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы