VB小程序

btnLine3.Click, btnLine4.Click, btnLine5.Click
'把所有按钮的背景色都设为Black
Me.btnLine1.BackColor = Color.White
Me.btnLine2.BackColor = Color.White
Me.btnLine3.BackColor = Color.White
Me.btnLine4.BackColor = Color.White
Me.btnLine5.BackColor = Color.White
'用户选中的按钮背景色为Blue
CType(sender, Button).BackColor = Color.Black
'把画笔宽度设为用户选择按钮的Tag值
Me.btnSetColor.BackColor = dlgColor.Color
End If
End Sub
Private Sub btnLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnLine1.Click, btnLine2.Click,
Private Sub文件ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles文件ToolStripMenuItem.Click
End Sub
Private Sub FrmPaint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If e.Button = Windows.Forms.MouseButtons.Left Then
'如果用户按下的是鼠标左键，则将当前点坐标赋给起始点
pstart.X = e.X
pstart.Y = e.Y
End If
End Sub
Private Sub picPaint_MouseUp(ByVal sender As System.Object, _
End If
End Sub
Private Sub tsPaint_ItemClicked(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles tsPaint.ItemClicked
pend.X - pstart.X, pend.Y - pstart.Y) '根据起点和终点绘制空心矩形
Case mSelect.FillRec '用户在工具栏中选择的是填充矩形
Convert_Point() '转换矩形的起点为其左上点
Dim rec As New Rectangle(pstart.X, pstart.Y, _
mWidth = CType(sender, Button).Tag
End Sub
Private Sub picPaint_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs)Handles picPaint.MouseDown
dlgOpen.Filter = "图标文件|*.ico"
If alogResult.OK Then
mIcon = New Icon(dlgOpen.FileName)
End If
End If
End Sub
Private Sub btnSetColor_Click(ByVal sender As System.Object, _
Private Enum mSelect '选择图形类别枚举
Pencil '铅笔
Line '直线
Ellipse '椭圆
FillEllipse '填充椭圆
StyleEllipse '风格椭圆
Rec '矩形
FillRec '填充矩形
StyleRec '风格矩形
Icon '图标
Eraser '橡皮
End Enum
设置各控件的相关属性，如下表所示
控件类别
属性名
属性值
Form
Text
画图软件
Name
Frmpaint
Menu
msPaint
text
文件（&F）
MenuStrip
Name
msPaint
ToolStripMenuItem
Name
mifile
Text
文件（&F）
ToolStripMenuItem
Name
miNew
g = Me.picPaint.CreateGraphics '获取PictureBox的绘图句柄
mChoice = mSelect.Pencil '默认选择选铅笔作为绘图工具
mWidth = 1 '初始化画笔宽度
End Sub
'确保起始点坐标位于左上角
'结束点坐标位于右下角
Private Sub Convert_Point()
pend.Y = e.Y
'根据保存的mChoice绘制图形
Select Case mChoice
Case mSelect.Line '用户在工具栏中选择的是铅笔
Dim myPen As New Pen(Me.btnSetColor.BackColor, mWidth)
g.DrawLine(myPen, pstart, pend) '根据起点和终点绘制直线
（4）线条选择下方有画笔颜色选择按钮，通过点击此按钮，选择不同的画笔颜色，并且按钮能显示此时的画笔颜色。
3、程序运行结果：
（1）利用铅笔按钮和直线按钮完成任意线条绘制和直线绘制，运行结果如下图所示：
（2）利用椭圆和其填充按钮完成椭圆的绘制：
（3）利用矩形和其填充按钮完成椭圆的绘制：
（5）通过ICON按钮，读取ICO图标文件
Dim ptemp As Point '用于交换的临时点
If pstart.X < pend.X Then
If pstart.Y > pend.Y Then
ptemp.Y = pstart.Y
pstart.Y = pend.Y
pend.Y = ptemp.Y
End If
End If
If pstart.X > pend.X Then
ByVal e As System.Windows.Forms.MouseEventArgs)Handles picPaint.MouseUp
If e.Button = Windows.Forms.MouseButtons.Left Then
'如果用户按下的是鼠标左键，记录终点坐标
pend.X = e.X
c）椭圆：画空心椭圆；
d）实心椭圆填充：对画的椭圆进行实心填充；
e）网格椭圆填充：对画的椭圆进行网格填充；
f）矩形：画空心矩形；
g）实心矩形填充：对画的矩形进行实心填充；
h）网格矩形填充：对画的矩形进行网格填充；
i）ICON按钮：读取ICON图标进行编辑：
j）橡皮擦：橡皮擦功能。
（3）界面左边有线条选择按钮，通过点击不同的按钮，选择不同的线条宽度。
1.概述
Visual Basic .NET通常缩写为,在某些特定情况下也直接简称VB，比如在.NET这个大话题下或者与其他.NET语言一起讨论的时候。
Visual Basic .NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写代码就好像在写英文句子一样，从这个角度来说，似乎是最高级的一门编程语言，当然在Basic系语言中也确实是迄今为止最强大的一门编程语言。
Text
新建（&N）
ToolStripMenuItem
Name
miExit
Text
退出（&E）
ToolStripMenuItem
Name
miOperator
Text
操作（&P）
ToolStrip
Name
TsPaint
Text
工具栏
Items
ImageList
Name
Imglist
Images
控件类别
Visual Basic .NET的应用范围包括windows桌面、web以及当下突然觉醒的正在奋力追赶的第三大移动平台Windows phone。
2、设计思路及界面设计
首先创建一个项目类型为Visual Basic，模板为Windows应用程序的项目，命名为建议画图程序。然后进行界面设计，在窗体上添加：一个MenuStrip菜单控件、一个ToolStrip工具栏控件，一个用作绘图板的PictureBox图片框控件、两个让用户选择颜色和线条宽标志的Lable控件、5个让用户选择线条宽度的button控件，一个Panel控件上、一个ImageList控件和一个作为状态信息栏的StatusStripr。调整窗体上各控件的大小及位置，如下图所示。
Private g As Graphics '绘图句柄
Private pstart As Point, pend As Point '定义画图的起始点，终点