３．My.Computer.Clipboard オブジェクトを使ってのクリップボードの操作(13_Clp_03)

１．テキストをクリップボードに書き込み ２．テキストを特定の形式でクリップボードに書き込む ３．クリップボードにあるテキストデータを取得 ４．クリップボードにあるテキストを形式を指定して取得 ５．クリップボードにイメージを格納(書き込み)及び取得 ６．

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

１．テキストをクリップボードに書き込み

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '１．テキストをクリップボードに書き込み     My.Computer.Clipboard.SetText("abcあいう123かきく") End Sub

２．テキストを特定の形式でクリップボードに書き込むには

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '２．テキストを特定の形式でクリップボードに書き込む '    Dim wt As New WaitTime.Class1     My.Computer.Clipboard.SetText("Text,あいう,123,かきく", System.Windows.Forms.TextDataFormat.Text)     'Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.Text))     'wt.WaitTime(200)     My.Computer.Clipboard.SetText("CommaSeparatedValue,あいう,123,かきく", System.Windows.Forms.TextDataFormat.CommaSeparatedValue)     'Dim CBTexts() As String = My.Computer.Clipboard.GetText(TextDataFormat.CommaSeparatedValue).Split(","c)     'Console.WriteLine(CBTexts(0))     'Console.WriteLine(CBTexts(1))     'wt.WaitTime(200)     My.Computer.Clipboard.SetText("Html,あいう,123,かきく", System.Windows.Forms.TextDataFormat.Html)     'Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.Html))     'wt.WaitTime(200)     My.Computer.Clipboard.SetText("Rtf,あいう,123,かきく", System.Windows.Forms.TextDataFormat.Rtf)     'Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.Rtf))     'wt.WaitTime(200)     My.Computer.Clipboard.SetText("UnicodeText,あいう,123,かきく", System.Windows.Forms.TextDataFormat.UnicodeText)     'Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.UnicodeText))     'wt.WaitTime(200) End Sub

３．クリップボードにあるテキストデータを取得

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '３．クリップボードにあるテキストデータを取得     Console.WriteLine(My.Computer.Clipboard.GetText()) End Sub

４．クリップボードにあるテキストを形式を指定して取得

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '４．クリップボードにあるテキストを形式を指定して取得     Dim CBTexts() As String = My.Computer.Clipboard.GetText(TextDataFormat.CommaSeparatedValue).Split(","c)     Console.WriteLine(CBTexts(0))     Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.Text))     Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.Html))     Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.Rtf))     Console.WriteLine(My.Computer.Clipboard.GetText(TextDataFormat.UnicodeText)) 'Button2 と　対で実行して下さい。(他はコメントで、でないと最後のものだけしか出力されません。) End Sub

５．クリップボードにイメージを格納(書き込み)及び取得

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click '５．クリップボードにイメージを格納(書き込み)及び取得     PictureBox1.Image = Image.FromFile("..\..\..\data_pic\test.gif")     'クリップボードにイメージを格納(書き込み)     My.Computer.Clipboard.SetImage(PictureBox1.Image)     'Dim wt As New WaitTime.Class1     'wt.WaitTime(1000)     If My.Computer.Clipboard.ContainsImage() Then         'クリップボードからイメージを取得         PictureBox2.Image = My.Computer.Clipboard.GetImage()     End If End Sub

６．

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

Visual Basic でクリップボードを消去する　Visual Basic でクリップボードから読み込む　クリップボードに格納されているファイルの種類を Visual Basic で判断する Visual Basic でクリップボードに書き込む　Visual Basic でクリップボードからイメージを取得する　Visual Basic でオーディオストリームをクリップボードに保存する http://msdn.microsoft.com/ja-jp/library/e2z694z2(v=vs.90).aspx