Private Sub Command1_Click()Dim index As IntegerDim S As StringDim recUser As StringS = Trim(Text2.Text)Text2.Text = ""recUser = Combo1.TextIf recUser = "所有人" ThenIf S = "SystemOrder:boot" ThenFor i = 0 To MaxChan - 1userState(i) = 3NextEnd IfC
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/18 14:08:30
Private Sub Command1_Click()Dim index As IntegerDim S As StringDim recUser As StringS = Trim(Text2.Text)Text2.Text = ""recUser = Combo1.TextIf recUser = "所有人" ThenIf S = "SystemOrder:boot" ThenFor i = 0 To MaxChan - 1userState(i) = 3NextEnd IfC
Private Sub Command1_Click()
Dim index As Integer
Dim S As String
Dim recUser As String
S = Trim(Text2.Text)
Text2.Text = ""
recUser = Combo1.Text
If recUser = "所有人" Then
If S = "SystemOrder:boot" Then
For i = 0 To MaxChan - 1
userState(i) = 3
Next
End If
Call SendToAll(S)
Else
index = FindSckIndex(recUser)
If S = "SystemOrder:boot" Then userState(index) = 3
Call SendToOne(S,index)
End If
S = "对" & recUser & "说:" & S
Call AddToText1(S)
End Sub
Private Sub Command1_Click()Dim index As IntegerDim S As StringDim recUser As StringS = Trim(Text2.Text)Text2.Text = ""recUser = Combo1.TextIf recUser = "所有人" ThenIf S = "SystemOrder:boot" ThenFor i = 0 To MaxChan - 1userState(i) = 3NextEnd IfC
这个不是完整的代码,里面有好几个函数都没有定义,貌似一个通信程序,有没有完整的……看看就可以知道了