动态创建按钮并添加OnClick事件 [英] Create Button Dynamically and add OnClick Event

问题描述

在Outlook 2010中，我有一个名为UserForm1的用户窗体.在这里，我动态创建一个按钮并显示表单.单击按钮后如何添加事件(子代码 btnLoad_OnClick )?

In Outlook 2010 I have a userform called UserForm1. Here I create a button dynamically and show the form. How can I add an event (the sub btnLoad_OnClick) when the button was clicked?

这是我的代码:

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

推荐答案

在您的 UserForm1 模块中添加

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

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

and save it.
Whenever you dynamically add the button btnLoad and click it the message should pop up.

这篇关于动态创建按钮并添加OnClick事件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！