用VB编写画图程序

11.6.2编写一个仿Windows画图程序（1）本例将实现11.1节中的一个仿Windows的简单的画图软件的任务。.新建项目创建一个项目类型为VisualBasic，模板为Windows应用程序的项目，命名为Ch11_5。.界面设计在窗体上添加：一个MenuStrip菜单控件、一个ToolStrip工具栏控件，一个用作绘图板的PictureBox图片框控件、两个让用户选择颜色和线条宽标志的Lable控件、5个让用户选择线条宽度的button控件，一个Panel控件上、一个ImageList控件和一个作为状态信息栏的StatusStripr。调整窗体上各控件的大小及位置，如图11-18所示。.设置各控件的相关属性设置各控件的相关属性，如表11—9所示。表11-9画图程序各控件属性设置

控件类另“屉性名F届性值户Fcirm。TextJ国图软件卡Nam&pFrmPaint<pMeawPmsPaiiit^tsd一文件（&F)续表4控性类别口属性名甲B性值"MetiuStrip^Name。msPaint^1oolStripMmu4tem+JNam却Test。. 文件（即上ToolStripMenu.ltem^Name-::miNew。t雷好1新建（&N＞中ToolStripMenu.ltemvNam"miEnit甲ted「退出C&X）T：7oolStripMenuJtemFNam"irdOpsratorP；Testi操作侬”冲TocilStri产NamMtsPaiiit^p.工具降It-ems^p*X|ml.ibfnKi1国儿.出5回«.ib£LKi国uHiir固U皿S|S］凡dH.e回■.itKidT画11口同囤IM.*1CT0,CO*■Itna^eList^Nam占；

.代码设计(1)引入命名空间：ImportsSystem.Drawing.Drawing2D(2)在FrmPaint类里定义全局变量和mSelect枚举结构:PrivategAsGraphicsPrivatePrivategAsGraphicsPrivatepstartAsPoint,pendAsPointPrivate mChoiceAsIntegerPrivate mWidthAsIntegerPrivate mIconAsIconPrivateEnummSelect别枚举Pencil‘铅笔'绘图句柄'定义画图的起始点，终点'选择图形枚举'画笔宽度'用户选择图'选择图形类'直线Ellipse椭圆FillEllipse '填充椭圆StyleEllipse '风格椭圆Rec'矩形FillRec填充矩形StyleRec风格矩形Icon'图标Eraser‘橡皮EndEnum(3)在FrmPaint的Load事件中初始化全局变量和Graphics对象:PrivateSubFrmPaint_Load(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesMyBase.Loadg=Me.picPaint.CreateGraphics'获取PictureBox的绘图句柄mChoice=mSelect.Pencil '默认选择选铅笔作为绘图工具mWidth=1初始化画笔宽度EndSub(4)定义转换坐标起点和终点的过程Convert_Point()。转换坐标起始点和终点，确保起始点始终在终点的左上方，代码如下：.'确保起始点坐标位于左上角3.PrivateSub)Convert_Point()3.PrivateSub)Convert_Point()4.DimptempAsPoint5.Ifpstart.X<pend.XThen6.Ifpstart.Y>pend.YThen7.ptemp.Y=pstart.Y8.pstart.Y=pend.Y9.pend.Y=ptemp.Y10.EndIf11.EndIf12.Ifpstart.X>pend.XThen13.Ifpstart.Y<pend.YThen14.ptemp.X=pstart.X2. '结束点坐标位于右下角'用于交换的临时点pend.X=ptemp.XEndIfIfpstart.Y>pend.YThenptemp=pstartpstart=pendpend=ptemp1.2.3.‘打开"颜色”对话框4.DimdlgColorAsNewColorDialog1.2.3.‘打开"颜色”对话框4.DimdlgColorAsNewColorDialog5.IfdlgColor.ShowDialog=Windows.Forms.DialogResult.OKThenEndIfEndIfEndSub(5)为工具栏ItemClick事件编写代码:PrivateSubtsPaint_ItemClicked(ByValsenderAsSystem.Object,_ByValeAsSystem.Windows.Forms.ToolStripItemClickedEventArgs)HandlestsPaint.ItemClicked'获取发生事件的索引号Me.mChoice=Me.tsPaint.Items.IndexOf(e.ClickedItem)IfmChoice=mSelect.IconThen'如果选择的是图标，则打开OpenFileDialog选取图标DimdlgOpenAs New OpenFileDialogdlgOpen.Filter="图标文件|*.ico”If dlgOpen.ShowDialog =Windows.Forms.DialogResult.OKThenmIcon=NewIcon(dlgOpen.FileName)EndIfEndIf(6)为btnSetC010r控件的Click事件，编写代码，选择画笔颜色，代码如下：PrivateSubbtnSetColor_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnSetColor.Click6.6.Me.btnSetColor.BackC010r=dlgColor.Color7.EndIf8.EndSub(7)编写选择线条宽度的共享事件过程btnLines_Click()代码:PrivateSubbtnLine_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesbtnLine1.Click,btnLine2.Click,btnLine3.Click,btnLine4.Click,btnLine5.Click'把所有按钮的背景色都设为BlackMe.btnLine1.BackC010r = Color.WhiteMe.btnLine2.BackC010r = Color.WhiteMe.btnLine4.BackColor=Color.WhiteMe.btnLine5.BackColor=Color.White'用户选中的按钮背景色为BlueCType（sender,Button）.BackColor=Color.Black'把画笔宽度设为用户选择按钮的Tag值mWidth=CType（sender,Button）.TagEndSub（8）为PictrueBox的MouseDown（鼠标按下）事件编写代码。在FrmPaint的代码窗口顶部的"对象"下拉列表框中选择picPaint，然后在右侧的"事件"下拉列表框中选择MouseDown，此时代码编辑器中已经自动生成YpicPaint_MouseUp的事件代码，并把鼠标定位于事件过程内部的第一行，在该过程中编写如下代码：PrivateSubpicPaint_MouseDown（ByValsenderAsSystem.Object,_ByValeAsSystem.Windows.Forms.MouseEventArgs）HandlespicPaint.MouseDownIfe.Button=Windows.Forms.MouseButtons.LeftThen'如果用户按下的是鼠标左键，则将当前点坐标赋给起始点pstart.X=e.Xpstart.Y=e.YEndIfEndSub11.6.2编写一个仿Windows画图程序（3）（9）为PictrueBox的MouseUp（鼠标释放）事件编写代码：PrivateSubpicPaint_MouseUp（ByValsenderAsSystem.Object,_ByValeAsSystem.Windows.Forms.MouseEventArgs）HandlespicPaint.MouseUpIfe.Button=Windows.Forms.MouseButtons.LeftThen'如果用户按下的是鼠标左键，记录终点坐标pend.X =e.Xpend.Y =e.Y'根据保存的mChoice绘制图形Select CasemChoiceCasemSelect.Line'用户在工具栏中选择的是铅笔mWidth)12.g.DrawLine(myPen,pstart,pend)'根据起点和终点13.14.15.绘制直线CasemSelect.RecConvert_Point()'用户在工具栏中选择的是空心矩'转换矩形的起点为其左上16.DimmyPenAsNewPen(Me.btnSetColor.BackColor,mWidth)17.g.DrawRectangle(myPen,pstart.X,pstart.Y,18.pend.X-pstart.X,pend.Y-pstart.Y)根据起点和终点绘制空心矩形19.20.CasemSelect.FillRec'用户在工具栏中选择的是填充矩21.Convert_Point()'转换矩形的起点为其左上22.DimrecAsNewRectangle(pstart.X,pstart.Y,23.pend.X-pstart.X,pend.Y-pstart.Y)'根据起点和终点定义矩形24.DimsbrAsNewSolidBrush(btnSetColor.BackColor)mWidth)12.g.DrawLine(myPen,pstart,pend)'根据起点和终点13.14.15.绘制直线CasemSelect.RecConvert_Point()'用户在工具栏中选择的是空心矩'转换矩形的起点为其左上16.DimmyPenAsNewPen(Me.btnSetColor.BackColor,mWidth)17.g.DrawRectangle(myPen,pstart.X,pstart.Y,18.pend.X-pstart.X,pend.Y-pstart.Y)根据起点和终点绘制空心矩形19.20.CasemSelect.FillRec'用户在工具栏中选择的是填充矩21.Convert_Point()'转换矩形的起点为其左上22.DimrecAsNewRectangle(pstart.X,pstart.Y,23.pend.X-pstart.X,pend.Y-pstart.Y)'根据起点和终点定义矩形24.DimsbrAsNewSolidBrush(btnSetColor.BackColor)'定义画刷颜色为用户选择的颜色25.g.FillRectangle(sbr,rec)'绘制填充矩形26.27.CasemSelect.StyleRec'用户在工具栏中选择的是风格矩28.Convert_Point()'转换矩形的起点为其左上29.DimrecAsNewRectangle(pstart.X,pstart.Y,30.pend.X-pstart.X,pend.Y-pstart.Y)'根据起点和终点定义矩形31.定义画刷风格为Cross型，前景色为白色，背景色为用户选择11.DimmyPenAsNewPen(Me.btnSetColor.BackColor,11.DimhbrAsNewHatchBrush(HatchStyle.Cross,Color.White,btnSetColor.BackColor)g.FillRectangle(hbr,rec)'用画刷填充矩形CasemSelect.Ellipse'用户在工具栏中选择的是空心椭圆Convert_Point()'转换椭圆外接矩形的起点为其左上点Dimpen1AsNewPen(btnSetColor.BackColor,mWidth)g.DrawEllipse(pen1,pstart.X,pstart.Y,_pend.X-pstart.X,pend.Y-pstart.Y)根据椭圆外接矩形的起点和终点绘制椭圆CasemSelect.FillEllipse'用户在工具栏中选择的是填充椭圆Convert_Point()'转换椭圆外接矩形的起点为其左上点43. DimrecAsNewRectangle(pstart.X,pstart.Y, 44. pend.X-pstart.X,pend.Y-pstart.Y)‘定义椭圆的外接矩形45. DimsbrAsNewSolidBrush(btnSetColor.BackColor)'定义画刷颜色为用户选择的颜色46. g.FillEllipse(sbr,rec)'用画刷填充矩形47.48. CasemSelect.StyleEllipse '用户在工具栏中选择的是风格椭圆49. Convert_Point() '转换椭圆外接矩形的起点为其左上点DimrecAsNewRectangle(pstart.X,pstart.Y, pend.X-pstart.X,pend.Y-pstart.Y)定义椭圆的外接矩形'定义画刷风格为Cross型，前景色为白色，背景色为用户选择DimhbrAsNewHatchBrush(HatchStyle.Cross,Color.White,btnSetColor.BackColor)g.FillEllipse(hbr,rec)'用画刷填充矩形EndSelectEndIfEndSub(10)为PictrueBox的MouseMove(鼠标移动)事件编写代码：1.PrivateSubpicPaint_MouseMove(ByValsenderAsSystem.Object,2.ByValeAsSystem.Windows.Forms.MouseEventArgs)2.HandlespicPaint.MouseMoveIfe.Button=Windows.Forms.MouseButtons.LeftThen'如果用户按下的是鼠标左键，根据保存的mChoice绘制图形SelectCasemChoiceCasemSelect.Pencil '用户在工具栏中选择的是铅笔Dimpen1AsNewPen(btnSetColor.BackColor,mWidth)8.pend.X=e.X

8.g.DrawLine(pen1,pstart,pend)pstart=pend'将已经绘制的终点作为下一次的绘制的起点CasemSelect.Eraser'用户在工具栏中选择的是橡皮DimmyPen As NewPen(Color.White,mWidth)'定义白色画笔作为擦除效果pend.X= e.Xpend.Y= e.Yg.DrawLine(myPen,pstart,pend)'将已经绘制的终点作为下一次绘制的起点17.pstartpend