VB.NETでPictureBoxへの描画について

Question

VB.NETでPictureBoxへの描画について
PictureBoxに画像を表示し、余白部分を含めて、マウスで描画できる処理を作成しているのですが、
どうも上手くいかない為、皆さんの知恵をお借りしたいと思い質問させて頂きました。

まず、880×560のPictureBoxを用意し、その中に、600×480の画像を埋め込んでいます。
そのPictureBoxの中で、画像以外の部分(余白)にもマウスで線等を書きたいのです。
画像のみに描く場合は上手くいくのですが、余白を含めると上手くいかなくなってしまい、
困っております。

プログラムの違いは以下の箇所のみです。２の場合は上手くいきます。
１．PictureBox全体に描画する(画像も含め)
Dim g As Graphics = PictureBox1.CreateGraphics
２．画像のみに描画する
Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)

ちなみに、マウスではなく、ボタンクリック時に描画した時は、１の場合でも上手くいきます。
お手数ですが、ご回答の程、よろしくお願いします。

vbhanatyan · Accepted Answer

余白を含めると上手くいかなくなってしまい という事は、どのような状態の事なのでしょうか？
その辺の事を詳しく書いて頂かないと答えようがないかと。
(VB.NET だけでは、詳しい環境が解りません、質問される場合は、環境等も含め詳しく書くように
して下さい。)


詳しい状況が解らないので、一度、下記コードを試して見て下さい。

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, _
　　　　　　　　　　　　　ByVal e As System.EventArgs) Handles MyBase.Load
　　With PictureBox1
　　　　.Width = 880
　　　　.Height = 560
　　　　.Image = New Bitmap(.Size.Width, .Size.Height)
　　End With
　　Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
　　　　g.Clear(PictureBox1.BackColor)
　　　　'表示する画像のフルパスを指定して下さい。
　　　　Using bmap As Bitmap = New Bitmap("..\..\..	est.jpg")
　　　　　　g.DrawImage(bmap, 0, 0, bmap.Width, bmap.Height)
　　　　End Using
　　End Using
End Sub

Private Spos As MouseEventArgs
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As  _
　　　　　　　　System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
　　'マウスのドラッグで線を引く
　　If e.Button = System.Windows.Forms.MouseButtons.Left Then
　　　　PictureBox1.Image = PictureBox1.Image
　　　　Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
　　　　　　Using BPen As New Pen(Color.Red, 5)
　　　　　　　　g.DrawLine(BPen, Spos.X, Spos.Y, e.X, e.Y)
　　　　　　End Using
　　　　　　Spos = e
　　　　End Using
　　End If
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As  _
　　　　　　　　　System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
'描画開始位置
　　If e.Button = System.Windows.Forms.MouseButtons.Left Then
　　　　Spos = e
　　End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
　　　　　　　　　　　　　　　ByVal e As System.EventArgs) Handles Button1.Click
'保存処理
　　With PictureBox1
　　　　If Not (.Image Is Nothing) Then
　　　　　　.Image.Save("test.bmp", Imaging.ImageFormat.Bmp)
　　　　End If
　　End With
End Sub

End Class

vbhanatyan · Answer

申し訳ないのですが、何がしたいのか？ どこが解らないのかが、私には判断できません。
答えても、言葉足らずで申し訳ありませんでしたと言う事になるかと。

四角の赤枠を描画したいのか？
四角の赤枠内の画像を取得したいのか(その時赤枠は非表示 or 表示)
初めの質問は、画像以外のピクチャーボックスにマウスのドラッグで線を描画したいとの事
だったので、そのものズバリのサンプルを書いたのですが。

質問される場合は、質問内容に 5W1H を入れるようにして箇条書き等で書くようにしないと
これを見ている人には中々伝わりません。

こう言った掲示板でやり取りする場合は、２～３回のやり取りで解決するように事前に下調べ等
をしてから、ピンポイント質問するようにしないと何から何まで教えて下さいでは、話も進みません。

下記等を参考に本当に何をしたいのか？　何を知りたいのかを再投稿するようにして見て下さい。
http://www.hyuki.com/writing/techask.html

noname#116136 · Answer

マウスイベント時に描いても、PictureBox の再描画(OnDraw())時には描かれませんから、いつ消えても（それこそ描画直後に消える事も）あるわけです。

私がビットマップに描けといったのは、それに対するバッファリングの意味合いがございました。

さらにがんばってみてください！！

noname#116136 · Answer

おそらくPictureBox のデバイスコンテキストに上手くかけたとしても、マウントされたイメージは問答無用で一から描画されるために上書きされてしまうのかと。

私ならPicutreBox いっぱいの空のビットマップを用意し、そこに画像と線を描画します。

VB.NETでPictureBoxへの描画について

余白を含めると上手くいかなくなってしまい という事は、どのような状態の事なのでしょうか？

この回答への補足

申し訳ないのですが、何がしたいのか？ どこが解らないのかが、私には判断できません。

マウスイベント時に描いても、PictureBox の再描画(OnDraw())時には描かれませんから、いつ消えても（それこそ描画直後に消える事も）あるわけです。

おそらくPictureBox のデバイスコンテキストに上手くかけたとしても、マウントされたイメージは問答無用で一から描画されるために上書きされてしまうのかと。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

余白を含めると上手くいかなくなってしまいという事は、どのような状態の事なのでしょうか？

申し訳ないのですが、何がしたいのか？どこが解らないのかが、私には判断できません。