Vb6 如何在文本框的光标点插入文本？

如何将文本插入到当前光标位置的文本框中？

假设您的文本框名为：txtTitle:

例如：

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

---

假设您的文本框名为：txtTitle:

例如：

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

---

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

TextBox1.SelText = "text to be inserted"

---

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

TextBox1.SelText = "text to be inserted"

---

如果您只想在当前光标位置粘贴文本，请执行以下操作

text1.seltext=这里有一些我正在粘贴的文本 文本1\u单击

---

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

如果您只想在当前光标位置粘贴文本，请执行以下操作

text1.seltext=这里有一些我正在粘贴的文本 文本1\u单击

---

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

由于某些原因，此网站不允许我完成代码输入。使用我的示例将插入文本，但粘贴后将被选中。要取消选择文本并将光标保留在粘贴文本的末尾，必须调用textbox1 click事件，如下所示。text1[下划线]单击

由于某些原因，此网站不允许我完成代码输入。使用我的示例将插入文本，但粘贴后将被选中。要取消选择文本并将光标保留在粘贴文本的末尾，必须调用textbox1 click事件，如下所示。text1[下划线]单击

我不需要确定当前光标的位置。我希望能够以编程方式在当前位置插入文本。我需要.NET的textBox1.Text=textBox1.Text.InsertcurrentPosition的等价物，insertText；我不需要确定当前光标的位置。我希望能够以编程方式在当前位置插入文本。我需要.NET的textBox1.Text=textBox1.Text.InsertcurrentPosition的等价物，insertText；显然，我把你的问题读得很透彻；快速眨眼。但我想我给了你一个关于搜索什么的想法。。。我一直认为你只需要光标的位置…：显然，我把你的问题读得很透彻；快速眨眼。但我想我给了你一个关于搜索什么的想法。。。我一直认为你只需要光标的位置…：