方法或数据成员未找到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

来自frmMirage.txtChat.SelStart = Len（frmMirage.txtChat.Text）的txtChat突出显示

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控件