如何在光标点处将文本插入TextBox？

Question

如何在当前光标位置插入TextBox文本？

Answer 1

通过将TextBox设置为字符串，可以将文本插入SelText的当前光标位置：

TextBox1.SelText = "text to be inserted"

Answer 2

如果您要做的只是在当前光标位置粘贴文本，请执行以下操作。

text1.seltext =“这是我正在粘贴的一些文字” text1_click

上面的代码会将文本粘贴到当前光标位置，然后将光标放在粘贴文本的末尾。

Answer 3

我们假设您的文本框名为：txtTitle：

With txtTitle
   .SelStart = .SelLength 'SelStart will place cursor at the last selected character
End With

示例：

txtTitle.SelStart = 7 'This will place cursor after 7th character

修改 只是为了澄清：如果没有选择任何字符，SelLength将返回0，并且您可以使用SelStart获取当前位置。这是你应该测试的：

Dim iPos As Long
With txtTitle
  If .SelLength = 0 Then
    iPos = .SelStart
  Else
    iPos = .SelStart + .SelLength
  End If
  Debug.Print "The current cursor position in " & .Name & " is: " & iPos & " :-)"
End With

Answer 4

由于某种原因，该网站不允许我完成我的代码输入。使用我的示例将插入文本，但粘贴后将选择文本。要取消选择文本并将光标留在粘贴文本的末尾，您必须像这样调用textbox1 click事件。文本1 [下划线]点击。