第十一章-山东外贸职业学院.ppt

 Visual Basic 程 序 设 计 第11章 图形操作 本章主要内容 1、颜色 2、坐标系统 3、图形方法 11.1 颜色 2、使用长整数 使用长整数（四个字节）来指定一个颜色。 如：H00FFFFFF 从高位起： 第一字节：所有位都为0； 第二字节：表示的是蓝色分量的大小 ； 第三字节：表示的是绿色分量的大小 ； 第四字节：表示的是红色分量的大小 ； 3、使用系统颜色 系统颜色是由用户在Windows 控制面板的“显示器”属性中设定的各元素界面的颜色。 系统颜色共有25种，其值为： ---4、使用颜色常量 共8种：vbBlack vbGreen vbBlue vbCyan vbRed vbYellow vbMagenta vbWhite 5、使用 QBColor 函数 QBColor函数能够选择16种颜色： 11.2 坐标系统 1、默认坐标系统 坐标原点（0，0），坐标的刻度单位是：缇； X 轴的正向水平向右， Y 轴的正向水平向下； 用ScaleMode 属性可更改坐标系统的刻度单位。 当 ScaleMode=0 时使用自定义坐标系统 2、自定义坐标系统 自定义坐标系统的坐标原点、坐标单位由 caleWidth、ScaleHeight 、ScaleLeft、ScaleTop决定。 ScaleLeft、ScaleTop------指定绘图区左上角的坐标，可通过ScaleLeft、ScaleTop 属性来重定义坐标圆点。 ScaleWidth、ScaleHeight------决定绘图区的宽度和高度，当ScaleWidth0 时，X 轴的正向向左；当ScaleHeight 0 时，Y 轴的正向向上； （ScaleLeft +ScaleWidth， ScaleTop+ ScaleHeight）即为对象右下角的坐标。 度量单位为：1/ ScaleWidth 和 1/ ScaleHeight 如： Form1.ScaleLeft = -150 Form1.ScaleTop = 100 Form1.ScaleWidth = 300 Form1.ScaleHeight = -200 3、Scale 方法 使用Scale 方法可设置自定义坐标系统 格式：[对象名]. Scale [(X1,Y1) –(X2,Y2)] 说明： (X1,Y1) —— 即：(ScaleLeft, ScaleTop) 左 上角坐标 (X2,Y2) —— 对象的右下角坐标 ScaleWidth = X2-X1 ScaleHeight = Y2-Y1 如：Form1.Scale (100, -150) – (-100, 150) 11.3 图形方法 PSet方法：在指定位置用指定颜色画一个点。 格式：[对象名]．Pset [Step] (X,Y) , [Color] 其中：对象名——窗体或图片框的名字； Step——可选项： 选择：(X,Y)是相对于当前点的相对坐标； （CurrentX,CurrentY） 不选择：(X,Y)是绝对坐标 (X,Y)——画点的位置坐标； Co1or——可选项：用于设置点的颜色。 程序代码： Private Sub Command1_Click() Dim M$ ,X0%, Y0%, I% FontSize = 24 ： M = 新年快乐! If Command1.Caption “退出” Then Command1.Caption = 退出 CurrentX =(Form1.Width - TextWidth(M) )/ 2 CurrentY = (Form1.Height 2 - TextHeight(M)) / 2 Print M ‘ 在窗体的中间输出“新年快乐!” For i = 1 To 300