以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样实现身份证输入18位了，鼠标就自动回姓名文本框，提高输入速度  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79773)
--  作者：limit_1982
--  发布时间：2016/1/8 16:14:00
--  怎样实现身份证输入18位了，鼠标就自动回姓名文本框，提高输入速度

身份证文本框输入18位了，鼠标就自动回姓名文本框，怎样才能实现

谢谢。。。
--  作者：大红袍
--  发布时间：2016/1/8 16:16:00
--  

textChanged事件

 

Dim Identify As String = e.sender.Text
If ValidPIN(Identify) Then
    e.Form.Controls("TextBox1").Select
End If
--  作者：limit_1982
--  发布时间：2016/1/10 14:33:00
--  

好像这个才行

Dim tx As WinForm.TextBox = e.Sender
If tx.Text.Length = 18 Then
    Sendkeys.Send("{TAB}") \'模拟按Tab键,选择下一个控件
End If
--  作者：大红袍
--  发布时间：2016/1/10 14:34:00
--  
能实现就好
--  作者：everybody
--  发布时间：2016/1/10 15:36:00
--  
能否指定跳到同一行的某列？
--  作者：大红袍
--  发布时间：2016/1/10 15:37:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=79837