VBA本身的BUG？为什么焦点设置失效了？

水和米

在一个偶尔的情况下，发现VBA本身的一个BUG，SetFocus方法无效！

有劳老师们一起来看一下是什么原因。
在WPS和Office2010下测试都是一样的结果。


焦点测试.7z (17.13 KB, 下载次数: 14)

2024-7-31 15:05 上传

点击文件名下载附件

边缘码农

水和米

边缘码农 发表于 2024-7-31 15:21

从 Exit 改为 Change ，老师，只是改了一下应用场景，它本身存在的问题并没有解决哦

边缘码农

水和米 发表于 2024-7-31 15:29
从 Exit 改为 Change ，老师，只是改了一下应用场景，它本身存在的问题并没有解决哦

测试过了？

水和米

边缘码农 发表于 2024-7-31 15:31
测试过了？

测试了，Change情景下焦点设置是有效的，但问题是Change是Change，Exit是Exit，它们有不同的应用需求

边缘码农

在VBA中，文本框（TextBox）控件的常用事件包括：
Change：当文本框的内容发生变化时触发。
Click：当用户点击文本框时触发。
DblClick：当用户双击文本框时触发。
Enter：当用户将焦点从一个控件移动到文本框时触发。
Exit：当用户将焦点从文本框移动到其他控件时触发。
KeyDown：当用户按下键盘上的键时触发。
KeyPress：当用户按下键盘上的键并释放时触发。
LostFocus：当文本框失去焦点时触发。
MouseDown：当用户用鼠标按钮点击文本框时触发。
MouseMove：当鼠标指针在文本框上移动时触发。
MouseUp：当用户在文本框上释放鼠标按钮时触发。

我测试你原先代码的结果是跳过TextBox3。具体不清楚原因，很少使用窗体和相关控件。等高手解惑。

小凡、、、

假定您选中一个启动 Enter 事件的复选框。 如果随后在同一窗体中选择另一个控件，则会为复选框启动 Exit 事件， (因为焦点将移动到同一窗体) 中的另一个对象，然后窗体上的第二个控件发生 Enter 事件。

这段话能理解不，你输入了回车，事件会跳到textbox3，tx2失焦了，但是回车事件会在第二个控件发成，就是说在tx3发生，然后调转到tx4，tx3没有失焦事件，代码结束再tx4

水和米

小凡、、、 发表于 2024-7-31 15:54
假定您选中一个启动 Enter 事件的复选框。 如果随后在同一窗体中选择另一个控件，则会为复选框启动 Exit 事 ...

感谢指点迷津，但一时还消化不了，只能慢慢体会。
那么老师，如果有tx之间按回车相互跳转的业务需求的话，
应该怎么实现呢，能否费点心上传一个Demo文件呢？

山菊花

'当文本框值为1且按下回车键时跳转
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And TextBox2.Value = "1" Then TextBox1.SetFocus
End Sub