VB.net绘图1-绘图程序的基本逻辑

VB.net绘图：
‘CreateGraphics类-创建画布
‘Pen 类 - 用于绘制线条、勾勒形状轮廓或呈现其他几何表示形式。
‘Brush 类 - 用于填充图形区域，如实心形状、图像或文本。
‘Font 类 - 提供有关在呈现文本时要使用什么形状的说明。
‘Color 结构 - 表示要显示的不同颜色。
1–创建画布：
Dim Graphics1 As Graphics = PictureBox1.CreateGraphics ‘在容器PictureBox1里面 创建画布
2–创建画笔：
Dim Pen1 As New Pen(Color.Red) ’ 创建画笔，并且制定红色
3–运用各类库函数：
例如：Graphics1.DrawLine(Pen1, 40, 40, 41, 41)
4–释放内存（可选）：
Graphics1.Dispose() ‘释放内存
Pen1.Dispose() ‘释放内存
=============================================================================
‘========================================================
‘函数名称：
‘函数参数：
‘函数功能：画一条直线
‘=======================================================

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim B As Boolean '按钮状态标志位
        Dim Graphics1 As Graphics = PictureBox1.CreateGraphics       '在容器PictureBox1里面 创建画布
        Dim Pen1 As New Pen(Color.Red) ' 创建画笔，并且制定红色
        'Graphics1.PageUnit = 6 '设置画布计量单位模式
        B = Not B
        If B = True Then
            Graphics1.DrawLine(Pen1, 40, 40, 51, 51) '画一条直线
            Graphics1.Dispose() '释放内存
            Pen1.Dispose() '释放内存
        Else
            Graphics1.Clear(Color.White) '擦除图像
        End If

    End Sub