打错了,是10048错误。我说怎么没人理我呢。现在问题解决了,但希望看到更好的解决方法。 解决问题的代码如下 again: Mainfrm.Winsock1.Protocol = sckUDPProtocol On Error Resume Next Mainfrm.Winsock1.Bind ClientPort If Err.Number = 10048 Then ClientPort = ClientPort + 1 GoTo again End If 大家多指教。
on error goto 只能捕获一次,老兄看样子只能用On Error Resume Next先顶着了
解决问题的代码如下
again:
Mainfrm.Winsock1.Protocol = sckUDPProtocol
On Error Resume Next
Mainfrm.Winsock1.Bind ClientPort
If Err.Number = 10048 Then
ClientPort = ClientPort + 1
GoTo again
End If
大家多指教。