在文本框的光标处插入文字

testid

网上搜索“VB.NET文本框光标处插入文字”找不到啥好用的方法。要么无效，要么要用API。经自己研究，发现这个功能其实很容易实现，于是特地分享一下。PS：这个需求看起来比较奇怪，其实我是在做特殊字符快速输入。比如当用户按下“Alt+X”时，就在光标处插入一个笑脸表情。

1. Private Sub AddTextToCursor(ByRef tb As TextBox, ByVal sz As String)
   
2.         Dim tbss As Integer = tb.SelectionStart
   
3.         Dim s1 As String = Microsoft.VisualBasic.Left(tb.Text, tbss)
   
4.         Dim s2 As String = Microsoft.VisualBasic.Mid(tb.Text, tbss + 1)
   
5.         tb.Text = s1 & sz & s2
   
6.         tb.SelectionStart = tbss + 1
   
7. End Sub

复制代码