winsock使用connect方法后不能自动调用connect事件
我是在类模块中使用winsock
定义:
Dim WithEvents mySock1 As Winsock
点击按钮函数:
Set mySock1 = New Winsock
If mySock1.State = 0 Then
mySock1.Protocol = sckTCPProtocol
mySock1.RemoteHost = "http://www.xxxx.com"
mySock1.RemotePort = 80
mySock1.Connect
End If
MsgBox "ccc"
connect事件函数:
Private Sub mySock1_Connect()
MsgBox "ok"
strCommand = xxxxx
mySock1.SendData strCommand
End Sub
问题是:点击按钮后,总是弹出ccc,而不是ok
谁知道原因?是因为在类中引用的缘故吗? 先谢了