[工学]第08章 VB图形操作1.pptVIP

第 8 章 VB 图形操作 * 1. VB程序设计概述 2. VB编程基础 5. 数组及其应用　 6. VB函数与过程 7. 应用程序界面设计 8. VB图形操作 3. VB语言基础 4. VB控制结构 教 学 内 容 9. VB文件操作 10. VB数据库编程 第8章 VB图形操作 　8.1 图形控件 　8.2 图形操作基础 　8.3 绘图属性 　 8.4 绘图方法 　8.5 综合应用 8.1 图形控件 8.1.1 图形框 　　图形框（PictureBox）控件的功能是显示图形图片，也可作为其他控件的容器。显示图片的方法主要有两种： ?　● 在设计状态直接设置Picture属性。 ?　● 程序运行时，使用LoadPicture( )函数装入图形文件 　　　图形框.Picture = LoadPicture（图形文件名） 　　例如，在图形框中显示C:\person1.bmp的图片文件： 　　Picture1.Picture = LoadPicture(C:\person1.bmp) 　　清除图形框中的图片：LoadPicture函数不带参数！ 8.1 图形控件 8.1.1 图形框 　（1）图形框的重要属性：Picture、AutoSize 　　　AutoSize属性，可设置控件是否自动调整大小： 　　　　True 图形框自动调整大小与图片匹配 　　　　False 图形超过图形框的部分将被剪裁掉 　（2）图形框常用事件：支持Click和DblClick等事件。 　（3）图形框主要方法：图形框也支持Circle（画圆）、Line（画直线）和Point（画点）、Print（打印）等方法。 　【例8.1】 设计一个随机显示图片和文字的程序。 　　界面设计：在窗体From1中放置2个图形框（Picture1和Picture2）及3个命令按钮。运行此程序之后，单击“随机文字”按钮则在图形框中随机显示文字，单击“随机图像”按钮则进行随机图像显示，单击“退出”则退出程序。 8.1 图形控件 8.1.2 图像框 　　图像框（Image）与图形框基本相同，大多数属性、事件、方法都是相同的，二者的主要区别： 　　 占用内存少,显示速度快 占用内存多,显示速度慢 速度 Stretch属性可以控制图形图像的缩小放大 Autosize属性可以自动调整控件的大小，但不能控制图形的缩放 属性 只能显示图形图像 显示图形图像, 控件容器 功能 图像框 图形框 名称 【例8.2】 设计一个动态放大、缩小图片的程序。　 　　设计如图所示界面，程序运行时单击“放大”或“缩小”按钮，则每秒图形长宽各增大或减小200像素；单击“停止”按钮，则图片停止变化。 　　将Image1的Stretch属性设置为True，并且装载一幅图片；将Timer1的Interval属性值设置为1000。 8.1 图形控件 8.1.3 直线 　　利用直线（Line）控件，可以画出水平线、垂直线、对角线等，并可以改变直线的粗细、颜色和样式。 　　直线常用属性有： 　　① X1、Y1、X2、Y2：表示直线控件的起始点(X1, Y1)和终止点(X2, Y2)的坐标。 　　② BorderColor：设置直线的颜色。 　　③ BorderStyle：设置直线的样式，有实线、虚线、点线、点划线等几种样式。 【例8.3】 Line控件示例。 Dim i As Integer, j As Integer, k As Integer Private Sub Command1_Click() 改变线形 i = i + 1 If i 6 Then i = 0 直线BorderStyle属性值为0～6 Line1.BorderStyle = i 为直线的BorderStyle属性赋值 Select Case I 显示当前直线控件的线形 Case 0: Label1.Caption = 透明线 Case 1: Label1.Caption = 实线 Case 2: Label1.Caption = 虚线 Case 3: Label1.Caption = 点线 Case 4: Label1.Caption = 点划线 Case 5: Label1.Caption = 双点划线 Case 6: Label1.Caption = 内收实线 End Select End Sub 8.1.4 形状控件 　　形状(Shape)控件用于显示矩