主题：[求助]一种新的检索手段

我在菜单设计了一个功能组，叫“条码枪扫描检索”，里面放一个文本框，实现只要鼠标聚焦到文本框，就可以用扫描枪连续操作，

代码：

Dim txt As String = RibbonTabs("档案检索").Groups("条码枪扫描检索").Items("文本框").Text
CurrentTable.filter = "档号 = '" & txt & "'"
RibbonTabs("档案检索").Groups("条码枪扫描检索").Items("文本框").GetFocus

第三行代码无法获得聚焦，每扫描一次后，必须手工聚焦到文本框，如何省略这步，直接连续操作？

位置：

 

此主题相关图片如下：qq截图20140422092827.jpg

那窗口里的文本框有这个获得焦点事件吗？

意思我懂了，相当于窗口是临时存放数值，那有没有可以直接获取条码枪的值，而不借助文本框，将窗口文本框的值直接用代码获取？感觉条码枪的值好像一定要打开一个记事本或者可以录入的位置才写的进，如果直接获取呢？

嗯，版主的思路很清晰，豁然开朗。谢谢你们的耐心指导！！