２．クリップボードへグラフィックをコピー及び取得・ファイルに保存(13_Clp_02)　(旧、SampleNo.071)

１．PictureBox1の画像データをシステムクリップボードにコピーする ２．現在システムクリップボードにある画像データを取得する ３．クリップボードのグラフィックをファイルに保存 ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：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 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．PictureBox1の画像データをシステムクリップボードにコピーする

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '１．PictureBox1の画像データをシステムクリップボードにコピーする     'PictureBox1に画像が表示されていれば     If Not PictureBox1.Image Is Nothing Then         'データをシステムクリップボードに貼り付けます         Clipboard.SetDataObject(PictureBox1.Image, True)         'コピーできたので一旦PictureBox1の画像を消去         PictureBox1.Image = Nothing     End If End Sub '別途、下記のようにでもして PictureBox に画像を表示しておいて下さい。 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load     '画像ファイルを読み込み表示(ファイルのサイズで)     '表示する画像のサイズに合わせてPictureBoxを表示します     PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize     '画像ファイルを読み込みPictureBoxに表示     PictureBox1.Image = Image.FromFile("..\..\..\data_pic\test.gif") End Sub

２．現在システムクリップボードにある画像データを取得する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '２．現在システムクリップボードにある画像データを取得する     Dim iData As IDataObject = Clipboard.GetDataObject()     'クリップボードにBMPファイルがあれば     If iData.GetDataPresent(DataFormats.Bitmap) Then         'PictureBox1にクリップボードの画像を貼り付け         PictureBox1.Image = CType(iData.GetData(DataFormats.Bitmap), Image)     End If End Sub

３．クリップボードのグラフィックをファイルに保存

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '３．クリップボードのグラフィックをファイルに保存     Dim iData As IDataObject = Clipboard.GetDataObject()     'クリップボードにBMPファイルがあれば     If iData.GetDataPresent(DataFormats.Bitmap) Then         Dim img As System.Drawing.Image = DirectCast(iData.GetData(DataFormats.Bitmap, True), System.Drawing.Image)         'Bmp 形式で保存         img.Save("Test009.bmp", System.Drawing.Imaging.ImageFormat.Bmp)         'Jpeg 形式で保存         img.Save("Test009.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)         'Wmf(メタファイル)形式で保存         img.Save("Test009.wmf", System.Drawing.Imaging.ImageFormat.Wmf)         'Gif 形式で保存         img.Save("Test009.gif", System.Drawing.Imaging.ImageFormat.Gif)     End If End Sub

４．

５．

６．

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

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