3-17　選択しているテキストを取得・置換する

3-17　選択しているテキストを取得・置換するテキストボックス　　　2021.11.16

目次　　前頁　　　次頁　　索引

SelTextプロパティは、テキストボックス内で選択しているテキストを取得・設定します。
このプロパティは、プロパティの性質上、プロパティウィンドウでの設定はできません。

コマンドボタンをクリックすると、テキストボックス1の選択テキストが、テキストボックス2に表示される

Private Sub CommandButton1_Click()
    If TextBox1.SelText = "" Then Exit Sub '選択テキストがない場合は終了
    TextBox2.Text = TextBox1.SelText
End Sub

コマンドボタンをクリックすると、テキストボックス1の選択テキストが、テキストボックス2のテキストに置き換わる

Private Sub CommandButton1_Click()
    If TextBox1.SelText = "" Then Exit Sub '選択テキストがない場合は終了
    TextBox1.SelText = TextBox2.Text
End Sub