安阿各位帥哥美女,我有一2人聊天程式,原始碼如下,如何以不更動程式格式而可以3人(或更多)同時聊ㄋ?

Option Explicit
Private Sub aaa()
Text1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
Command1.Enabled = False
Command3.Enabled = False
Text3.Enabled = False
List1.Enabled = False
End Sub
Private Sub bbb()
Text1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Command1.Enabled = False
Text3.Enabled = False
List1.Enabled = True
Text4.Enabled = False
End Sub
Private Sub Command1_Click()
Text3.Enabled = True
Command1.Enabled = False
Command3.Enabled = True
Winsock1.RemoteHost = Text1.Text
If Option1.Value = False Then
Winsock1.RemotePort = 1001
Winsock1.Bind 1002
Else
Winsock1.RemotePort = 1002
Winsock1.Bind 1001
End If
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
Command3.Enabled = False
Winsock1.SendData Text4.Text + "已離線"
Winsock1.Close
Unload Me
End Sub
Private Sub Form_Load()
Text2.Text = Winsock2.LocalIP
aaa
End Sub
Private Sub Option1_Click()
Command1.Enabled = True
Option2.Visible = False
End Sub
Private Sub Option2_Click()
Command1.Enabled = True
Option1.Visible = False
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If Text3.Text = "" Then Exit Sub
Winsock1.SendData Text4.Text + "說:" + Text3.Text
List1.AddItem "我說" + ":" + Text3.Text
Text3.Text = ""
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
bbb
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "use book"
MsgBox "基本上,填入對方IP後,一方選A,一方選B,再按連線,即可聊天", vbOKOnly, "使用說明"
Case "about"
Form2.Show
End Select
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata
List1.AddItem strdata
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()