怎么实现动态加载按钮，并编写响应不同按钮单击的事件代码．

Question

怎么实现动态加载按钮，并编写响应不同按钮单击的事件的详细代码．谢谢了啊

Answer 1

在窗体上先放上一个Command1，设置它的Index属性为0，然后用代码Load Command1(Command1.Count)来加载

Answer 2

Private Sub Command1_Click(index As Integer)
    Load Command1(Command1.Count)
    Command1(Command1.Count - 1).Visible = True
    Command1(Command1.Count - 1).Move Command1(Command1.Count - 2).Left + Command1(Command1.Count - 1).Width + 100, Command1(Command1.Count - 2).Top
    If ((Command1.Count - 1) Mod 4 = 0) And Command1.Count > 4 Then    '每4列为1排
        Command1(Command1.Count - 1).Move Command1(0).Left, Command1(Command1.Count - 1).Top + Command1(Command1.Count - 1).Height + 100
    End If
    MsgBox "你按了第" & index + 1 & "个按钮！"
End Sub

Answer 3

Private Sub Command2_Click()
    Load Command1(Command1.Count)
    Command1(Command1.Count - 1).Visible = True
    Command1(Command1.Count - 1).Move Command1(Command1.Count - 2).Left + Command1(Command1.Count - 1).Width + 100, Command1(Command1.Count - 2).Top
    If ((Command1.Count - 1) Mod 4 = 0) And Command1.Count > 4 Then    '每4列为1排
        Command1(Command1.Count - 1).Move Command1(0).Left, Command1(Command1.Count - 1).Top + Command1(Command1.Count - 1).Height + 100
    End If
End Sub
Private Sub Command1_Click(index As Integer)
    Select Case index
    Case 0
        '/做第1个按钮的事
    Case 1
        '/做第2个按钮的事
    Case 2
        '/做第3个按钮的事
    '......
    
    Case esle
        '/做其他按钮的事
    End Select
End Sub

Answer 4

在VB中动态添加可响应消息的控件
http://www.applevb.com/art/dyn_control.txt