关于窗体控件跳转问题的求助

aaas220 · 发表于 2024-10-17 11:20

当前需要设计一个基于扫码输入的用户互动窗体，因扫码输入后会自动以回车结尾，所以想通过代码来简化操作，具体需求如下：
1、textbox1中的内容输入完毕后点击回车（即扫码枪扫完条码后），光标跳转至textbox2，并激活textbox2的输入框
2、textbox2中的内容输入完毕后点击回车（即扫码枪扫完条码后），将其中的内容加入到listbox1中，再清空textbox2的内容，并将光标继续保留在textbox2中，并维持激活状态（即需要实现连续在textbox2中输入不同信息）
求助各位大佬们，这两个功能要如何来实现，试过setfocus，selstar都不好使
非常感谢

大灰狼1976 · 发表于 2024-10-17 11:25

textbox2使用exit事件或者beforeupdata事件，数据处理语句后面使用cancel=true防止焦点离开

xjl565135022 · 发表于 2024-10-17 16:26

这样吗？触发事件没用对！

Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
KeyCode = 0
TextBox2.SetFocus
End If
End Sub
Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
ListBox1.AddItem (TextBox2.Text)
TextBox2.Text = ""
KeyCode = 0
TextBox2.SetFocus
End If
End Sub

复制代码

aaas220 · 发表于 2024-10-18 11:45

xjl565135022 发表于 2024-10-17 16:26
这样吗？触发事件没用对！

谢谢大佬，应该是触发时间选择的问题

		自动登录	找回密码
密码			免费注册

[求助] 关于窗体控件跳转问题的求助