Метод или член данных не найден VB6

Question

Привет У меня есть проблема с VB6

VB 8 освещения

Public Sub AddText(ByVal Msg As String, ByVal Color As Integer) 
Dim s As String 

    s = vbNewLine & Msg 
    frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text) 
    frmMirage.txtChat.SelColor = QBColor(Color) 
    frmMirage.txtChat.SelText = s 
    frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text) - 1 
End Sub 

txtChat от frmMirage.txtChat.SelStart = Len (frmMirage.txtChat.Text) подсветка

Answer 1

проблема может быть с линией ниже

frmMirage.txtChat.SelColor = QBColor(Color) -- VB6 textbox does not have a 'SelColor' prop 

Может быть, это (ниже) может быть полезным

frmMirage.txtChat.BackColor = vbRed 

Answer 2

Вы, вероятно, с помощью стандартного управления TextBox.

Стандартный элемент управления TextBox не имеет свойства SelColor. Если вы хотите использовать другой текст для текста, вы можете изменить стандартный элемент управления TextBox в элемент управления RichTextBox.