代码 Load 组件,先决条件是利用控件数组。也就是事先加载 Index = 0 的一个 Button,并编写好 Click 事件代码,必要时预先对 Index 做判断处理。Load 新的控件元素后,如果要调用它的 Click 事件:Load Button1(1) Call Button1_Click(1)Private Sub Button1_Click(Index As Integer) Select Case Index Case 0 '...... Case 1 '...... '...... Case Else '...... End Select End Sub
Call Button1_Click(1)Private Sub Button1_Click(Index As Integer)
Select Case Index
Case 0
'......
Case 1
'......
'......
Case Else
'......
End Select
End Sub