vb第10章 图形操作(2014下).pptVIP

第10章 图形操作 10.1 坐 标 系 10.2 颜 色 10.3 图 形 控 件(简介) 10.4 绘 图 方 法 10.5 常用绘图属性、事件和方法 *10.6 图 层 *10.7 保存绘图结果 在VB中一般把窗体或图片框作为绘制图形的载体。绘制图形一般分为4个步骤： ① 先定义图形载体窗体或图片框坐标系。 ② 设置线宽，线型、色彩等属性。 ③ 指定画笔的起止点位置。 ④ 调用绘图方法绘制图形。 10.1 坐 标 系 1. 默认坐标系 在VB中，每个容器对象都有一个坐标系，用于定义容器中对象的位置。 VB坐标系的缺省坐标原点（0,0）在容器对象的左上角， 水平方向的x坐标轴向右为正方向， 垂直方向的y坐标轴向下为正方向， 缺省度量单位为“缇”（Twip）。 1cm = 567twip (0,0) 2. 用ScaleMode属性定义度量单位（见P221） 值 常 量 说 明 0 vbUser 用户自定义。可设置ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft属性 1 vbTwips 缇（缺省值），1440缇等于一英寸，1厘米等于567缇 2 vbPoints 点，72点等于一英寸 3 vbPixels 像素，表示分辨率的最小单位 4 vbCharacters 字符 5 vbInches 英寸 6 vbMillimeters 毫米 7 vbCentimeters 厘米 例如： Form1.ScaleMode=7 3. 当前坐标 CurrentX属性：设置或返回容器对象的当前水平坐标。 CurrentY属性：设置或返回容器对象的当前垂直坐标。 例如在图片框Picture1中，使用以下语句可以在 指定的 当前坐标位置输出欢迎使用Visual Basic 6.0 。 Picture1.CurrentX = 1000 Picture1.CurrentY = 2000 Picture1.Print 欢迎使用Visual Basic 6.0 10.2 颜色 VB中的颜色可以使用多种方式来设置。 1. 在设计阶段设置颜色 BackColor : 设置对象的背景色 ForeColor ：设置对象的前景色 2. 在运行阶段设置颜色 （1）使用RGB函数。返回一个长整型的颜色值。 RGB(Red,Green,Blue) Red：红色取值，范围为0~255 Green：绿色取值，范围为0~255 Blue：蓝色取值，范围为0~255 例如，将窗体的背景色设置为红色，可以写成： Form1.BackColor = RGB(255, 0, 0) （2）使用QBColor函数。返回一个长整型颜色值。 QBColor（value） value值 颜 色 value值 颜 色 0 黑色 8 灰色 1 蓝色 9 亮蓝色 2 绿色 10 亮绿色 3 青色 11 亮青色 4 红色 12 亮红色 5 洋红色 13 亮洋红色 6 黄色 14 亮黄色 7 白色 15 亮白色 例如，Form1.BackColor = QBColor(4) （3）使用颜色常量。VB将经常使用的颜色值定义为系统内部常量。 颜 色 常 量 颜 色 颜 色 常 量 颜 色 vbBlack 黑色 vbBlue 蓝色 vbRed 红色 vbMagenta [m?d??nt?] 洋红色 vbGreen 绿色 vbCyan [sa??n] 青色 vbYellow 黄色 vbWhite 白色 例如，将窗体的背景色设置为红色，可以写成： Form1.BackColor=vbRed （4）使用颜色的十六进制表示值。用户可以直接使用该十六进制数为颜色属性赋值。该十六进制数表示为： 例如，将窗体的背景色设置为红色，可以写成： Form1.BackColor = H000000FF 10.4 绘 图 方 法 使用容器对象的PSet、Line和Circle方法，可以在容器中绘制各种图形。 10.4.1 PSet方法 在容器对象的指定位置用特定的颜色画点。 [对象名.]PSet [Step] (x,y) [,颜色] 【说明】[Step]规定了（x，y）的值相对于原点(省略）还是相对于(CurrentX,CurrentY),省略表示相对于原点。 【例题】综合三种鼠标事件绘图。要求按下鼠标左键时启动绘图；若同时按下Shift键，开始擦图。鼠