求一个录入表，要求是，窗体录入，有提示…………

simonco

感谢分享，顶一下，下载了好好学习 。

10307951261

非常不错，求制作教程

czw620114

这个很简单，比较好做，可以私聊

pick512

qiuheyou 发表于 2015-5-25 16:55
这个窗体能否在保存提示后，继续把焦点放在第一个文本框

灵光乍现间，我想到既然不能打断子过程，何不打断事件。方法是再做一个UserForm2窗体，当在文本框按回车时，隐藏现有窗体，显示

UserForm2窗体，这时会触发UserForm2的Activate事件， 同时窗体显示的切换也打断了文本框向按钮转移焦点，那么只要在Activate事件中再隐藏UserForm2窗体，显示原窗体，设置焦点到文本框就OK了。这个事件是在KeyDown事件子过程中通过代码人为产生的，是受控的，因此可以将其看作是KeyDown事件代码逻辑的一部分。

1 'UserForm1窗体
2
3 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
4     If KeyCode = 13 Then
5         TextBox1.Value = ""
6         UserForm1.Hide
7         UserForm2.Show
8     End If
9 End Sub


1 'UserForm2窗体
2
3 Private Sub UserForm_Activate()
4     UserForm2.Hide
5     UserForm1.Show
6     UserForm1.TextBox1.SetFocus
7 End Sub
实测效果非常理想，窗体切换的速度肉眼根本察觉不到，感觉就是文本框保持焦点，用条码枪连续输入，不需要键盘和鼠标辅助定位。

网上搜的，我也困惑好久的问题

cqxiefali

高大上的东西

cqxiefali

as42065300 发表于 2014-4-20 22:53
帮你简单做了个看看合适不。

补充内容 (2014-4-29 00:24):

666，大神级别啊！

yumi1937

非常牛，学习了！

116358074

先顶再看，感谢分享

20200613

很好的软件