Vb中判断控件是否卸载的问题

[wj_yhl]

用Vb写了个程序，创建了一个winsock控件数组接受多个客户端的连接，在
Private Sub sckServer_Close(Index As Integer)
'释放相应对象的资源
Unload sckServer(Index)

某个客户端通信断开时卸载该控件

然后发送数据时，用sckServer(i) Is Nothing判断控件是否存在，但是似乎这样并没有用啊，仍然会尝试向所有控件发送数据，怎么解决呢？？？？？？？？？
For i = 1 To intMax
If Not (sckServer(i) Is Nothing) Then
DoEvents
sckServer(i).SendData txtSend.Text
End If
Next i

[myhot-河马吃草]

访问一下

on error goto err1

debug.print sckServer(i).name
result=1
exit sub

err1:

result=0

[vbman2003]

看到许多代码用is nothing来判断控件是否卸载，个人认为不对，is nothing可以用于判断一个声明的对象，但对直接添加到窗体上的控件数组不适用，这个数组对象不是代码声明的对象...我一般如下处理：

Function TestControl(Ctl As Variant, idx As Long) As Boolean
    Dim c As Control
    For Each c In Ctl
        If c.Index = idx Then
            TestControl = True
            Exit Function
        End If
    Next
End Function

[vbman2003]

对于楼主的情况，在添加连接加载winsock时，可以同时用一个bool数组来标志对应的winsock的（index）状态，要判断时，只要判断对应的bool(index)状态就行...

[fishmans]

释放对象时用set sckServer(i)=nothing

[wj_yhl]

楼上的方法不行的，编译时会提示方法错误的

[wj_yhl]

楼上的方法不行的，编译时会提示方法错误的

[wj_yhl]

决定还是采用三楼的方法吧

[myhot-河马吃草]

三楼方法高，，不知对menu 是否起作用。。回头试试看。

[神马都能聊]

微软给你提供的tag属性,使用状态就随便填写个值比如true,否则就清空