在类模块中为文本框创建“_Enter”事件处理程序

时间:2016-09-06 19:07:25

标签: excel vba excel-vba

我有一个类模块$PATH,用于为动态填充的用户表单添加事件处理程序。初始化userform时,将根据TCLabel的自定义文档属性动态添加这些标签(和其他控件)。一切都正常,除了我发现我无法使用类模块创建ActiveDocument事件处理程序。以下是该模块的代码:

Textbox_Enter

在课程模块的下拉菜单中,只有Option Explicit Private WithEvents m_oTextBox As TextBox Public Property Set TextBox(ByVal oTextBox As TextBox) Set m_oTextBox = oTextBox End Property Private Sub m_oTextBox_Change() MsgBox "Success: Change" '<--Works End Sub Private Sub m_oTextBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean) MsgBox "Success: DblClick" '<--Works End Sub Private Sub m_oTextBox_Enter() MsgBox "Success: Enter" '<--Doesn't work End Sub BeforeDragOverBeforeDropOrPasteChangeDblClick,{的选项{1}},DropButtonClickErrorKeyDownKeyPressKeyUpMouseDown,但MouseMove没有选项}。手动创建事件,如上面的代码所示,什么都不做。 MouseUp是文本框的有效事件处理程序,为什么不能使用类模块创建它?这有解决方法吗?

0 个答案:

没有答案