本文介绍了动态创建按钮并添加OnClick事件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
在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事件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!