'在Winsock1的Error事件里检测是否有错误发生! Private 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) Msgbox Description End Sub
Private 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)
Msgbox Description
End Sub
winsock问题问我就对了,对于你提到的问题,使用一个timer控件判断连接超时即可。
在发出连接请求时,启用timer,在timer到时时,判断winsock控件的状态是否为connected,否则就报连接失败,超时。
但是我还是觉得 Rick110AAA(海牛猪猪) 的办法好,winsock自己就可以有办法检查出是否连接成功,何必再画蛇添足想别的办法呢。
winsock的error事件 无论何时,只要后台处理中出现错误(例如,连接失败,或者在后台收发数据失败)事件就会出现。
sckconnecting 6 连接中
sckconnected 7 已经连接
sckclosing 8 关闭中
sckerror 9 错误值
If WinSock.State <> 7 Then
MsgBox "与数据库服务器连接失败!", vbCritical, "系统提示"
End If
你们自己有没有实际做过winsock的应用程序呢? 不信试试用此法实用吗?