类模块中的textbox_enter事件为什么无效？

lqmking

代码功能：用鼠标或Tab键选中自定义窗体中的任何一个Textbox,弹出提示框 ，显示“Enter”

'窗体代码如下：
Dim Collection_text As New Collection
Private Sub UserForm_Initialize()
   Dim Cmd As textEnterEvents
   For i = 1 To 5
       Set Cmd = New textEnterEvents
       Set Cmd.RowTextBox = Me.Controls("Textbox" & i)
       Collection_text.Add Cmd
   Next i
   Set Cmd = Nothing

End Sub

'类模块代码如下
'类名称：textEnterEvents
Option Explicit
Public WithEvents RowTextBox As MSForms.TextBox
Private Sub RowTextBox_enter()
  MsgBox "enter"
End Sub

问题：请教各位前辈，为什么enter事件无效？哪里出了问题？

山菊花

TextBox类事件中没有Enter。

lqmking

山菊花 发表于 2020-6-7 06:45
TextBox类事件中没有Enter。

哦，原来如此，竟然没有这个事件，感谢！真搞不懂微软是怎么想的。