以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选中窗体文本框中的文本  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106781)
--  作者：裴保民
--  发布时间：2017/9/15 14:32:00
--  选中窗体文本框中的文本
怎么设置当窗体文本框处于输入焦点时选中文本框中的文本内容呢？
--  作者：有点甜
--  发布时间：2017/9/15 14:38:00
--  

mouseUp事件

 

e.Sender.SelectAll

[此贴子已经被作者于2017/9/15 14:38:26编辑过]
--  作者：裴保民
--  发布时间：2017/9/15 14:59:00
--  
老师是这样的当文本框输入文本内容后单击按钮事件后如返回文本框输入焦点时选中文本框所有文本内容
--  作者：有点甜
--  发布时间：2017/9/15 15:11:00
--  

Leave事件

 

vars("selstart") = e.sender.SelectionStart
vars("sellength") = e.sender.SelectionLength

 

按钮click事件

 

Dim cmb = e.Form.controls("combobox1")
Dim str As String = cmb.text.Substring(vars("selstart"),vars("sellength"))
msgbox(str)