怎樣才能在程式中新增一個控件﹖﹖﹖

Question

dim withevents cmd1 as commandbuttonset cmd1=me.controls.add("VB.CommandButton", "cmd1")
with cmd1
  .left=1000
  .top =1000
  .height=1000
  .width=1000
  .visible=true
  .zorder
end with
private sub cmd1_click()
  msgbox "u pressed cmd1"
end sub您还可以参考
MSDN例子C:\Program Files\Microsoft Visual Studio\MSDN\2001JUL\1033\SAMPLES\VB98\CtlsAdd

Answer 1

BTW:
MSDN的例子可能由于您的MSDN版本不同，安装位置不同而不同

Answer 2

呵呵，阿甘说话越来越像acptvb了。

Answer 3

呵呵，阿甘说话越来越像acptvb了。

Answer 4

gump2000(阿甘) ﹕那如果我要在程式中新增個控件時﹐是不是要定義多個呀﹖

Answer 5

假如新添加的控件您不需要事件，您只需要定义一个变量dim myobj as object假如您需要事件，需要定义多个

Answer 6

你说的是控件数组吧,那你只要定义一次,需要新控件实例时用load命令

Answer 7

你可以用控件数组，先在设计时添加一个控件，index属性设为1，在运行时用load就可以添加任意多个，记得要把后添加的设为可见！

Answer 8

上面对6.0可以 或者 可以用 load command1(1)'不过要有个 command1(0)

Answer 9

把你要动态生成的控件做成控件数组。
把第一个控件的index属性改成0
在你程序中要用的时候：dim c as new controlset c=load control(index)

Answer 10

也可以用控件数组的。你查一下load语句就会看到，下面是我的代码。
首先在form上华一个commandbutton,将Index设置成0，将name设置成cmd
窗体中调用的代码是：
dim i as integer
for i= 1 to 10
  load cmd(i)
  cmd(i).Move 10 + i* 10,10 + i* 10,10 + i* 10,10 + i* 10
  cmd(i).Visible = Truenext