画板系统的设计与实现

《画板系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、画板系统的设计与实现本工程以一个比较有趣的例子，来说明如何使用VisualBasic来开发Windows应用程序。本工程将使用VB来开发一个类似“画图”软件的程序，通过此程序，我们可以实现用鼠标画直线、矩形以及不规则线等，可以控制笔线粗细等功能。本系统可以完成以下任务：l通过自制调色板选取画笔的前景色和背景色。l用户可以设置控制画笔的粗细，颜色。l可以画点、线（直线和不规则线）、矩形等。l指示鼠标坐标，前景背景，按钮工具的信息等。首先，现在窗体上添加各种控件，如图1-1、图1-1画图板的设计窗口控件名称主要控件属性名称属性值功能说明Form1Caption画图板—VBBo

2、rderStyle3–FixedDialogStartUpPosition2-屏幕中心Label3名称Label3容纳工具按钮caption工具按钮font宋体，5号，粗体，下划线BorderStyle1-FixedCommand1Style1-Graphical控件数组，为工具按钮ToolTipText分别为：新建、铅笔、画直线、画矩形、画点、橡皮PictureBox　名称DrawPic画布，主要的绘画区。BorderStyle1–FixedSinglePictureBox名称LineCon　用来指示绘图的线宽，由其下面的滚动条控制。BackColor&H8000000

3、F&BorderStyle1–FixedSingleHScrollBar名称HScroll1控制绘图的线宽。LargeChange1Max20Min1Label名称Info用来显示提示信息等Caption工具指示器BorderStyle1–FixedSingle名称Label4Caption鼠标坐标Line1这是一个线的控件数组，一黑一白，位置相对成立体效果Label2BorderStyle1–FixedSingle存放前景背景颜色Label名称ForeSee存放前景颜色BorderStyle1–FixedSingleLabel名称BackSee存放背景颜色BorderS

4、tyle1–FixedSingleLabel名称Label1控件数组，用于存放颜料盒，选择不同的背景颜色。BorderStyle1–FixedSingleBackColor(选择不同的颜色即可)CommandButton名称Command2Caption画板清空名称Command3Caption退出图1-2画图板的运行窗口本系统采用的主要原理：l系统初始化：完成系统的各项初始化。DimnToolNum,nMyForeColor,nMyBackColor‘被访问的工具按钮、前景、背景DimnStartX,nStartY,nEndX,nEndYAsInteger‘指定开始和结

5、束坐标DimnLineWidthAsInteger‘指定线宽DimDrawOrNotAsBoolean‘是否开始画图PrivateSubForm_Load()‘初始化各项参数nToolNum=0nLineWidth=1DrawOrNot=FalsenMyForeColor=RGB(0,0,0)nMyBackColor=RGB(255,255,255)DrawPic.ForeColor=nMyForeColorDrawPic.BackColor=nMyBackColorEndSubl在颜料盒中选定前景和背景：PrivateSubLabel1_MouseUp(IndexAsI

6、nteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(Button=1)Then‘如果是左键，则进行前景颜色设置ForeSee.BackColor=Label1(Index).BackColor‘使用控件数组获取颜色DemoLine.BorderColor=ForeSee.BackColor‘显示线的颜色nMyForeColor=ForeSee.BackColorDrawPic.ForeColor=ForeSee.BackColorEndIfIf(Button=2)Then‘如果是右键，则进行背景颜色设置

7、BackSee.BackColor=Label1(Index).BackColorLineCon.BackColor=BackSee.BackColornMyBackColor=BackSee.BackColorEndIfnMyForeColor=ForeSee.BackColornMyBackColor=BackSee.BackColorEndSubl用滚动条控制画笔的线宽：PrivateSubHScroll1_Change()LineCon.BackColor=BackSee.BackColorDemoLine.Borde