在Userform上单击事件处理程序

时间:2018-03-21 15:23:20

标签: excel vba excel-vba excel-addins

我希望在ListBox对象外部注册单击时隐藏Excel用户窗体中的ListBox对象。所以我想我在UserForm上使用了Click或MouseUp事件,但两者似乎都不起作用。有什么方法可以实现这个功能吗?

到目前为止我尝试过:

Sub TestUserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)    
     If ListBoxSearch.Visible = True Then    
        ListBoxSearch.Visible = False    
     End If    
End Sub

Sub TestUserForm_Click()    
     If ListBoxSearch.Visible = True Then    
        ListBoxSearch.Visible = False    
     End If    
End Sub

这两件事都没有发生。

1 个答案:

答案 0 :(得分:4)

应该是这样的:

Sub UserForm_Click()    
     If ListBoxSearch.Visible = True Then    
        ListBoxSearch.Visible = False    
     End If    
End Sub

您不使用表单的实际名称来访问其事件。如果您在设计模式中双击表单,它将为您创建适当的事件。