用vb编写画图程序

《用vb编写画图程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、WORD格式可编辑11.6.2 编写一个仿Windows画图程序（1）本例将实现11.1节中的一个仿Windows的简单的画图软件的任务。1．新建项目创建一个项目类型为VisualBasic，模板为Windows应用程序的项目，命名为Ch11_5。2．界面设计在窗体上添加：一个MenuStrip菜单控件、一个ToolStrip工具栏控件，一个用作绘图板的PictureBox图片框控件、两个让用户选择颜色和线条宽标志的Lable控件、5个让用户选择线条宽度的button控件，一个Panel控件上、一个ImageList控件和一个作为状态信息栏的S

2、tatusStripr。调整窗体上各控件的大小及位置，如图11-18所示。 图11-18 画图程序主界面3．设置各控件的相关属性设置各控件的相关属性，如表11-9所示。表11-9 画图程序各控件属性设置  专业知识整理分享WORD格式可编辑4．代码设计（1）引入命名空间：ImportsSystem.Drawing.Drawing2D（2）在FrmPaint类里定义全局变量和mSelect枚举结构：1.Private g As Graphics                   '绘图句柄 2.Private pstart As Point, 

3、pend As Point  '定义画图的起始点，终点 3.Private mChoice As Integer              '选择图形枚举 4.Private mWidth As Integer               '画笔宽度 5.Private mIcon As Icon                       '用户选择图标 6.Private Enum mSelect                        '选择图形类别枚举 7.     Pencil                          

4、       '铅笔 8.     Line                                   '直线 9.     Ellipse                                '椭圆 10.     FillEllipse                            '填充椭圆 11.     StyleEllipse                       '风格椭圆 12.     Rec                                    '矩形 13.     Fil

5、lRec                                '填充矩形 14.     StyleRec                               '风格矩形 15.     Icon                                   '图标 16.     Eraser                                 '橡皮 17.EndEnum（3）在FrmPaint的Load事件中初始化全局变量和Graphics对象：1.Private Sub FrmPaint_Load(B

6、yVal sender As System.Object, _ 2.     ByVal e As System.EventArgs) Handles MyBase.Load 3. 4.     g = Me.picPaint.CreateGraphics '获取PictureBox的绘图句柄 5.     mChoice = mSelect.Pencil           '默认选择选铅笔作为绘图工具 6.     mWidth = 1                             '初始化画笔宽度 7.End Sub （4）定义

7、转换坐标起点和终点的过程Convert_Point()。转换坐标起始点和终点，确保起始点始终在终点的左上方，代码如下：1.'确保起始点坐标位于左上角 2.    '结束点坐标位于右下角 3.    Private Sub Convert_Point() 专业知识整理分享WORD格式可编辑1.        Dim ptemp As Point          '用于交换的临时点 2.        If pstart.X < pend.X Then 3.            If pstart.Y > pend.Y Then 4.     

8、           ptemp.Y = pstart.Y 5.                pstart.Y = pend.Y 6.