ピクチャボックスの描画内容をファイル出力

質問

VB２００５を使用しています。

BufferedGraphicsContextクラスと、BufferedGraphicsクラスを使用して
ダブルバッファでピクチャボックスに絵を書くプログラムを作成しています。

絵は問題なく描けるのですが、それをBMPファイル、もしくはクリップボードに転送したいのですが、どうしたらいいかわかりません。

ご指導お願いします。

参考に描画のコードを載せておきます。

Public Class Form1

Private currentContext As BufferedGraphicsContext
Private myBuffer1 As BufferedGraphics
Private Dpen As Pen

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

'描画
Dpen = New Pen(Color.Black, 5)

myBuffer1.Graphics.Clear(Color.FromArgb(255, 255, 255, 255))

myBuffer1.Graphics.DrawLine(Dpen, 0, 0, 200, 200)

myBuffer1.Render(PictureBox1.CreateGraphics)

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

currentContext = BufferedGraphicsManager.Current
myBuffer1 = currentContext.Allocate(PictureBox1.CreateGraphics, PictureBox1.DisplayRectangle)

End Sub

End Class

回答No.1

noname#221368 · ベストアンサー

VB6 時代にあった PictureBox の Saveメソッドは、BitMapクラスに分離されてます。以下は、PictureBox の描画領域全体を BitMap に吐き出すコードです。

Dim Bmp As New Bitmap(PictureBox.ClientSize.Width, PictureBox.ClientSize.Height)
PictureBox.DrawToBitmap(Bmp, PictureBox.ClientRectangle)
Bmp.Save("Save Path" & "ファイル名", Imaging.ImageFormat.Bmp)
Bmp.Dispose()

お礼

ご回答ありがとうございます。

早速試しつつ、BitMapについて調べてみます。