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并单击它时，消息就会弹出。

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

1 个答案: