如何用语句来创建一个控件？

Question

dim withevents cmd1 as commandbutton
set cmd1=me.controls.add("VB.CommandButton", "cmd1")
with cmd1
  .top=1000
  .height=1000
  .left=1000
  .width=1000
  .visible=true
  .zorder
end with
private sub cmd1_click()
  msgbox "u pressed a cmd1"
end sub

Answer 1

呵呵，也可以用数组啦。
load cmd（i)

Answer 2

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

Answer 3

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