Ch06_图形控件

1、第第6 6章章 图形控件和图形方法图形控件和图形方法本章主要介绍：本章主要介绍：VB坐标系坐标系图片框控件图片框控件影像框控件影像框控件形状控件和直线控件形状控件和直线控件图形方法图形方法6.1 VB坐标系 容器容器 ：能够放置其他控件能够放置其他控件。窗体窗体(Form)(Form)放在屏幕放在屏幕(Screen)(Screen)上，上，屏幕屏幕是窗体的容器是窗体的容器。在窗体上添加一个在窗体上添加一个框架（框架（Frame）控）控件，件，窗体是框架窗体是框架的容器的容器。 在框架控件上再画在框架控件上再画出控件，出控件，框架是框架是该控件的容器该控件的容器。 控件在容器中的位置控件在容器中

2、的位置/ /大小属性大小属性Top/ /Left：以：以容器的坐标原点为参照系。容器的坐标原点为参照系。 Top：控件左上角到所在容器上边沿的距离。控件左上角到所在容器上边沿的距离。Left：控件左上角到所在容器左边沿的距离。控件左上角到所在容器左边沿的距离。 Width / Height：以容器的刻度单位为单位。：以容器的刻度单位为单位。Width：控件本身的宽度：控件本身的宽度。Height：控件本身的高度。控件本身的高度。每个容器都有一个坐标系。每个容器都有一个坐标系。坐标系的作用：坐标系的作用：目标的定位与大小设置目标的定位与大小设置坐标系的形态：坐标系的形态：矩形（刻度矩形（刻度+刻

3、度单位）刻度单位）ScaleLeft：横坐标最左边的刻度数值：横坐标最左边的刻度数值ScaleTop：纵坐标最上面的刻度数值：纵坐标最上面的刻度数值ScaleWidth： 坐标系的宽度坐标系的宽度ScaleHeight：坐标系的高度：坐标系的高度ScaleMode： 坐标系的刻度单位坐标系的刻度单位控件控件绘制的图形绘制的图形坐标系用于对坐标系用于对目标目标的定位与大小设置的定位与大小设置0 1 2 3 4 10000123.800Command1LeftTopHeightWidthForm1.ScaleLeft = 0Form1.ScaleTop = 0Form1.ScaleWidth =

4、1000Form1.ScaleHeight = 800坐标系用于对坐标系用于对目标目标的定位与大小设置的定位与大小设置-100 -99 -98 -1 0 1 99 100-80-79-78. -1 0. 1. 79 80Form1.ScaleLeft = -100Form1.ScaleTop = -80Form1.ScaleWidth = 200Form1.ScaleHeight = 160(X,Y)R窗体坐标系解决了：窗体坐标系解决了： 圆心圆心(X,Y)定位；定位； 半径半径R的大小。的大小。容器（窗体/图片框）坐标系属性1、ScaleLeft：容器左上角的横坐标。缺省值为容器左上角的横坐

5、标。缺省值为0。2、ScaleTop：容器左上角的纵坐标，缺省值为容器左上角的纵坐标，缺省值为0。 3、ScaleWidth：容器的有效宽度。容器的有效宽度。4、ScaleHeight：容器的有效高度容器的有效高度。 5、CurrentX/ /CurrentY：表示当前点（画笔）表示当前点（画笔）在容器内的横坐标、纵坐标。在容器内的横坐标、纵坐标。请区别：请区别： LeftLeft、TopTop、WidthWidth、Height Height 与与 ScaleLeftScaleLeft、ScaleTopScaleTop、ScaleWidthScaleWidth、ScaleHeightScal

6、eHeight1 1、在窗体中画一个最大的内切圆。、在窗体中画一个最大的内切圆。 画园的语句：画园的语句：Form1.Circle (x,y), rForm1.Circle (x,y), r改变容器坐标系：改变容器坐标系：ScaleScale方法方法 Scale方法：容器名容器名.Scale (x1,y1)-(x2,y2)该语句功能：该语句功能： 容器名容器名.ScaleLeft = x1 容器名容器名.ScaleTop = y1 容器名容器名.ScaleWidth = x2 - x1 容器名容器名.ScaleHeight = y2 - y1 如语句：如语句： Form1.Scale (0,

7、0)-(2000, 2000) Form1.Scale (-1000, -1000)-(1000, 1000)坐标刻度坐标刻度 ScaleMode ：容器坐标系的刻度单位。：容器坐标系的刻度单位。1、ScaleMode=1（缺省值）（缺省值） 单位为缇，单位为缇，1缇缇0.01764毫米毫米0.05磅。磅。2、ScaleMode=2：单位为磅，：单位为磅，1磅磅0.353毫米。毫米。3、ScaleMode=3：单位为像素，显示器分辨率的最小单位。：单位为像素，显示器分辨率的最小单位。4、ScaleMode=4：单位为字符，每个字符宽：单位为字符，每个字符宽6磅、高磅、高12磅。磅。5、Scal

8、eMode=5：刻度单位为英寸。：刻度单位为英寸。6、ScaleMode=6：刻度单位为毫米。：刻度单位为毫米。7、ScaleMode=7：刻度单位为厘米。：刻度单位为厘米。8、ScaleMode=0：用户自定义的度量单位。：用户自定义的度量单位。容器控件的位置、大小属性均采用其所在容器坐标系的刻容器控件的位置、大小属性均采用其所在容器坐标系的刻度，与容器本身的坐标刻度无关。度，与容器本身的坐标刻度无关。 演示（演示（demo1）：在图片框（）：在图片框（P1）中，用）中，用不同的刻度单位画一个以中心点为圆心，不同的刻度单位画一个以中心点为圆心，半径为半径为20个单位的圆。个单位的圆。图片框控

9、件图片框控件- -常用属性常用属性 1、Picture 属性（字符串类型）属性（字符串类型） 设计时选取：设计时选取： 通过通过“打开文件打开文件”对话框装载图形文件。对话框装载图形文件。 运行时装入运行时装入 图片框控件名图片框控件名.Picture = LoadPicture(filename)2、AutoSize 属性（逻辑类型）属性（逻辑类型） AutoSize=True：图片框的边界会随着所装入图：图片框的边界会随着所装入图片的大小变化而变化。片的大小变化而变化。图片框控件图片框控件- -常用方法和事件常用方法和事件 1 1、常用方法、常用方法PrintPrint方法：图片框控件名称

10、方法：图片框控件名称.Print .Print 输出表输出表ClsCls方法：图片框上除了所装入的图片外，其他的方法：图片框上除了所装入的图片外，其他的所有文字、图形都可以用所有文字、图形都可以用ClsCls方法擦除。方法擦除。2 2、常用事件、常用事件ClickClickMouseDownMouseDownMouseUpMouseUpMouseMoveMouseMove6.3 6.3 影像框控件影像框控件- -常用属性常用属性 1、Picture（字符串类型）（字符串类型） 与图片框控件的与图片框控件的Picture属性一样属性一样 2、Stretch（逻辑型）（逻辑型） 将根据控件的大小来

11、自动调整图片的大小。将根据控件的大小来自动调整图片的大小。 影像框控件只能用于显示图像，不支持图形方法，影像框控件只能用于显示图像，不支持图形方法，也不能当作容器来使用。也不能当作容器来使用。 影像框控件影像框控件- -常用方法和事件常用方法和事件 1 1、方法：无。、方法：无。2 2、常用事件：、常用事件：ClickClick。例例6-1：如图所示，单击如图所示，单击Image1Image4时，时，Image5显示相显示相应图片，同时在应图片，同时在Picture1中显示被选中图案的文字信息，中显示被选中图案的文字信息，6.4 6.4 形状控件和直线控件形状控件和直线控件一、形状控件一、形状

12、控件 1 1、ShapeShape属性：用于创建指定的图形。属性：用于创建指定的图形。 通过设置通过设置ShapeShape属性来得到所需要的形状，属性来得到所需要的形状，画出正方形、矩形、圆和椭圆等。画出正方形、矩形、圆和椭圆等。 Shape=Shape=0 或或 vbShapeRectangle：矩形：矩形 。Shape=Shape=1 或或 vbShapeSquare： 正方形。正方形。Shape=Shape=2 或或 vbShapeOval： 椭圆形。椭圆形。Shape=Shape=3 或或 vbShapeCircle： 圆形。圆形。Shape=Shape=4 或或 vbShapeRo

13、undedRectangle：圆角矩形。：圆角矩形。Shape=Shape=5 或或 vbShapeRoundedSquare： 圆角正方形。圆角正方形。 形状控件和直线控件形状控件和直线控件 2 2、BorderStyle属性（整数属性（整数06）：定义图形边框样式。）：定义图形边框样式。 BorderStyle = 0：透明，即无边框。：透明，即无边框。BorderStyle = 1：实线。（缺省值）：实线。（缺省值）BorderStyle = 2：长虚线。：长虚线。BorderStyle = 3：虚线。：虚线。BorderStyle = 4：点划线。：点划线。BorderStyle =

14、5：双点划线。：双点划线。BorderStyle = 6：内插实线。：内插实线。形状控件和直线控件形状控件和直线控件 3 3、FillStyle属性（整数属性（整数07）：用于指定图形的填充样式。）：用于指定图形的填充样式。 FillStyle=0：实心填充。：实心填充。FillStyle=1：透明，即不填充。（缺省值）：透明，即不填充。（缺省值）FillStyle=2：水平线填充。：水平线填充。FillStyle=3：垂直线填充。：垂直线填充。FillStyle=4：斜线填充。：斜线填充。FillStyle=5：反斜线填充。：反斜线填充。FillStyle=6：网格填充。：网格填充。Fill

15、Style=7：倾斜网格填充。：倾斜网格填充。形状控件和直线控件形状控件和直线控件 4、其他、其他常用属性常用属性 BorderColor：设置边框颜色。：设置边框颜色。 FillColor：设置填充颜色。：设置填充颜色。例例6-2：演示演示形状控件及形状控件及FillStyleFillStyle和和FillColorFillColor。 形状控件和直线控件形状控件和直线控件二、直线控件二、直线控件 直线控件与形状控件相似，但只用于画线。直线控件与形状控件相似，但只用于画线。 常用属性：常用属性：X1 / Y1 / X2 / Y2X1 / Y1 / X2 / Y2：起点与重点坐标值。：起点与重

16、点坐标值。BorderColorBorderColor：线条颜色。：线条颜色。BorderWidthBorderWidth：线条宽度。：线条宽度。6.5 6.5 图形方法图形方法 颜色颜色一、颜色一、颜色 VB 6.0用一个长整型数表示颜色。（常用用一个长整型数表示颜色。（常用16进制进制表示）表示） 使用使用“红、绿、兰红、绿、兰”三色原理。即三色原理。即数值由数值由3部分部分组成组成 ，&HBBGGRR。颜色的。颜色的亮度值取值亮度值取值范围从范围从0255，用，用两位十六进制数表示，即从两位十六进制数表示，即从 00 到到 FF。2 2、颜色函数、颜色函数（1 1）QBColor

17、(Color)QBColor(Color)： ColorColor取值取值 0-150-15（2 2）RGB(Red,Green,Blue)RGB(Red,Green,Blue)：Red/Green/BlueRed/Green/Blue取值：取值：0-2550-2553 3、使用预定义常量、使用预定义常量 1 1、直接使用常数：如、直接使用常数：如 &HFF0000 &HFF0000 表示蓝色。表示蓝色。颜色表示：颜色表示：黑色黑色:vbBlack:vbBlack &H0 RGB(0,0,0) &H0 RGB(0,0,0)红色红色:vbRed &HFF

18、RGB(255,0,0):vbRed &HFF RGB(255,0,0)绿色绿色:vbGreen:vbGreen &HFF00 &HFF00 RGB(0,255,0) RGB(0,255,0)黄色黄色:vbYellow:vbYellow &HFFFF RGB(255,255,0) &HFFFF RGB(255,255,0)兰色兰色:vbBlue:vbBlue &HFF0000 RGB(0,0,255) &HFF0000 RGB(0,0,255)洋红洋红:vbMagenta &HFF00FF RGB(255,0,255):vbMag

19、enta &HFF00FF RGB(255,0,255)青色青色:vbCyan:vbCyan &HFFFF00 RGB(0,255,255) &HFFFF00 RGB(0,255,255)白色白色:vbWhite:vbWhite &HFFFFFF RGB(255,255,255) &HFFFFFF RGB(255,255,255)图形方法图形方法 画点画点二、二、画点方法：画点方法：PsetPset 格式：格式： 容器容器.Pset step(x,y),color.Pset step(x,y),color 说明：说明： 1、 color：画点颜色。画点颜

20、色。 缺省缺省时时为容器前景色为容器前景色( (ForeColor)。 2、(x,y)：画点坐标。：画点坐标。 3 3、Step：画点坐标为画点坐标为 (容器名容器名.CurrentX+x，容器名，容器名.CurrentY+y) 4、点的大小由容器的、点的大小由容器的DrawWidth属性值决定。属性值决定。图形方法图形方法 取颜色取颜色三、三、返回某点颜色值的函数：返回某点颜色值的函数：Point 格式：格式： 容器容器.Point (x,y) (x,y) 说明：说明： 返回点返回点(x,y)的颜色值。的颜色值。例例6-3 编程，绘制编程，绘制Cos(x)函数曲线。函数曲线。 图形方法图形方

21、法 画线画线四、四、画线：画线：LineLine格式格式1 1： 容器名容器名.Line (x1,y1)-(x2,y2),Color.Line (x1,y1)-(x2,y2),Color从从(x1,y1)(x1,y1)到到(x2,y2)(x2,y2)画一条直线。画一条直线。格式格式2 2： 容器名容器名.Line (x1,y1)-Step(x2,y2),Color.Line (x1,y1)-Step(x2,y2),Color从从(x1,y1)(x1,y1)到到(x1+x2,y1+y2)(x1+x2,y1+y2)画一条直线画一条直线。Color：线条颜色。：线条颜色。缺省时为容器的缺省时为容器的

22、ForeColor。 图形方法图形方法 画矩形画矩形五、五、画矩形：画矩形：LineLine格式一：格式一： 容器容器.Line (x1,y1)-Step(x2,y2),Color,B.Line (x1,y1)-Step(x2,y2),Color,B指定位置为矩形对角点；指定位置为矩形对角点；以容器的以容器的FillStyleFillStyle填充格式；填充格式；以以FillColorFillColor颜色在矩形内部填充；颜色在矩形内部填充；图形边框的颜色由图形边框的颜色由ColorColor表达式指定。表达式指定。格式二：格式二： 容器名容器名.Line (x1,y1)-Step(x2,y2

23、),Color,BF.Line (x1,y1)-Step(x2,y2),Color,BF用画矩形边框的颜色再填充矩形为实心；用画矩形边框的颜色再填充矩形为实心；该语句的输出效果与容器的该语句的输出效果与容器的FillStyleFillStyle、FillColorFillColor属性无关。属性无关。图形方法图形方法 画圆画圆六、六、画圆：画圆：CircleCircle 格式：格式： 容器名容器名. .Circle Step(x,y),radius,Color 以以(x,y) (x,y) 为圆心；为圆心； 有有StepStep：以：以(CurrentX+x,CurrentY+y)(Curren

24、tX+x,CurrentY+y)为圆心；为圆心； 以以radiusradius为半径；为半径； 以以ColorColor为颜色画圆。为颜色画圆。图形方法图形方法 画圆弧画圆弧七、七、画圆弧：画圆弧：CircleCircle 格式：格式： 容器名容器名.Circle Step(x,y),radius,Color,start,end 以以(x,y)/(CurrentX+x,CurrentY+y)(x,y)/(CurrentX+x,CurrentY+y)为圆心；为圆心； 以以radiusradius为半径；为半径； 以以ColorColor为颜色；为颜色； 以以start弧度为起点按逆时针方向到弧度

25、为起点按逆时针方向到end弧度为止弧度为止画一段圆弧。画一段圆弧。 当当 start 和和 end 为负值时，画的是一个扇形。为负值时，画的是一个扇形。图形方法图形方法 画椭圆画椭圆七、七、画椭圆：画椭圆：CircleCircle 格式：格式： 容器名容器名. Circle Step(x,y),radius,Color,start,end,aspect 以以(x,y)/(CurrentX+x,CurrentY+y)(x,y)/(CurrentX+x,CurrentY+y)为圆心；为圆心； 以以radiusradius为半径；为半径； 以以ColorColor为颜色；为颜色； 以以start弧度为起点按逆时针方向到弧度为起点按逆时针方向到end弧度为弧度为止画一段圆弧。止画一段圆弧。 aspect为为正数，椭圆的纵横比。正数，椭圆的纵横比。举例：举例：1编程，在图片框中画一个以两点为对角的矩形编程，在图片框中画一个以两点为对角的矩形（图