TextBoxの選択範囲の前後に文字を挿入する

このTipsについて

選択範囲の前または、後ろに「テスト」という、文字列を挿入する

必要コントロール

• TextBox1

サンプル

• 選択している文の前に挿入

Dim insertText = "テスト"
Dim insertPos As Integer = TextBox1.SelectionStart
TextBox1.Text = TextBox1.Text.Insert(insertPos, insertText)
TextBox1.SelectionStart = insertPos + insertText.Length
 

• 選択している文の後ろに挿入

Dim insertText = "テスト"
Dim insertPos As Integer = TextBox1.SelectionStart + TextBox1.SelectionLength
TextBox1.Text = TextBox1.Text.Insert(insertPos, insertText)
TextBox1.SelectionStart = insertPos + insertText.Length
 

.