| テキストデータをクリップボードにコピー及び取得・他 (4個) (SNo.071) １．文字列をクリップボードにコピーします ２．現在システムクリップボードにあるテキストデータを取得します ３．クリップボードに保存されているすべての形式のリストを取得 ４．クリップボード内のデータを消去する |
|
| 使用コントロール | Button1 〜 Button4 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．文字列をクリップボードにコピーします
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '文字列をクリップボードにコピーします Dim strText As String strText = "abcあいう123かきく" 'Clipboard.SetDataObject メソッド 'データをシステム クリップボードに貼り付けます System.Windows.Forms.Clipboard.SetDataObject(strText, True) End Sub |
|
| ２．現在システムクリップボードにあるテキストデータを取得します Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click '現在システム クリップボードにあるテキストデータを取得します Dim iData As IDataObject = Clipboard.GetDataObject() Dim myText As String 'クリップボードにテキストデータがあれば If iData.GetDataPresent(DataFormats.Text) Then myText = CType(iData.GetData(DataFormats.Text), String) End If Debug.WriteLine(myText) '結果 abcあいう123かきく End Sub |
|
| ３．クリップボードに保存されているすべての形式のリストを取得 Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'クリップボードに保存されているすべての形式のリストを取得 Dim iData As IDataObject = Clipboard.GetDataObject() Dim formatType As String For Each formatType In iData.GetFormats() 'フォーマットのタイプを表示 Debug.WriteLine(formatType) Next '結果 WindowsForms10PersistentObject ' System.Drawing.Bitmap ' Bitmap End Sub |
|
| ４．クリップボード内のデータを消去する Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click 'クリップボード内のデータを消去する Clipboard.SetDataObject(New DataObject) End Sub |
|
2004/05/11
2005/10/01
VBレスキュー(花ちゃん)
VB.NET2003 VB2005