VB2005のピクチャーボックス内の図形の移動
VB2005で、formにPictureBox一つと、Button三つをおいて、Button1で、PictureBoxに丸を書いて、Button2とButton3で、PictureBox内で、丸を右左に移動させようと考えています。で丸を書くことと、同じプロシジャー内では、移動させることはできました。が、別のプロシジャーから移動させるってことは出来るのでしょうか?VB2005をやり始めたばかりなのでてんでわかりません。どなたか詳しい方いらっしゃいましたら教えてください。よろしくお願いします。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics = PictureBox1.CreateGraphics()
g.Clear(PictureBox1.BackColor)
Dim w As Integer = PictureBox1.ClientSize.Width / 3
Dim h As Integer = PictureBox1.ClientSize.Height / 3
g.ResetTransform()
g.DrawEllipse(Pens.Black, 0, 0, w, h)
g.TranslateTransform(80, 50)
g.DrawEllipse(Pens.Black, 0, 0, w, h)
g.ResetTransform()
g.Dispose()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim g As Graphics = PictureBox1.CreateGraphics()
g.TranslateTransform(80, 50)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
End Class
お礼
できました! ありがとうございました。