用VB编写画图程序.doc

《用VB编写画图程序.doc》由会员分享，可在线阅读，更多相关《用VB编写画图程序.doc（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流用VB编写画图程序.精品文档.11.6.2 编写一个仿Windows画图程序（1）本例将实现11.1节中的一个仿Windows的简单的画图软件的任务。1新建项目创建一个项目类型为Visual Basic，模板为Windows应用程序的项目，命名为Ch11_5。2界面设计在窗体上添加：一个MenuStrip菜单控件、一个ToolStrip工具栏控件，一个用作绘图板的PictureBox图片框控件、两个让用户选择颜色和线条宽标志的Lable控件、5个让用户选择线条宽度的button控件，一个Panel控件上、一个ImageList控件和一个作为状

2、态信息栏的StatusStripr。调整窗体上各控件的大小及位置，如图11-18所示。图11-18 画图程序主界面3设置各控件的相关属性设置各控件的相关属性，如表11-9所示。表11-9 画图程序各控件属性设置4代码设计（1）引入命名空间：Imports System.Drawing.Drawing2D（2）在FrmPaint类里定义全局变量和mSelect枚举结构：1. PrivategAsGraphics绘图句柄 2. PrivatepstartAsPoint,pendAsPoint定义画图的起始点，终点 3. PrivatemChoiceAsInteger选择图形枚举 4. Privat

3、emWidthAsInteger画笔宽度 5. PrivatemIconAsIcon用户选择图标 6. PrivateEnummSelect选择图形类别枚举 7. Pencil铅笔 8. Line直线 9. Ellipse椭圆 10. FillEllipse填充椭圆 11. StyleEllipse风格椭圆 12. Rec矩形 13. FillRec填充矩形 14. StyleRec风格矩形 15. Icon图标 16. Eraser橡皮17. End Enum（3）在FrmPaint的Load事件中初始化全局变量和Graphics对象：1. PrivateSubFrmPaint_Load(B

4、yValsenderAsSystem.Object,_ 2. ByValeAsSystem.EventArgs)HandlesMyBase.Load 3. g=Me.picPaint.CreateGraphics获取PictureBox的绘图句柄 4. mChoice=mSelect.Pencil默认选择选铅笔作为绘图工具 5. mWidth=1初始化画笔宽度 6. EndSub（4）定义转换坐标起点和终点的过程Convert_Point()。转换坐标起始点和终点，确保起始点始终在终点的左上方，代码如下：1. 确保起始点坐标位于左上角 2. 结束点坐标位于右下角 3. PrivateSubCo

5、nvert_Point() 4. DimptempAsPoint用于交换的临时点 5. Ifpstart.Xpend.YThen7. ptemp.Y=pstart.Y 8. pstart.Y=pend.Y 9. pend.Y=ptemp.Y 10. EndIf11. EndIf12. Ifpstart.Xpend.XThen13. Ifpstart.Ypend.YThen19. ptemp=pstart 20. pstart=pend 21. pend=ptemp 22. EndIf23. EndIf24. EndSub（5）为工具栏ItemClick事件编写代码：1. PrivateSubt

6、sPaint_ItemClicked(ByValsenderAsSystem.Object,_ 2. ByValeAsSystem.Windows.Forms.ToolStripItemClickedEventArgs)HandlestsPaint.ItemClicked 3. 获取发生事件的索引号 4. Me.mChoice=Me.tsPaint.Items.IndexOf(e.ClickedItem) 5. IfmChoice=mSelect.IconThen6. 如果选择的是图标，则打开OpenFileDialog选取图标 7. DimdlgOpenAsNewOpenFileDialog

7、 8. dlgOpen.Filter=图标文件|*.ico9. IfdlgOpen.ShowDialog=Windows.Forms.DialogResult.OKThen10. mIcon=NewIcon(dlgOpen.FileName) 11. EndIf12. EndIf（6）为btnSetColor控件的Click事件，编写代码，选择画笔颜色，代码如下：1. PrivateSubbtnSetColor_Click(ByValsenderAsSystem.Object,_ 2. ByValeAsSystem.EventArgs)HandlesbtnSetColor.Click 3. 打

8、开颜色对话框 4. DimdlgColorAsNewColorDialog 5. IfdlgColor.ShowDialog=Windows.Forms.DialogResult.OKThen6. Me.btnSetColor.BackColor=dlgColor.Color 7. EndIf8. EndSub（7）编写选择线条宽度的共享事件过程btnLines_Click()代码：1. PrivateSubbtnLine_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ 2. HandlesbtnLine1.Click,b

9、tnLine2.Click,btnLine3.Click,btnLine4.Click,btnLine5.Click 3. 把所有按钮的背景色都设为Black 4. Me.btnLine1.BackColor=Color.White 5. Me.btnLine2.BackColor=Color.White 6. Me.btnLine3.BackColor=Color.White 7. Me.btnLine4.BackColor=Color.White 8. Me.btnLine5.BackColor=Color.White 9. 用户选中的按钮背景色为Blue 10. CType(sender

10、,Button).BackColor=Color.Black 11. 把画笔宽度设为用户选择按钮的Tag值 12. mWidth=CType(sender,Button).Tag 13. EndSub（8）为PictrueBox的MouseDown（鼠标按下）事件编写代码。在FrmPaint的代码窗口顶部的对象下拉列表框中选择picPaint，然后在右侧的事件下拉列表框中选择MouseDown，此时代码编辑器中已经自动生成了picPaint_MouseUp的事件代码，并把鼠标定位于事件过程内部的第一行，在该过程中编写如下代码：1. PrivateSubpicPaint_MouseDown(By

11、ValsenderAsSystem.Object,_ 2. ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlespicPaint.MouseDown 3. Ife.Button=Windows.Forms.MouseButtons.LeftThen4. 如果用户按下的是鼠标左键，则将当前点坐标赋给起始点 5. pstart.X=e.X 6. pstart.Y=e.Y 7. EndIf8. EndSub11.6.2 编写一个仿Windows画图程序（3）（9）为PictrueBox的MouseUp（鼠标释放）事件编写代码：1. PrivateSu

12、bpicPaint_MouseUp(ByValsenderAsSystem.Object,_ 2. ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlespicPaint.MouseUp 3. Ife.Button=Windows.Forms.MouseButtons.LeftThen4. 如果用户按下的是鼠标左键，记录终点坐标 5. pend.X=e.X 6. pend.Y=e.Y 7. 根据保存的mChoice绘制图形 8. SelectCasemChoice 9. CasemSelect.Line用户在工具栏中选择的是铅笔 10. Dimm

13、yPenAsNewPen(Me.btnSetColor.BackColor,mWidth) 11. g.DrawLine(myPen,pstart,pend)根据起点和终点绘制直线 12. CasemSelect.Rec用户在工具栏中选择的是空心矩形 13. Convert_Point()转换矩形的起点为其左上点 14. DimmyPenAsNewPen(Me.btnSetColor.BackColor,mWidth) 15. g.DrawRectangle(myPen,pstart.X,pstart.Y,_ 16. pend.X-pstart.X,pend.Y-pstart.Y)根据起点和终

14、点绘制空心矩形 17. CasemSelect.FillRec用户在工具栏中选择的是填充矩形 18. Convert_Point()转换矩形的起点为其左上点 19. DimrecAsNewRectangle(pstart.X,pstart.Y,_ 20. pend.X-pstart.X,pend.Y-pstart.Y)根据起点和终点定义矩形 21. DimsbrAsNewSolidBrush(btnSetColor.BackColor)定义画刷颜色为用户选择的颜色 22. g.FillRectangle(sbr,rec)绘制填充矩形 23. CasemSelect.StyleRec用户在工具栏

15、中选择的是风格矩形 24. Convert_Point()转换矩形的起点为其左上点 25. DimrecAsNewRectangle(pstart.X,pstart.Y,_ 26. pend.X-pstart.X,pend.Y-pstart.Y)根据起点和终点定义矩形 27. 定义画刷风格为Cross型，前景色为白色，背景色为用户选择 28. DimhbrAsNewHatchBrush(HatchStyle.Cross,Color.White,btnSetColor.BackColor) 29. g.FillRectangle(hbr,rec)用画刷填充矩形 30. CasemSelect.E

16、llipse用户在工具栏中选择的是空心椭圆 31. Convert_Point()转换椭圆外接矩形的起点为其左上点 32. Dimpen1AsNewPen(btnSetColor.BackColor,mWidth) 33. g.DrawEllipse(pen1,pstart.X,pstart.Y,_ 34. pend.X-pstart.X,pend.Y-pstart.Y)根据椭圆外接矩形的起点和终点绘制椭圆 35. CasemSelect.FillEllipse用户在工具栏中选择的是填充椭圆 36. Convert_Point()转换椭圆外接矩形的起点为其左上点 37. DimrecAsNew

17、Rectangle(pstart.X,pstart.Y,_ 38. pend.X-pstart.X,pend.Y-pstart.Y)定义椭圆的外接矩形 39. DimsbrAsNewSolidBrush(btnSetColor.BackColor)定义画刷颜色为用户选择的颜色 40. g.FillEllipse(sbr,rec)用画刷填充矩形 41. CasemSelect.StyleEllipse用户在工具栏中选择的是风格椭圆 42. Convert_Point()转换椭圆外接矩形的起点为其左上点 43. DimrecAsNewRectangle(pstart.X,pstart.Y,_ 44

18、. pend.X-pstart.X,pend.Y-pstart.Y)定义椭圆的外接矩形 45. 定义画刷风格为Cross型，前景色为白色，背景色为用户选择 46. DimhbrAsNewHatchBrush(HatchStyle.Cross,Color.White,btnSetColor.BackColor) 47. g.FillEllipse(hbr,rec)用画刷填充矩形 48. EndSelect49. EndIf50. EndSub（10）为PictrueBox的MouseMove（鼠标移动）事件编写代码：1. PrivateSubpicPaint_MouseMove(ByValsen

19、derAsSystem.Object,_ 2. ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlespicPaint.MouseMove 3. Ife.Button=Windows.Forms.MouseButtons.LeftThen4. 如果用户按下的是鼠标左键，根据保存的mChoice绘制图形 5. SelectCasemChoice 6. CasemSelect.Pencil用户在工具栏中选择的是铅笔 7. Dimpen1AsNewPen(btnSetColor.BackColor,mWidth) 8. pend.X=e.X 9. pe

20、nd.Y=e.Y 10. g.DrawLine(pen1,pstart,pend) 11. pstart=pend将已经绘制的终点作为下一次的绘制的起点 12. CasemSelect.Eraser用户在工具栏中选择的是橡皮 13. DimmyPenAsNewPen(Color.White,mWidth)定义白色画笔作为擦除效果 14. pend.X=e.X 15. pend.Y=e.Y 16. g.DrawLine(myPen,pstart,pend)将已经绘制的终点作为下一次绘制的起点 17. pstart=pend将已经绘制的终点作为下一次绘制的起点 18. EndSelect19. E

21、ndIf20. EndSub（11）为PictrueBox的Mouse的Click（鼠标单击）事件编写代码：1. PrivateSubpicPaint_Click(ByValsenderAsSystem.Object,_ 2. ByValeAsSystem.EventArgs)HandlespicPaint.Click 3. IfmChoice=mSelect.IconThen4. 画图标 5. g.DrawIcon(mIcon,pstart.X,pstart.Y) 6. EndIf7. EndSub（12）为新建miNew的Click事件编写代码：1. PrivateSubmiNew_Cli

22、ck(ByValsenderAsSystem.Object,_ 2. ByValeAsSystem.EventArgs)HandlesmiNew.Click 3. Me.picPaint.Refresh() 4. EndSub（13）为退出菜单miExit的Click事件编写代码：1. PrivateSubmiExit_Click(ByValsenderAsSystem.Object,_ 2. ByValeAsSystem.EventArgs)HandlesmiExit.Click 3. Application.Exit() 4. EndSub（14）调试运行程序。至此，一个简单的绘图软件的代码编写完成，按F5键或工具栏上的运行按钮，即可运行程序，绘制图形后结果如图11-19所示。（点击查看大图）图11-19 画笔软件运行结果