主题：如何通过按钮将字符插入到文本框指定位置中

如何通过按钮将字符插入到文本框指定位置中？

 

问题：

1：如何获得光标离开文本框前在文本中的位置；

2：向文本框指定位置插入或修改字符。

 

要实现类似下面的操作，请问如何设置？

 

此主题相关图片如下：插入和修改字符.gif

解决了。

 

‘在全局变量设置字符型变量“hkt“，”hjm“

 

'文本框Leave事件

Dim s As String = e.Sender.text

If s = Nothing Then

Else

    vars("hkt") = left(s,e.sender.Selectionstart) '前半部分

    vars("hjm") = right(s,len(s)-e.sender.Selectionstart-e.sender.SelectionLength) '后半部分

End If

 

'按钮事件Click

Dim s As String = "来"  '要输入的值

If e.Form.controls("TextBox1").value = Nothing Then

    e.Form.controls("TextBox1").value = s

Else

    e.Form.controls("TextBox1").value = vars("hkt") & s & vars("hjm")

End If

 

 

vars("hkt") = vars("hkt") & s

 

 正解，点击按钮的时候，焦点离开了，需要用到全局变量去记录光标的位置。