Foxtable(狐表)用户栏目专家坐堂 → [求助]TextBox 如何在光标位置插入字符


  共有2495人关注过本帖树形打印复制链接

主题:[求助]TextBox 如何在光标位置插入字符

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/14 11:11:00 [显示全部帖子]

按钮事件

 

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
msgbox(vars("sstart"))
Dim i As Integer = vars("sstart")
txt.text = txt.text.SubString(0,i) & "+" & txt.text.SubString(i)
txt.Select
txt.SelectionStart = i+1
txt.SelectionLength = 0

 

TextBox的Leave事件

 

vars("sstart") = e.sender.SelectionStart


 回到顶部