以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TextBox1记忆功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95262)

--  作者:yangwenghd
--  发布时间:2017/1/14 14:39:00
--  TextBox1记忆功能
如果有两个TextBox 当 光标从TextBox1移到TextBox2或者选择点击其他控件后,点击按钮可以把光标移到TextBox1当时离开的地方吗?
感谢 感谢 

--  作者:有点蓝
--  发布时间:2017/1/14 15:25:00
--  
用全局变量记录光标位置:http://www.foxtable.com/webhelp/scr/0761.htm
--  作者:yangwenghd
--  发布时间:2017/1/14 16:31:00
--  
谢谢 怎么帮助没代码呀?感谢 感谢  
--  作者:有点蓝
--  发布时间:2017/1/14 16:46:00
--  
vars("位置") = e.form.Controls("文本框").SelectionStart



--  作者:yangwenghd
--  发布时间:2017/1/14 17:29:00
--  
谢谢你 是这样的吗?还是没反应呢
vars("SelectedText") = e.form.Controls("TextBox1").SelectionStart


--  作者:有点色
--  发布时间:2017/1/15 12:12:00
--  

Textbox1 leave 事件

 

vars("SelectedText") = e.form.Controls("TextBox1").SelectionStart

 

按钮 Click 事件

 

e.form.Controls("TextBox1").Select
e.form.Controls("TextBox1").SelectionStart = vars("SelectedText")
e.form.Controls("TextBox1").SelectionLength = 0


--  作者:yangwenghd
--  发布时间:2017/1/16 18:59:00
--  
e.form.Controls("TextBox1").SelectionLength = 0
把这段写在窗口的afterload 里面 为什么没反映呢?这个不是加载窗口的时候 光标在 TextBox1 的最前面吗?

--  作者:有点蓝
--  发布时间:2017/1/16 20:34:00
--  
e.form.Controls("TextBox1").SelectionStart=0
e.form.Controls("TextBox1").SelectionLength = 0

--  作者:yangwenghd
--  发布时间:2017/1/17 9:03:00
--  
谢谢 应用窗口后是选中所有内容, 麻烦了 感谢 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170117090217.jpg
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2017/1/17 9:24:00
--  

代码你可以写到Enter事件

 

e.form.Controls("TextBox1").Select
e.form.Controls("TextBox1").SelectionStart = vars("SelectedStart")
e.form.Controls("TextBox1").SelectionLength = 0