以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  老师我想操作文本框输入完了还回到这个文本  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151599)

--  作者:whtb999
--  发布时间:2020/6/29 9:24:00
--  老师我想操作文本框输入完了还回到这个文本
就是希望光标能在当前操作的文本框里闪烁,我这样写没有起作用
    e.Form.Controls("TextBox1").text=""
    e.Form.Controls("TextBox1").Select()
[此贴子已经被作者于2020/6/29 9:24:40编辑过]

--  作者:有点蓝
--  发布时间:2020/6/29 9:26:00
--  
窗口afterload事件

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d = txt.BaseControl
d.HideSelection = False

--  作者:whtb999
--  发布时间:2020/6/29 9:32:00
--  
老师我是想一直连续操作这个文本控件,主要是用来扫描条码,录入完了,光标还停留在这个框里,我把您上面的代码放到里面没起作用
--  作者:linyunu1
--  发布时间:2020/6/29 9:56:00
--  
控件KeyDown
If e.KeyCode = Keys.Enter Then
    业务代码

    e.Cancel = 
True
End
 
If


--  作者:whtb999
--  发布时间:2020/6/29 10:20:00
--  
谢谢,要的就是这个效果