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

aaas220

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

大灰狼1976

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

xjl565135022

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

1. Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. If KeyCode = vbKeyReturn Then
   
3.     KeyCode = 0
   
4.     TextBox2.SetFocus
   
5. End If
   
6. End Sub
   
7. Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
8. If KeyCode = vbKeyReturn Then
   
9.     ListBox1.AddItem (TextBox2.Text)
   
10.     TextBox2.Text = ""
    
11.     KeyCode = 0
    
12.     TextBox2.SetFocus
    
13. End If
    
14. End Sub

复制代码

aaas220

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

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