在文本框的光标处插入文字
网上搜索“VB.NET文本框光标处插入文字”找不到啥好用的方法。要么无效，要么要用API。经自己研究，发现这个功能其实很容易实现，于是特地分享一下。PS：这个需求看起来比较奇怪，其实我是在做特殊字符快速输入。比如当用户按下“Alt+X”时，就在光标处插入一个笑脸表情。Private Sub AddTextToCursor(ByRef tb As TextBox, ByVal sz As String)
Dim tbss As Integer = tb.SelectionStart
Dim s1 As String = Microsoft.VisualBasic.Left(tb.Text, tbss)
Dim s2 As String = Microsoft.VisualBasic.Mid(tb.Text, tbss + 1)
tb.Text = s1 & sz & s2
tb.SelectionStart = tbss + 1
End Sub
页:
[1]