VB2008グラフィック:ボタンのクリックで再描画する直線を引く(Image)

PaintBoxにDrawLineで直線を引く実行例サンプルです

グラフィック関連へ



■実行画面
Button1をクリックすると、PaintBox1に赤線が引かれます。
この状態でウィンドウを最小化しなどしても、再描画され直線は消えません。
直線の描画フォーム

■実行コード

Public Class Form1
'再描画関数
Private Function AutoRepaint(ByVal picBox As PictureBox) As Graphics
If picBox.Image Is Nothing Then
picBox.Image = New Bitmap(picBox.ClientRectangle.Width, picBox.ClientRectangle.Height)
End If

Return Graphics.FromImage(picBox.Image)
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics = AutoRepaint(PictureBox1)

g.DrawLine(Pens.Red, 50, 50, 200, 150)
g.Dispose()
End Sub

End Class


Visual Basic 2008 Express Edition実践入門