１．テキストデータをクリップボードにコピー及び取得・他(13_Clp_01)　(旧、SampleNo.071)

１．文字列をクリップボードにコピーする ２．現在システムクリップボードにあるテキストデータを取得する ３．クリップボードに保存されているすべての形式のリストを取得 ４．クリップボード内のデータを消去する ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　：使用コントロール：Button1 〜 Button4 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．文字列をクリップボードにコピーする

Private Sub Button1_Click(sender As Object, e As 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(sender As Object, e As 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)         Debug.WriteLine(myText)   '結果　abcあいう123かきく     End If End Sub

３．クリップボードに保存されているすべての形式のリストを取得

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '３．クリップボードに保存されているすべての形式のリストを取得     Dim iData As IDataObject = Clipboard.GetDataObject()     Dim formatType As String     For Each formatType In iData.GetFormats()         'フォーマットのタイプを表示         Debug.WriteLine(formatType)     Next     '結果　         'System.String         'UnicodeText         'Text         'Rich Text Format End Sub

４．クリップボード内のデータを消去する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '４．クリップボード内のデータを消去する     Clipboard.SetDataObject(New DataObject) End Sub

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

クリップボードにコピー　クリップボード