事前準備
・フォームにPictureBoxを貼り付ける
・フォームのサイズを(300 , 300)に設定する
・PictureBoxのDockプロパティをFillに設定する
Public Class Form1
Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseClick
Dim g As Graphics = Graphics.FromHwnd(PictureBox1.Handle)
Dim linePen As Pen = New Pen(Color.Green, 3)
g.DrawLine(linePen, 20, 50, 70, 120)
g.Dispose()
linePen.Dispose()
End Sub
End Class
これで、起動後PictureBoxをクリックすることで、線分が描画されます。
しかし、上にウィンドウが重なったりすると、線分が消えてしまいます。
そのために、再描画を行う必要があります。
（再描画はこちらを参照。）
システム開発のためのVB.NETプログラミング関係一覧に戻る