vb6 - カーソルポイントでTextBoxにテキストを挿入する方法は?

Question

TextBox現在のカーソル位置にテキストを挿入するにはどうすればよいですか?

Answer 1

文字列TextBoxに設定することにより、テキストを現在のカーソル位置に挿入できます。SelText

TextBox1.SelText = "text to be inserted"

Answer 2

何らかの理由で、このサイトでコード入力を完了できません。私の例を使用するとテキストが挿入されますが、貼り付けた後に選択されたテキストになります。テキストの選択を解除し、カーソルを貼り付けたテキストの最後に残すには、このように textbox1 クリック イベントを呼び出す必要があります。text1[アンダースコア]クリック。

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