' 看到下面这些Winsock控件的事件了吗? ' 把开头的 Private 改成 Public 就行了。Option ExplicitPrivate Sub Winsock1_Connect()End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)End SubPrivate Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)End Sub
' 把开头的 Private 改成 Public 就行了。Option ExplicitPrivate Sub Winsock1_Connect()End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)End SubPrivate Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)End Sub