动态创建按钮并添加 OnClick 事件

Question

在 Outlook 2010 中，我有一个名为 UserForm1 的用户窗体。 在这里，我动态创建了一个按钮并显示了表单。 单击按钮时如何添加事件（子btnLoad_OnClick ）？

这是我的代码：

Dim btnLoad As MSForms.CommandButton

Sub btnLoad_OnClick()
    MsgBox ("Button Clicked")
End Sub

Sub SaveAttachment()

    Set btnLoad = UserForm1.Controls.Add("Forms.CommandButton.1", "btnLoad", True)

    With btnLoad
        .Caption = "Click Me"
        .Left = 30
        .Top = 30
        .Height = 30
        .Width = 60
    End With

    With UserForm1
        .Width = 850
        .Show
    End With

End Sub

Answer 1

在您的UserForm1模块中添加

Private Sub btnLoad_Click()
    MsgBox "Button Clicked"
End Sub

并保存。
每当您动态添加按钮 btnLoad 并单击它时，消息就会弹出。