在VB里,我只知道某个控件的名字,请问怎么样能取得该对象?

来源：百度知道 编辑：UC知道 时间：2024/09/28 08:13:47
比如,以下程序:
Set btnobj = Form1.Controls.Add("VB.CommandButton", "cmdObj1")
With Form1!cmdObj1
.Left = 100
.Visible = True
.Width = 2000
.Caption = "paCap"
End With
窗体Form1里什么控件都没有,我想动态地生成,如上面是一个动态生成一个名为"cmdObj1",请问我怎么用这语句才能生成多个控件呢?(如:cmdObj1,cmdObj2,cmdObj3,cmdObj4 ...............)
请高手帮帮忙呀?小弟菜鸟一个,就这么多分可给了,多谢各位!

循环
for i=0 to 100
Set btnobj = Form1.Controls.Add("VB.CommandButton", "cmdObj" & i)
next i

这样吧,我给你说个地方有个代码,你一看应该可以明白的了!
他就是直接把那段代码复制到txt文档中,然后修改为vb的frm文件,在vb中就可以直接运行了!!
算了,直接给你复制过来了!
'--------------------------------------------------------------------------------
'把以下内容保存为 扩展名为frm文件,
'比如保存为 frmMain.frm,
'然后用VB6打开,再编译运行.
'--------------------------------------------------------------------------------

VERSION 5.00
Begin VB.Form frmMain
Caption = "Test Array"
ClientHeight = 4470
ClientLeft = 60
ClientTop = 345
ClientWidth = 6750
ScaleHeight = 4470
ScaleWidth = 6750
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdShow
Caption = "Show(&S)"
Enabled = 0 'False
Height