- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何做到选中控件后光标自动后移 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147616)
-- 发布时间：2020/3/20 14:32:00
-- [求助]如何做到选中控件后光标自动后移
e.Form.Controls("TextBox1").Select()
通过这个代码选中控件后效果是这样的：弊端键盘输入就会把默认值替换
此主题相关图片如下：111.png
请问如何设置才能选中后光标自动后移（PJBM-是默认值），想要实现的效果如下：
此主题相关图片如下：222.png
[此贴子已经被作者于2020/3/20 14:32:48编辑过]
-- 发布时间：2020/3/20 15:08:00
--
dim txt = e.Form.Controls("TextBox1")
txt.Select()
txt.SelectionStart = txt.text.length
-- 发布时间：2020/3/20 16:45:00
--
试了，好像不行啊，还是全选了文本，光标没动
-- 发布时间：2020/3/20 17:11:00
--
在试试
dim txt = e.Form.Controls("TextBox1") Dim d = txt.BaseControl d.HideSelection = False txt.Select() txt.SelectionStart = txt.text.length |