1,451
社区成员
发帖
与我相关
我的任务
分享
Public ServerIP As String
Public ServerPort As Integer
Private Sub UserControl_Initialize()
'
End Sub
Public Sub ConnectServer()
Winsock1.RemoteHost = ServerIP
Winsock1.RemotePort = ServerPort
Winsock1.Connect
End Sub
Public Property Let ServerIP(ByVal sIP As String)
NestInside1.ServerIP = sIP
End Property
Public Property Let ServerPort(ByVal iPort As Integer)
NestInside1.ServerPort = iPort
End Property
Public Sub Con()
NestInside1.ConnectServer
End Sub