- 日時： 2013/02/18 10:09
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[テキストボックス][][] *
* キーワード：TextBox,コピー,貼り付け,切り取り,元に戻す, *
***********************************************************************************
'----------------------------------------------------------------------------------
SampleNo：044
投 稿 日：2013/02/18
投 稿 者：VBレスキュー(花ちゃん)
動作確認：Windows Vista / Windows 7 / VB2010 Pro SP1Rel / Framework 4.0 SP1Rel で
[Option Compare Text][Option Explicit On][Option Infer On][Option Strict On]で確認
'========1=========2=========3=========4=========5=========6=========7=========8===
１．テキストボックスで選択文字列をクリップボードにコピーする TextBox1.Copy
２．テキストボックスの選択文字列をクリップボードの内容と置き換える TextBox1.Paste
３．テキストボックスの選択文字列をクリップボードに移動する TextBox1.Cut
４．テキストボックスで直前に実行された編集操作を元に戻す TextBox1.Undo
５．テキストボックスのアンドゥバッファから直前に実行された操作に関する情報を削除
'----------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'TextBoxBase.Copy メソッド
'１．テキスト ボックスの現在の選択項目をクリップボードにコピーします。
TextBox1.Copy()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
'TextBoxBase.Paste メソッド
'２．テキスト ボックスの現在の選択項目をクリップボードの内容と置き換えます。
TextBox1.Paste()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
'TextBoxBase.Cut メソッド
'３．テキスト ボックスの現在の選択項目をクリップボードに移動します。
TextBox1.Cut()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click
'TextBoxBase.Undo メソッド
'４．テキスト ボックスで直前に実行された編集操作を元に戻します。
TextBox1.Undo()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button5.Click
'TextBoxBase.ClearUndo メソッド
'５．テキスト ボックスのアンドゥバッファから直前に実行された操作に関する情報を削除します。
TextBox1.ClearUndo()
End Sub
|
テキストボックスでコピー・貼り付け・切り取り・元に戻す・他を実装(VB.NET)