VB中LOAD可以装载控件,请问用什么方法可以先判断一个控件是否已经存在?如我是在连接中装载的WINSOCK控件数组,要判断WSK(n)是否存在

Question

Private Sub Command1_Click(Index As Integer)
    On Error Resume Next
        Load Command1(1)
        If Err.Number = 360 Then MsgBox "对象已存在", , "错误"
    On Error GoTo 0
End Sub

Answer 1

直接装载用CreateObject(),不过不太容易控制，尤其是没法响应事件，所以建议还是用Load

Answer 2

VB6中有一个新的对象Controls,它的详细做用MSDN中有。

Answer 3

dim objWS as new WINSOCK
load objWS(1)

Answer 4

dim objWS as new WINSOCK
load objWS(1) 行不通
dim objWS as WINSOCK
load objWS(1)错误的参数号
 
dim objWS as WINSOCK
load objWS对象变量或with块变量未设置 

Answer 5

判断一个控件是否存在：
dim Ms as control
for each ms in me
if typeof ms is winsock then
msgbox("winsock控件已存在")
else
load winsock(n) 'n为控件个数
......
end if

Answer 6

dim Ms as control
for each ms in me
if typeof ms is winsock then
msgbox("winsock控件已存在")
else
load winsock(n) 'n为控件个数
......
end if 这个方法不是很好,如果我的FORM上有几千个其他控件,那效率不是太低了,现在看第一贴的好像可行,但不知道还又没有更好的,比如 is exist的判断(我假设,不知道有无此语法)

Answer 7

用Controls集合的Add方法可以直接创建控件数组而不需预先画出一个控件，而且也可以用控件的事件。具体的我不大清楚了，你查查资料吧。

Answer 8

上千个????
那还是直接用api算了,别用控件了..顺便说一下,你可以用这句来判断是否加载
if winsock(n) is nothing then
load winsock(n)
end if

Answer 9

winsock控件数组超过20个机器就慢的受不了了。如果你想写server必须要用第三方控件或者用VC来写。你可以看看powertcp套件

Answer 10

1.gameboy999:
winsock(n) is nothing 不管有没有都返回得是FALSE2.bucher:
winsock控件数组超过20个机器就慢的受不了了?
我写过20个的,但不是用的数组,并不慢,这次打算用数组写,请问老兄的机是什么机,
我打算用在数据库方面,不知道后果如何?

Answer 11

程序代码生成控件： dim OCtrl as Object '添加Command按钮，"Myname"是name 
Set oCtrl = Controls.Add("Vb.CommandButton", "Myname") '设置属性值：Caption 
CallByName oCtrl, "Caption", VbLet, "Test Ok" 
…… 
oCtrl.Visible = True '删除按钮 
Controls.Remove oCtrl