类模块中TextBox 没有Exit事件 怎么弄

opiona

练习类模块的使用

TextBox的 Change,DbClick 已成功实现
但是未发现 Exit,Click,Enter事件
在类模块中自己直接写上去 但是不能触发

怎么在类模块设置这些事件, 或者其他办法实现相同的功能
就是 在窗体中的TextBox 能响应 Exit,Click,Enter事件

附件: 类textBox230602.rar (15.12 KB, 下载次数: 16)

2023-6-2 13:53 上传

点击文件名下载附件

tanglf188

有的啊，Click可以用MouseUP事件替代
enter可以用KeyDown替代


Private Sub TxtboxC_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
End Sub

yylucke

期盼已久，类中能实现Exit,Click,Enter事件，省不少代码。期待高人出现。

micch

yylucke

micch 发表于 2023-6-2 15:08

需要在类模块里

micch

哦，类里面实现，既然没有那只能通过变通的方式实现。

exit实际就是焦点切换，进入其他控件。能不能用GetFocus或者setfocus试试？

opiona

micch 发表于 2023-6-2 15:38
哦，类里面实现，既然没有那只能通过变通的方式实现。

exit实际就是焦点切换，进入其他控件。能不能用Ge ...

能不能具体些  Exit还未实现

micch

opiona 发表于 2023-6-2 20:06
能不能具体些  Exit还未实现

窗体控件没有get lost focus事件，没得搞，

用MouseMove事件可以模拟，但是只适合于鼠标移动导致控件失去焦点的情况，如果是enter或者tab等按键导致是exit，无法控制

opiona

最后的学习心得发出来 供大家指正

1. Option Explicit
   
2. Public WithEvents TxtboxC As MSForms.TextBox
   
3. 
   
4. Private Sub TxtboxC_Change()
   
5.     ClsStrConName = TxtboxC.Name  '//记录那个控件获得了焦点
   
6.     mg = "Change 我是: " & TxtboxC.Name
   
7.     MsgBox mg
   
8. End Sub
   
9. 
   
10. Private Sub TxtboxC_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
11.     ClsStrConName = TxtboxC.Name  '//记录那个控件获得了焦点
    
12.     mg = "DblClick 我是: " & TxtboxC.Name
    
13.     MsgBox mg
    
14. End Sub
    
15. 
    
16. Rem Click可以用MouseUP事件替代
    
17. Private Sub TxtboxC_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
18.     If ClsStrConName <> "" Then
    
19.         Rem 使用一个全局变量 记录最后操作的控件名
    
20.         Rem 可以变向实现事件Exit
    
21.         mg = " Exit 刚在是: " & ClsStrConName
    
22.         MsgBox mg
    
23.     End If
    
24.     ClsStrConName = TxtboxC.Name  '//记录那个控件获得了焦点
    
25.     mg = " MouseUP 我是: " & TxtboxC.Name
    
26.     MsgBox mg
    
27. End Sub
    
28. 
    
29. 'Rem enter可以用KeyDown替代
    
30. 'Private Sub TxtboxC_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
31. '    If KeyCode = 13 Then
    
32. '        mg = "KeyDown 我是: " & TxtboxC.Name
    
33. '    MsgBox mg
    
34. '    End If
    
35. 'End Sub
    
36. 
    
37. Rem Exit可以用KeyDown替代  注意: 不支持鼠标移动导致的退出文本框
    
38. Private Sub TxtboxC_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
39.     If KeyCode = 13 Then
    
40.         ClsStrConName = TxtboxC.Name  '//记录那个控件获得了焦点
    
41.         mg = "enter 我是: " & TxtboxC.Name
    
42.         MsgBox mg
    
43.     End If
    
44.     If KeyCode = 9 Then
    
45.         ClsStrConName = TxtboxC.Name  '//记录那个控件获得了焦点
    
46.         mg = "Tab 我是: " & TxtboxC.Name
    
47.         MsgBox mg
    
48.     End If
    
49. End Sub

复制代码

micch

1. '// 类名称：ClsTextBox
   
2. Public WithEvents txtbox As MSForms.TextBox
   
3. '// txtName 是公共变量记录前一个textBox
   
4. Private Sub txtbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
5.     If KeyCode = 13 Or KeyCode = 9 Then
   
6.         txtName = txtbox.Name
   
7.         txtbox.Parent.Caption = "退出的是: " & txtName
   
8.     End If
   
9. End Sub
   
10. 
    
11. Private Sub txtbox_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
12.     If txtName = txtbox.Name Then
    
13.     Else
    
14.         txtbox.Parent.Caption = "当前激活的是: " & txtbox.Name
    
15.         txtName = txtbox.Name
    
16.         txtbox.SetFocus
    
17.     End If
    
18. End Sub
    
19. 
    
20. ''窗体初始化实例化textbox，集合col声明为公共变量
    
21. ''Private Sub UserForm_Initialize()
    
22. ''    Set Col = New Collection
    
23. ''
    
24. ''    Dim cls As ClsTextBox
    
25. ''    For Each ctl In Me.Controls
    
26. ''        If VBA.TypeName(ctl) = "TextBox" Then
    
27. ''            Set cls = New ClsTextBox
    
28. ''            Set cls.txtbox = ctl
    
29. ''            Col.Add cls
    
30. ''        End If
    
31. ''    Next
    
32. ''    Me.Label1.Caption = "..."
    
33. ''End Sub
    

复制代码