我有一个类模块$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
,BeforeDragOver
,BeforeDropOrPaste
,Change
,DblClick
,{的选项{1}},DropButtonClick
,Error
,KeyDown
,KeyPress
,KeyUp
和MouseDown
,但MouseMove
没有选项}。手动创建事件,如上面的代码所示,什么都不做。 MouseUp
是文本框的有效事件处理程序,为什么不能使用类模块创建它?这有解决方法吗?