VB2010で、キャプチャしたものを貼り付けるにはどうしたらいいのでし

質問

VB2010で、キャプチャしたものを貼り付けるにはどうしたらいいのでしょうか。
ご存知の方教えてください。よろしくお願いします。
？？？の部分のコードがわかりません。

'キャプチャする
Dim copy_bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
Me.DrawToBitmap(copy_bmp, New Rectangle(0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height))
PictureBox3 = copy_bmp???
copy_bmp.Dispose()

回答No.3

magicalpass · ベストアンサー

問題は以下の個所です。

> Me.DrawToBitmap(copy_bmp, New Rectangle(0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height))

PictureBox1の画像をキャプチャーするのだから
PictureBox1.DrawToBitmap(copy_bmp, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

> copy_bmp.Dispose()
作られたBitmapはそのままPictureBox3にロードされるので廃棄してはいけない。

お礼

回答ありがとうございます！
disposeを抜いたら、正常に動作しました。
助かりました。

回答No.2

magicalpass

> 型 'System.Drawing.Bitmap' の値を 'System.Windows.Forms.PictureBox' に変換できません。

質問文にあるように
PictureBox3 = copy_bmp
とすればそういうエラーが出るとは思いますが、

PictureBox3.Image = copy_bmp
でそういうエラーが出るとは思えないのですが。

お礼

回答ありがとうございます。
以下のコードに
PictureBox3.Image = copy_bmp
を入れると、パラメータが有効ではありませんとエラーがでるのです。

'グラフをキャプチャする
Dim copy_bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
Me.DrawToBitmap(copy_bmp, New Rectangle(0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height))
PictureBox3.Image = copy_bmp
copy_bmp.Dispose()

回答No.1

magicalpass

とくにPictureBoxで描画処理を行わず、Imageを貼り付けてるだけなら

PictureBox3.Image = copy_bmp

で良いのではないでしょうか。

お礼

回答ありがとうございます。
それをするとcopy_bmpに以下のエラーが出ます。
どう修正していいのかわからない状態です。

型 'System.Drawing.Bitmap' の値を 'System.Windows.Forms.PictureBox' に変換できません。