【发布时间】:2015-01-11 03:19:00
【问题描述】:
您好,我遇到了 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 的 txtChat = Len(frmMirage.txtChat.Text) 高亮显示
【问题讨论】:
-
Len(frmMirage.txtChat.Text)。我怀疑是否有 frmMirage." & frmMirage.txtChat.Text & "")
标签: vb6