VB2008 PaintイベントとResize
VB初心者です VisualStudio2008 VBを使用しております
早速質問なのですが
Form1にPictureBox1があり、プロパティDockがFillとします
このピクチャーボックスの色を赤にして、左上から中心に向かって線を引きたいのですが
Public Class Form1
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim p1XC, p1YC As Integer
p1XC = PictureBox1.Width / 2
p1YC = PictureBox1.Height / 2
e.Graphics.Clear(Color.Red)
e.Graphics.DrawLine(Pens.Black, 0, 0, p1XC, p1YC)
End Sub
--------------------------------------------------------------------------------
Private Sub PictureBox1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Resize
Dim p1XC, p1YC As Integer
p1XC = PictureBox1.Width / 2
p1YC = PictureBox1.Height / 2
Dim g As Graphics = PictureBox1.CreateGraphics
g.Clear(Color.Red)
g.DrawLine(Pens.Black, 0, 0, p1XC, p1YC)
End Sub
End Class
↑は、おかしいですよね？
eに書いてるのかgに書いているのか・・・ そもそも←の考え方がおかしいのか
eの扱いがよくわからないです。
＊同じ色だとわからないですが、色違いにすると大きくした時は増えた部分しか書かれてない
＊ペイントのみにしてしまうとサイズを小さくしたときに中心に線がいかない
＊リサイズのみだと元の部分しか塗られない
こういう場合どうするのがいいのしょうか？
実際はもっと複雑な絵を描きたいので、イベントと描写を分けたいと思っているのですが・・・
どなたかご教示下さい。
