动态创建控件的问题!!!高手指教！

[yhwebus]

请问怎样动态创建一个CommandBox的控件数组
数组的上限不定
而且每一个按钮可以事先定义Click事件

[yu1928]

http://www.csdn.net/Expert/forum.asp?typenum=8&searchKeys=%B6%AF%CC%AC%C9%FA%B3%C9&roomid=2&author=&tabletype=now

这里有很多，你找找看

[yu1928]

有一个简单的方法如下：（以创建Command1控件为例）

在设计时创建Command1控件，修改index属性为0

在动态的装如5个控件，如下：

Dim i As Long

For i = 1 To 5

Load Command1(i)
With Command1(i)
.Top = Command1(0).Top + i * 500
.Left = Command1(0).Left
.Caption = "第" + CStr(i) + "个装如的COMMAND控件"
.Visible = True
End With
Next i

双击command1(0)的控件，生成过程：

Private Sub Command1_Click(Index As Integer)
MsgBox "你按了第" + CStr(Index) + "个按钮！"
End Sub

这样你装入的控件的行为都可以通过Command1的行为编程来实现

[danielinbiti]

而且每一个按钮可以事先定义Click事件
你指的事先是指什么？指你还未加载就编写了事件？
如果是这样你在事件前加上on error resume next就行了

[网络老男孩了]

up