Question

vb 加载一个控件之前怎么判断这控件存不存在？

在vb中 如果我要load一个数组控件，可是这个数组控件可能已经存在了，那么如果直接load就会出错。有没有什么方法在load之前判断一下，如果存在就不加载，不存在就加载呢？

Answer 1

以下代码是判断在已有的控件数组Label1()中能否加载Label1(3)。你自己修改一下即可：

Dim mylabel As Label, isload As Boolean
For Each mylabel In Label1
If mylabel.Index = 3 Then
isload = True
Exit For
End If
Next
If isload Then
MsgBox "Label1(3)已存在，不能再Load"
Else
MsgBox "Label1(3)不存在，可以Load"
End If

Answer 2

for each 控件变量 in 控件数组
if 控件变量.index= 控件索引 then msgbox "控件已存在！"
next

Answer 3

先判断一下他的Visible是否是True