《visualbasic程序设计（第2版）教学课件作者梁丽平第十章》由会员分享，可在线阅读，更多相关《visualbasic程序设计（第2版）教学课件作者梁丽平第十章（74页珍藏版）》请在金锄头文库上搜索。
1、第10章 图 形 操 作,10.1 图形操作基础 10.2 绘 图 属 性 10.3 图 形 控 件 10.4 图 形 方 法,10.1 图形操作基础,10.1.1 默认坐标系 1. 坐标轴 在Visual Basic 6.0中，默认坐标系有水平和垂直两个坐标轴，水平向右为X轴正方向，垂直向下为Y轴正方向。默认坐标系的原点为窗体或控件的左上角。 2. 单位刻度 用户可以通过设置窗体、图片框的ScaleMode属性来设定单位。ScaleMode的属性值如表10-1所示,下一页,返回,10.1 图形操作基础,3. 坐标系 在Visual Basic 6.0中，窗体、图片框都是容器类控件，因此它们都
2、有属于自己的坐标系。 (1) 窗体的默认坐标系。 新建一个工程后，系统会以窗体的左上角为坐标原点建立窗体的默认坐标系。窗体上控件的位置是相对于窗体的坐标系而言的。 【例10-1】 向窗体上添加一个命令按钮，这时命令按钮的位置属性值是通过窗体坐标系来确定的，如图10-1所示,上一页,下一页,返回,10.1 图形操作基础,(2) 图片框的默认坐标系。 如果向窗体上添加图片框控件，系统会以图片框的左上角为坐标原点建立图片框的默认坐标系。如果向图片框中添加控件，则控件的位置是相对于图片框的坐标系而言的，而不是相对于窗体的坐标系。 【例10-2】 向图片框中添加一个命令按钮，这时命令按钮的“位置”属性值
3、是通过图片框坐标系来确定的，如图10-2所示,上一页,下一页,返回,10.1 图形操作基础,【实例10-3】太阳升起与落下。 界面设计，如图10-3所示 属性设置，如表10-2所示 编写代码。 Private Sub Timer1_Timer() If i 2500 Then Image1.Move i, 2500 - i i = i + 100 Else i = i + 100 Image1.Move i, i - 2500 End If End Sub,上一页,下一页,返回,10.1 图形操作基础,10.1.2 自定义坐标系 有时候为了绘图的方便，用户需要建立自己的自定义坐标系。 用户建立
4、自定义坐标系时，不仅可以将坐标原点设在窗体、图片框的外面，而且可以将X轴、Y轴的正方向反过来，即X轴的正方向向左，Y轴的正方向向上。 在默认坐标系下，横坐标最大值为窗体或图片框的宽度，纵坐标最大值为窗体或图片框的宽度，而在自定义坐标系下，横、纵坐标的最大值可以超过窗体或图片框的宽度、高度,上一页,下一页,返回,10.1 图形操作基础,自定义坐标系通过下面四个属性设定： 对象名.ScaleLeft=X 对象名.ScaleTop=Y 对象名.ScaleWidth=高度 对象名.ScaleHeight=宽度 ScaleLeft和ScaleTop属性值确定了对象左上角的坐标值，即坐标系原点的位置。 S
5、caleWidth和ScaleHeigh属性值确定了对象的高度和宽度，即X轴长度和Y轴长度。 如果ScaleWidth属性值为负，表示X轴正方向为向左；如果ScaleHeigh属性值为负，则表示Y轴正方向为向上,上一页,下一页,返回,10.1 图形操作基础,【例10-5】将窗体设置为如图10-5所示的笛卡儿坐标系 为窗体添加Load事件，代码如下： Private Sub Form_Load() Form1.ScaleTop = -50 Form1.ScaleLeft = 50 Form1.ScaleWidth = 100 Form1.ScaleHeight = -100 End Sub,上一
6、页,返回,10.2 绘 图 属 性,10.2.1 线条类型 在画图之前必须选择好线条的类型，如实线、虚线、点划线等。在Visual Basic 6.0中，线条类型通过DrawStyle属性设置。DrawStyle的常用属性值如表10-3所示 如果要将线条的类型设为其他格式，可以使用以下语法格式： 对象名. DrawStyle=属性值 其中“对象名”可为窗体或图片框的名称,下一页,返回,10.2 绘 图 属 性,10.2.2 线条宽度 对于实线而言，线条有粗细之分，而对于其他线条类型而言，没有粗细之分。在Visual Basic 6.0中，线条粗细通过DrawWidth属性设置，以像素为单位。语
7、法结构如下： 对象名. DrawWidth=Value 其中“对象名”为窗体或图片框的名称，Value为大于1的任意数，包括整数和小数,上一页,下一页,返回,10.2 绘 图 属 性,10.2.3 绘图模式 在Visual Basic 6.0中绘图与现实生活中画画一样，要考虑图形颜色与纸张颜色之间的关系。如果绘图区的底色为白色或者图形之间没有重叠时，只接将图形画到绘图区；如果绘图区的底色不为白色或者图形之间有重叠时，需要考虑绘图模式的选择，即考虑图形颜色与绘图区底色之间或图形颜色之间的逻辑关系。 在Visual Basic 6.0中，绘图模式通过DrawMode属性来设置，DrawMode的常
8、用属性值如表10-4所示。,上一页,下一页,返回,10.2 绘 图 属 性,【例10-6】如果图形颜色与纸张颜色都为蓝色，这时看不到所画图形，只有两者不同颜色时所画图形才能被看见，并且两者颜色的差别越大看到的图形越清晰。如将所画图形的绘图模式DrawMode属性设置为4，将画笔颜色取反，这时看到的图形最清晰，如图10-6所示。,上一页,下一页,返回,10.2 绘 图 属 性,10.2.4 填充样式 如果所画的图形是封闭的，就可以在图形所围的区域内加入各种填充的图案。在Visual Basic 6.0中，填充样式通过FillStyle属性设置，FillStyle的常用属性值如见表10-5所示,上
9、一页,下一页,返回,10.2 绘 图 属 性,10.2.5 填充颜色 填充颜色通过FillColor属性设置，语法结构如下： 对象名. FillColor=Value 其中Value值可以是Visual Basic 6.0中的常量颜色值，如vbRed(红色)、vbBlue(蓝色)、vbGreen(绿色)，还可以通过RGB函数来选择颜色，语法结构如下： RGB(red, green, blue) 其中R、G、B都为整型数，取值范围为0255,上一页,返回,10.3 图 形 控 件,10.3.1 图片框 图片框控件(PictureBox)可用来显示各种不同格式的图片，还可以在图片框上添加其他控件，
10、在上面绘图或显示文字。因此，如果要进行绘图，最好选择使用图片框控件。图片框的使用有四种。 显示和消除图形：见Picture属性。 使用剪贴板来向图片框添加图形。 用Print方法向图片框输出文本。 用图形方法在图片框中画图形，可以使用Circle(画圆)、Line(画线)、Pset(画点)等方法,下一页,返回,10.3 图 形 控 件,1. 属性 图片框除了具有控件的一些公共属性之外，它还用两个重要的常用属性：AutoSize属性、Picture属性。 AutoSize属性：用于返回或设置一个值，以决定图片框是否自动调整尺寸。当其值为True时，图片框自动调整尺寸以便将图片完整地显示出来；当其
11、值为False时，图片框的尺寸是固定不变、不可调整的。默认值为False。 Picture属性：用于返回或设置图片框中要显示的图片。其设置方法是从属性列表中选取Picture属性栏，单击右端带“”的按钮，弹出“加载图片”对话框，用户选择相应路径和文件名，图形就显示在图片框中了。如果要将图片框中已加载的图片删除，只需将光标停在Picture属性栏，然后按Delete键便可以删除图片框中的图片了,上一页,下一页,返回,10.3 图 形 控 件,图片框中常用以下五种类型的图形文件： 位图：*.bmp。 图标：*.ico。 Windows元文件：*.wmf。 GIF格式图形压缩文件：*.gif。 JP
12、EG格式图形压缩文件：*.jpg。 图片框被选中之后，Picture属性栏便会显示图片的格式，而不是显示图片的文件名。如果在程序中设置Picture属性，可以使用LoadPicture函数直接加载。 2. 事件 图片框能响应一些常用事件，如Click事件、MouseMove事件、MouseDown事件等,上一页,下一页,返回,10.3 图 形 控 件,3. 方法 PaintPicture方法是图片框控件的常用方法之一，还可以使用Cls和Print等方法。 4. 在运行时加载图片 可以使用 LoadPicture 函数指定图形文件的路径和文件名，为图片框或图像框控件的Picture 属性指定图片
13、。 一般格式： 对象名. Picture=LoadPicture(“图形文件名”) 5. 图片复制、图片删除 可以使用Set关键字和赋值操作符“=”将图片从一个对象复制到另一个对象。 例如：Set imgTest.Picture = picTest.Picture 可以使用LoadPicture函数删除图片,上一页,下一页,返回,10.3 图 形 控 件,例如：Set imgTest.Picture = LoadPicture(“) 【例10-7】在Visual Basic中创建名为Picture1的图片框控件，加载和删除rocket.jpg图形文件,如图10-7 Private Sub Fo
14、rm_Load() Show Picture1.Print “在图片框内写字和画圆“ Picture1.Circle(1200, 1000), 600, RGB(0, 0, 255) Picture1.PSet(1200, 1000), RGB(255, 0, 0) End Sub,上一页,下一页,返回,10.3 图 形 控 件,Private Sub Command2_Click() Picture1.Picture = LoadPicture(“C:Picture_filesrocket.jpg“) End Sub Private Sub Command2_Click() Picture1
15、.Cls End Sub,上一页,下一页,返回,10.3 图 形 控 件,【例10-8】用图片框显示一张图片，对图片实现翻转、移动、放大、缩小操作，如图10-8所示。 编写事件过程代码如下： Option Explicit Dim i, j As Integer Private Sub cmdlarge_Click() j = 0 i = i + 80 piccat.PaintPicture piccat.Picture, 0, 0, piccat.Width+i, piccat.Height+i End Sub,上一页,下一页,返回,10.3 图 形 控 件,Private Sub cmdm
16、ove_Click() j = j + 80 piccat.PaintPicture piccat.Picture, 0 + j, 0 + j, piccat.Width, piccat.Height End Sub Private Sub cmdresize_Click() j = 0 i = i - 80 piccat.PaintPicture piccat.Picture, 0, 0, piccat.Width+i, piccat.Height+i End Sub,上一页,下一页,返回,10.3 图 形 控 件,Private Sub cmdturn_Click() j = 0 If i Mod 2 = 0 Then piccat.PaintPicture piccat.Picture, piccat.Width, piccat.Height,_ -piccat.Width, -piccat.Height Else piccat.PaintPicture piccat.Picture, 0, 0, piccat.Width, piccat.Height End If i
