vb6 - 如何在光标处将文本插入文本框？

Question

如何TextBox在当前光标位置将文本插入到 a 中？

Answer 1

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

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 单击事件。text1[下划线]点击。