On error的问题
程序代码:
For i = 0 To 65536 Debug.Print i On Error GoTo sss Load Listener(i) Listener(i).LocalPort = i Listener(i).Listen DoEvents Text1.Text = Text1.Text & vbCrLf & Now & " 监视" & i & "端口" Text1.SetFocus On Error GoTo 0 sss2: Next i这是程序代码,其中我知道Listener(i).Listen这一句会出错,所以设置了On error goto代码,但是依旧会报错弹出,怎么办?
我加入了winsock控件,listener控件数组就是一个Winsock。
报错信息为实时错误:"10048"