vb图形控件和图形方法

⒊ Align属性(整数0～4)
Align属性值为0，标准位置，图片框在原位置。 Align属性值为1，则图片框贴紧到窗体的上边。 Align属性值为2，则图片框贴紧到窗体的下边。 Align属性值为3，则图片框贴紧到窗体的左边。
Align属性值为4，则图片框贴紧到窗体的右边。
例5-1 图片的加载和复制。
蓝色的 亮度值
绿色的 亮度值
红色的 亮度值
18
⒈ 颜色函数
⑴ RGB函数
RGB函数是颜色函数中最常用的一个，其使用格式为： RGB（Red,Green,Blue） 其中：Red、Green、Blue分别表示红色的亮度值，绿色的亮度 值和蓝色的亮度值。取值范围都是0-255。
如将窗体Form1的背景色设置为红色，命令如下：
10
5.2.2
图片框控件常用方法
1. Print方法 输出文本，格式如下：
图片框控件名称.Print 输出表
2. Cls方法 除所装图片外，其他的所有文字、图形可用Cls方法擦除。 格式如下： 图片框控件名称.Cls
图片框控件还可以用Circle、Line、Pset、Point等图形方法，
在图片框上画出图形。图片框控件可以响应Change、Click、 MouseDown、MouseUp、MouseMove等常用事件。
功能：该方法在容器上（x,y）处以值为color的颜色画点。
（1）缺省容器则指当前窗体，缺省color则为容器前景色。 （2）容器的当前输出位置坐标为（容器名.CurrentX，容器 名.CurrentY），加Step关键字则在坐标（容器名.CurrentX+x， 容器名.CurrentY+y）位置画点。 （3）该方法所画点的大小，取决于容器的DrawWidth属性值。 DrawWidth用来设置绘图线的宽度，值以像素为单位，取值范 围是1到32767，缺省值为1即一个像素宽。设置该属性后，影响 Pset、Line和Circle等方法的输出效果。
Picture1.Line(-PI,0)-(PI,0)
Picture1.Line(0,-1)-(0,1)
8
6.2
6.2.1
图片框控件（Picture1）
图片框控件常用属性
⒈ Picture 属性（字符串类型） 标识将在图片框中显示的图形文件的文件名。 ⑴ 设计时选取
在界面设计时，选中该图片框控件属性窗口中该属性，在弹
6
⑷ ScaleMode属性值为4 容器坐标系的刻度单位为字符，每个字符宽6磅、高12磅。 ⑸ ScaleMode属性值为5
容器坐标系的刻度单位为英寸。
⑹ ScaleMode属性值为6 容器坐标系的刻度单位为毫米。 ⑺ ScaleMode属性值为7 容器坐标系的刻度单位为厘米。
7
2.自定义刻度 将ScaleMode值设置为0则采用自定义刻度。 用Scale方法设置坐标系统后，ScaleMode值自动变为0。反 之，ScaleLeft、ScaleTop、ScaleHeigt、ScaleWidth属性被 改变，ScaleMode值自动变为0，单位长度根据变化后的上述 属性重新确定。 例：分析下面的语句： Const PI = 3.1415926 Picture1.Scale(-PI,1)-(PI,-1)
则：左上角坐标为（-200，-100） 右下角坐标为（2000，1000） 窗体的坐标属性的值为： ScaleLeft = -200
ScaleTop = -100
ScaleWidth = 2200 ScaleHeight = 1100
5
5.1.3
坐标刻度
1英寸 = 1440缇
坐标刻度又称坐标单位，缺省情况采用Twip（缇）为单位。 1厘米 = 567缇
最大尺寸等于设定值。
15
⑶ FillStyle属性（整数0～7） 该属性用于指定图形的填充样式。取值及含义如下： • 0：实心填充，为缺省值。
• 1：透明，即不填充。
• 2：水平线填充。 • 3：垂直线填充。 • 4：斜线填充。 • 5：反斜线填充。
• 6：网格填充。
•Байду номын сангаас7：倾斜网格填充。
16
⑷ 其他常用属性 • BorderColor：设置边框颜色。 • FillColor：设置填充颜色。
24
⒉ 返回某点颜色值的函数Point 格式：Point(x,y) 该函数的返回值为点(x,y)的颜色值。
例 5-5 利用Pset方法绘制Cos（x）函数曲线。 Private Sub Form_Click() Dim i As Integer, x As Integer For i = 0 To 10000 PSet (i, 1200), vbRed Next i For x = 0 To 10000 PSet (x, 1000 * Cos(x * 3.1415926 / 1800) + 1200), vbBlue Next x 25 End Sub
21
Color参数的设置值及对应的颜色： 参数值
0 1 2 3
颜 色
黑色 蓝色 绿色 青色
参数值
8 9 10 11
颜 色
灰色 亮蓝色 亮绿色 亮青色
4
5 6 7
红色
洋红色 黄色 白色
12
13 14 15
亮红色
亮洋红色 亮黄色 亮白色
22
⒉ 使用预定义常量 预定义常量在VB 6.0内部定义，读者可以在视图菜单的“对象 浏览器”中选择ColorConstants查看所有这些常量，在程序中 不需要声明就可以直接使用。如： Form1.BackColor = vbRed ⒊ 直接赋值
如果知道具体的颜色值，也可以直接给颜色属性赋值，如：
Form1.BackColor=&HFF& Form1.BackColor=&HFF00& Form1.BackColor=&HFFFF00& '设置窗体背景色为亮红色 '设置窗体背景色为亮绿色 ‘设置窗体背景色为青色
23
5.5.2 图形方法
⒈ 画点方法Pset 格式：[容器.]Pset [step](x,y)[,color]
Form1.BackColor = RGB(255,0,0)
19
RGB函数采用红、绿、蓝三色原理，返回一个Long整数， 来表示一个颜色值。表5-1列出了一些常见的颜色以及这些颜 色的三色值。
颜 色 白色 黄色 洋红色 红色 青色 绿色 蓝色 黑色
红色值 255 255 255 255 0 0 0 0
该属性值为容器自身的高度值
⑸ CurrentX、CurrentY属性（数值类型） 分别表示当前点在容器内的横坐标、纵坐标。
4
5.1.2
改变容器坐标系的Scale方法
格式：容器名.Scale (x1,y1)-(x2,y2) 功能：改变容器原点坐标为(x1,y1)，最大坐标为(x2,y2)
如执行语句：Form1.Scale (-200,-100)-(2000,1000)
出的LoadPicture对话框中选择所要显示的图片文件，相应的图 片随之被加载到图片框中。 ⑵ 运行时装入 程序运行时，可用LoadPicture函数装入图片。格式为：
图片框控件名.Picture = LoadPicture(filename$)
9
⒉ AutoSize 属性（逻辑类型） AutoSize属性值为True时，图片框的边界会随着所装入图片 的大小变化而变化。
End Sub
2
执行结果：
3
⒊ 容器（窗体、图片框）的坐标属性 ⑴ ScaleLeft属性（数值类型） 该属性值为容器左上角的横坐标，缺省值为0。
⑵ ScaleTop属性（数值类型）
该属性值为容器左上角的纵坐标，缺省值为0。 ⑶ ScaleWidth属性（数值类型） 该属性值为容器自身的宽度值。 ⑷ ScaleHeight属性（数值类型）
常用的刻度单位为：缇、磅和毫米。
⒈ 设置（选择）标准刻度 ⑴ ScaleMode属性值为1（缺省值） 容器坐标系的刻度单位为缇，1缇≈0.01764毫米≈0.05磅 ⑵ ScaleMode属性值为2
容器坐标系的刻度单位为磅，1磅≈0.353毫米
⑶ ScaleMode属性值为3 容器坐标系的刻度单位为像素，是显示器分辨率的最小单位。
17
5.5
图形方法
5.5.1 使用颜色
VB 6.0使用的颜色用一个长整型数（通常用16进制）表示， 如&HFFFF00&。其数值由3部分组成： (1) 右边的两位（00）代表红色的亮度值， (2) 中间的两位（FF）代表绿色的亮度值， (3) 左边的两位（FF）代表蓝色的亮度值。 每个亮度值的取值范围为：0-255，用16进制表示为：00-FF。 F F F F 00 显示青色
• 5或VbShapeRoundedSquare：控件形状为圆角正方形。
14
⑵ BoderStyle属性（整数0～6） 该属性定义图形边框样式。 • 0：透明，即无边框。
• 1：实线，为缺省值。
• 2：长虚线。 • 3：虚线。 • 4：点划线。 • 5：双点划线。
• 6：内插实线，如果BorderWidth属性值大于1，控件保证图形
Print Top, Left, Height, Width
Print Frame1.Top, Frame1.Left, Print Frame1.Height, Frame1.Width Print Text1.Top, Text1.Left, Print Text1.Height, Text1.Width
第 5章
5.1.1
图形控件和图形方法
5.1 VB坐标系
容器坐标系