VB变量未定义

leziyi 发布于 2018-10-30 19:04， 1642 次点击

Option Explicit

Public SockIndex As Integer

Public Sub FindFreeSocket()

SockIndex = 200

Dim i

'遍历控件

For i = 0 To Socket.UBound--------------------------------------此行出错

  If Socket(i).State = 0 Then SockIndex = i

Next

If SockIndex = 200 Then

  Load Socket(Socket.UBound + 1)

  SockIndex = Socket.UBound

End If

End Sub

2 回复

Joforn2018-10-31 08:42

Socket控件组放了么？

风吹过b2018-10-31 10:16

通用查变量未定义的方法：
中断时，确定后，选择菜单，视图-》本地窗口
然后查找你所对应的变量、对象，来查看它的属性或值。
找找有没有报错的这个变量或对象属性。

代码经测试初步问题没，非常可能就是 2楼说的这个原因。