１８．文字列を切り取り、貼り付け、コピーする方法
＜ 使用用途 ＞
文字列のコピー＆ペーストが出来る。
＜ 説明 ＞
文字列のコピー＆ペースト
| オブジェクト名.SelText | 現在選択されている文字を取得する |
| オブジェクト名.SelLength | 現在選択されている文字数を取得する |
| Cilpboard.SeｔText 文字列 | 文字列をクリップボードに入れる |
| Cilpboard.Gettext | クリップボードに入っている文字列を取得する |
| Clipboard.Clear | クリップボードの内容をクリアする |
< ＳＡＭＰＬＥ ＞
’サンプルではテキストボックスが２つ、コマンドボタンが３つ貼りつけている
’と仮定しています。
Private Sub Form_Load()
Text1.Text = "これはテストです"
End Sub
Private SubCommand1_Click()
'クリップボードに記憶させる(反転されている部分を）
Clipboard.SetText Text1.SelText
End Sub
Private Sub Command2_Click()
'クリップボードに記憶されている文字をテキストに貼り付ける
Text2.Text = Clipboard.GetText
End Sub
Private Sub Command3_Click()
Clipboard.SetText Text1.SelText
'選択されている部分を消してやればよい
Text1.SelText = ""
End Sub