文本框输入内容并回车后，选中该文本框内容，不要跳转到其他地方。

imdouba

希望实现的目标，在一个文本框中输入内容并回车后，焦点不要跳转到其他控件，然后选中这个文本框的内容。


在制作的过程中，遇到了敲回车焦点跳转的问题。这个问题困扰很久，尝试了tabindex属性、setfocus功能都没有实现。

思路：由于工作用的vba已经涉及较多控件和代码，因此对调试产生很大困扰，为了找到问题的根源，决定从最简单的情况开始，逐步增加变量，在出现问题的第一时间分析原因。
第一步，构建只含一个文本框的窗体，测试selstart和sellength，不需要setfocus属性就可以实现点回车选中框中文本；
第二步，增加变量，即增加一个文本框，至此问题再次出现，且setfocus到自身无效，这说明问题出在excel本身的机制上，且这个机制的优先级较高；
第三步，搜索原因，关于这一点分别向Gemini和Copilot求助，Gemini提出用KeyPass、Change和GotFocus事件解决（经测试无效），Copilot提出在excel选项中关闭“按 Enter 键后移动所选内容” 功能（经测试无效）。
第四步，猜想敲回车时是否触发类似tab的跳转，尝试关闭其他控件的tabstop属性来避免跳转，成功。
总结，这种防止跳转的方法很傻瓜式，虽然实现了锁定焦点并自动选取文本的目标，但影响了正常的跳转需求。不知道有没有更好的办法解决。经进一步测试，setfocus依然有效，在另一个框内使用该功能成功。

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     ' 检测回车键是否被敲击
   
3.     If KeyCode = vbKeyReturn Then
   
4.         ' 选中文本框1中的内容
   
5.         TextBox1.SelStart = 0
   
6.         TextBox1.SelLength = Len(TextBox1.Text)
   
7.     End If
   
8. End Sub
   
9. 
   
10. Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
11.     ' 检测回车键是否被敲击
    
12.     If KeyCode = vbKeyReturn Then
    
13.         ' 设置焦点到文本框1并选中框中的内容
    
14.         TextBox1.SetFocus
    
15.         TextBox1.SelStart = 0
    
16.         TextBox1.SelLength = Len(TextBox1.Text)
    
17.     End If
    
18. End Sub

复制代码

问题又来了，当我满以为找到了解决方案，而把工作文件中的其他控件设置tabstop=false时，发现需要的那个文本框TxtPostNb依旧无法获取焦点并选中内容。我们的生产环境下，需要在这个文本框内用扫码枪扫入邮件面单号，无论单号正确与否，扫码后必须返回该文本框并且选中文本内容（以便录入下一个数据），如果实现不了就进行不下去了。
因此求助大佬，请大佬帮忙看看该怎么办。期待得到您的帮助，非常感谢。
[url=]退运邮件核销系统开发.zip[/url]

prome3

在 TextBox 的 Exit 事件中用 Cancel = True

zpy2

扫码后必须返回该文本框并且选中文本内容（以便录入下一个数据）

为啥要返回选中？

zpy2

zpy2 发表于 2024-3-30 14:44
扫码后必须返回该文本框并且选中文本内容（以便录入下一个数据）

为啥要返回选中？

一个文本框中输入内容并回车

是不是扫码枪多加了一个回车？

imdouba

zpy2 发表于 2024-3-30 14:44
扫码后必须返回该文本框并且选中文本内容（以便录入下一个数据）

为啥要返回选中？

单号输入框只有一个，下一个数据就需要把它前面的数据覆盖掉，因此，需要前一个数据是选中状态

imdouba

zpy2 发表于 2024-3-30 14:45
一个文本框中输入内容并回车

是不是扫码枪多加了一个回车？

是这样的，我们日常使用过程当中用扫码枪在扫描的时候在excel里边每输入一个数据就会逐条的往下走，因此我判断他是一个输入单号的过程加回车。退一步讲，如果手输的话，也是希望输完单号后能重新选中输入的内容，方便新的内容直接覆盖。

prome3

扫码枪的设计一般都这样的，模拟用户点击键盘，最后发送回车或者制表符。条形码扫完后，如果要让文本框保留焦点，可以这么做：


关键点在于拦截 Exit 事件，并且给出是否退出当前文本框的条件。
（截图中的子过程仅作示例，你知道这个意思就行了，可以根据自己实际情况修改）

imdouba

prome3 发表于 2024-3-30 18:55
扫码枪的设计一般都这样的，模拟用户点击键盘，最后发送回车或者制表符。条形码扫完后，如果要让文本框保留 ...

谢谢大佬，学习了，明天试试看，辛苦你了。

zpy2

imdouba 发表于 2024-3-30 17:04
单号输入框只有一个，下一个数据就需要把它前面的数据覆盖掉，因此，需要前一个数据是选中状态

覆盖？直接清空就行了吧。

imdouba

zpy2 发表于 2024-3-31 06:55
覆盖？直接清空就行了吧。

直接清空了也可以的，只是如果是出错等情况，选中状态方便再看一眼错在哪里。