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


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

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

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


加好友 发短信
等级:一尾狐 帖子:467 积分:4934 威望:0 精华:0 注册:2011/8/20 18:40:00
[求助]TextBox 如何在光标位置插入字符  发帖心情 Post By:2016/4/14 11:04:00 [只看该作者]

TextBox 如何在光标位置插入字符??
如果TextBox内已经有内容 需要在中间某处,用按钮增加字符如何实现?

例如 TextBox内 内容:“12|3456789” 光标位置在“12”后面。需要单击一个 按钮 在 “12“ 后输入字符“+”
                     

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部