| クリップボードへグラフィックをコピー及び取得・ファイルに保存 (3個) (SNo.071) １．PictureBox1の画像データをシステムクリップボードにコピーする ２．現在システムクリップボードにある画像データを取得します ３．クリップボードのグラフィックをファイルに保存 |
|
| 使用コントロール | Button1 〜 Button3 PictureBox1 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) PictureBox1 に画像を表示しておいて下さい。 |
| １．PictureBox1の画像データをシステムクリップボードにコピーする Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.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 |
|
| ２．現在システムクリップボードにある画像データを取得します Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.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(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click 'クリップボードのグラフィックをファイルに保存 Dim iData As IDataObject = Clipboard.GetDataObject() 'クリップボードにBMPファイルがあれば If iData.GetDataPresent(DataFormats.Bitmap) Then Dim img As System.Drawing.Image = iData.GetData(DataFormats.Bitmap, True) 'Bmp 形式で保存 img.Save("c:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Jpeg 形式で保存 img.Save("c:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg) 'Wmf(メタファイル)形式で保存 img.Save("c:\Test.wmf", System.Drawing.Imaging.ImageFormat.Wmf) 'Gif 形式で保存 img.Save("c:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif) End If End Sub |
|
2004/05/13
2005/10/01
VBレスキュー(花ちゃん)
VB.NET2003 VB2005