Question

我的Userform上有两个按钮，一个是在userform vba视图对象模式下绘制的，另一个是在子Userform_Initialize（）中添加了以下代码：

Dim Obj As Object
Set Obj = UserForm1.Controls.Add("Forms.CommandButton.1", "commandbuttondone", True)
With Obj
    .Caption = "filled 1n"
    .Left = 550
    .Height = 40
    .Width = 35
    .Top = 5
    MsgBox Obj.name
End With

第一个是单击时响应。但是我以编程方式添加/创建的那个什么都没做。

点击命令按钮commandbuttondone后，我尝试调用以下代码：

1

Private Sub commandbuttondone_Click()
    MsgBox ("test message")
End Sub

2

Private Sub commandbuttondone()
    MsgBox ("test message")
End Sub

3

Sub commandbuttondone_Click()
    MsgBox ("test message")
End Sub

4

Sub commandbuttondone()
    MsgBox ("test message")
End Sub

但没有工作。它们都在＆＃34;表单/模块中，它还包含userform_initialize子句，以及工作的第一个按钮：OKButton_Click()

所以我想知道是否有任何建议为什么它不显示消息框说明＆＃34;测试消息＆＃34;？

vba中的代码生成的命令按钮Userform_initialize（）没有响应

0 个答案: