Visual Basic 程序设计甘肃农业大学信息科学技术学院
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
Visual Basic中与图形有关的标准控件有
4种，即：
– 图片框（ PictureBox）
– 图像框（ Image）
– 直线（ Line）
– 形状（ Shape）等。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
直线控件 （ Line） 和形状控件 (Shape),是图形控件 。
– 直线控件可以显示水平线,垂直线或者对角线,
通过属性的设置可以改变直线的粗细,颜色和样式 。
– 形状控件预定义了 6种形状,可以显示矩形,正方形,椭圆,圆形,圆角矩形或者圆角正方形,
同时可以设置形状的颜色和填充图案 。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
直线控件属性
– 直线除了具有 Name,Visible,Parent,Tag
等标准属性外，还具有以下属性：
X1,Y1,X2,Y2属性
– 返回或设置直线控件的起始点 (X1,Y1) 和终止点 (X2,Y2)
的坐标。水平坐标是 X1 和 X2；垂直坐标是 Y1 和 Y2。
BorderColor属性
– 返回或设置直线的颜色。
BorderStyle属性
– 返回或设置直线的样式，取值如表 9.1所示
BorderWidth属性
– 返回或设置直线的宽度，默认单位为像素
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
形状控件属性
– Name,Visible,Left,Top,Height,Width等标准属性适用于形状控件，上述的 BorderColor属性,BorderStyle属性、
BorderWidth属性也可用于形状控件，分别设置形状边界的颜色、
形状边界线的样式和形状边界线的宽度。
– 除此以外形状控件还有下列属性：
BackStyle属性
– 返回或设置形状控件背景是透明的还是非透明的，同 Label控件。如果该属性设置为非透明，则由 BackColor属性所指定的颜色来填充。
FillColor属性
– 返回或设置用于填充形状的颜色。
FillStyle 属性
– 返回或设置用来填充形状的图案，取值如表 9.2所示。
Shape属性
– 返回或设置一个值，该值指示一个 Shape控件的外观，取值如表 9.3所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
【 例 9-1】 用 Shape控件的 Shape属性显示 Shape控件的 6种形状,并填充不同的图案,如图所示 。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2 图形操作基础
9.2.1 坐标系统
9.2.2 自定义坐标系
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
对象的坐标系统是绘制各种图形的基础。
设置坐标系统的目的在于确定容器中点的位置。
– 坐标包括横坐标 (x轴 )和纵坐标 (y轴 ),x值是指点与原点的水平距离,y值是指点与原点的垂直距离。
– 坐标系统选择的恰当与否将直接影响着图形的质量和效果。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
窗体、框架（ Frame）、图片框（ Picture Box）等都可以作为其他控件的容器。因此如果在窗体中放置控件或绘图，
坐标 (x,y)的值就是以窗体为容器；如果在窗体的图片框中绘制控件，坐标 (x,y)就以图片框为容器。任何容器的默认坐标系统，都是从容器的左上角 (0,0)坐标开始。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
Visual Basic中有 8种坐标系统，如表所示。默认的坐标系统以缇（ Twip）为单位。
属性值 坐标单位
0 用户自定义类型。当用 ScaleWidth,ScaleHeight,ScaleTop,ScaleLeft设置坐标系统后,ScaleMode自动设置为 0。
1 缇（ Twip）,1 Twip=1/1440英寸。
2 点（ Point）,1点 =1/72英寸。
3 像素（ Pixel）
4 字符（ Character）
5 英寸（ Inch）
6 毫米（ Millimeter）
7 厘米（ Centimeter）
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
坐标系统的度量单位可通过 ScaleMode属性来设置，
设置对象的 ScaleMode属性可以改变坐标系统的单位。
其语法格式为：
[对象 ].ScaleMode
Scale方法用于为窗体、图片框或 Printer对象设置新的坐标系统，其语法格式为：
[对象 ].Scale (x1,y1) - (x2,y2)
– 其中,(x1,y1)设置对象的左上角坐标,(x2,y2)设置对象右下角坐标。
– 使用 Scale方法将把对象在 x方向上分为 x2－ x1等分，在 y方向上分为 y2－ y1等分。
– 使用 Scale方法将自动把 ScaleMode属性设置为 0。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2 图形操作基础
9.2.1 坐标系统
9.2.2 自定义坐标系
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.2 自定义坐标系
对象的坐标系允许用户自行定义。 Scale方法是建立用户坐标系最方便的方法，其语法如下：
[对象,]Scale [(xLeft,yTop) - (xRight,yBotton)]
– 其中：对象可以是窗体、图片框或打印机。如果省略对象名，则为带有焦点的窗体对象。
– (xLeft,yTop)表示对象的左上角的坐标值，
(xRight,yBotton)为对象的右下角的坐标值。
均为单精度数值。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.2 自定义坐标系
【 例 9-2】 在 Form_Paint事件中通过 Scale
方法定义窗体 Form1的坐标系。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.2 自定义坐标系
任何时候在程序代码中使用 Scale方法都能有效地和自然地改变坐标系统。当 Scale方法不带参数时，
则取消用户自定义的坐标系，而采用默认坐标系。
– 此外，也可通过设置对象的 ScaleTop,ScaleLeft，
ScaleWidth和 ScaleHeight四项属性来定义坐标系。
– 对象左上角坐标为 (ScaleTop,ScaleLeft)，右下角坐标为 (ScaleLeft+ScaleWidth,ScaleTop+ScaleHeight)。
根据左上角和右下角坐标值的大小自动设置坐标轴的正向。 X轴与 Y轴的度量单位分别为 1/ScaleWidth和
1/ScaleHeight。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3 绘图属性
9.3.1 当前坐标
9.3.2 线宽与线型
9.3.3 填充与色彩
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.1 当前坐标
窗体或图片框或打印机的 CurrentX,CurrentY属性给出这些对象在绘图时的当前坐标。
– 这两个属性在设计阶段不能使用。
– 当坐标系确定后，坐标值 (x,y)表示对象上的绝对坐标位置。
– 如果坐标值前加上关键字 Step，则坐标值 (x,y)表示对象上的相对坐标位置，即从当前坐标分别平移 x,y个单位，其绝对坐标值为 (CurrentX+x,CurrentY+y)。
– 当使用 Cls方法后,CurrentX,CurrentY属性值为 0。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.1 当前坐标
【 例 9-3】 用 Print方法在窗体上随机显示 50
个“★”和 50个“☆”，如下图所示
– 分析：利用 CurrentX,CurrentY属性可指定 Print方法在窗体上的输出位置。用 Rnd函数与窗体的 Width和 Heigth属性相乘，产生
CurrentX,CurrentY的值。由于 Rnd函数产生的值在 0到 1之间，
故 CurrentX,CurrentY必定在窗口有效区域内。可以用循环控制变量的奇偶性决定 "★ "或 "☆ "的输出。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3 绘图属性
9.3.1 当前坐标
9.3.2 线宽与线型
9.3.3 填充与色彩
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.2 线宽与线型
窗体、图片框或打印机的 DrawWidth属性给出这些对象上所画线的宽度或点的大小。
– DrawWidth属性以像素为单位来度量，最小值为 1。
– 窗体或图片框或打印机的 DrawStyle属性给出这些对象上所画线的形状。
– 属性设置意义及效果如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.2 线宽与线型
【 例 9-4】 通过改变 DrawStyle属性值在窗体上画出不同的线形，产生如上图所示效果。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3 绘图属性
9.3.1 当前坐标
9.3.2 线宽与线型
9.3.3 填充与色彩
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
封闭图形的填充方式由 FillStyle,FillColor
这两个属性决定。
– FillColor属性指定填充图案的颜色，默认的颜色与 ForeColor相同。
– FillStyle属性指定填充的图案，共有 8种内部图案，属性设置填充图案如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
Visual Basic默认采用对象的前景色
（ ForeColor属性）绘图，也可以通过以下颜色函数指定色彩。
– RGB函数
RGB函数通过红、绿、蓝三基色混合产生某种颜色，
常见的标准颜色 RGB值如表 9.6。其语法为：
RGB(红，绿，蓝 )
其中：括号中红、绿、蓝三基色的成份使用 0~255
之间的整数。例如,RGB(0,0,0)返回黑色；而
RGB(255,255,255)返回白色。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
– QBColor函数
QBColor函数采用 QuickBasic所使用的 16种颜色，
如表 9.7。其语法格式为：
QBColor(颜色码 )
其中,QBColor函数的颜色码实际上返回一个指定红、绿、蓝三原色的值，用于设置 Visual Basic中
RGB系统的对应颜色。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
【 例 9-5】 利用滚动条设计一个调色板。
– 在窗体上添加 3个水平滚动条 (数组形式 )用于调整红色、
绿色及蓝色的值，并将其 Min属性设为 0,Max属性设为 255。添加 3个标签用于表示滚动条的当前数值。添加 4个图片框,Picture1用于响应调出的颜色，并将另外 3个 BackColor属性设为红色、绿色及蓝色，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
【 例 9-6】 演示颜色的渐变过程。
– 分析：要定义渐变，可多次调用 RGB函数，每次对
RGB函数的参数稍作变化。下面的程序用线段填充矩形区，通过改变直线的起终点坐标和 RGB函数中三基色的成份产生渐变效果，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
– 直接输入数值
颜色值的格式是 16进制的，为 &HBBGGRR。 BB代表蓝色,GG代表绿色,RR代表红色。
– 使用颜色常数
Visual Basic 将经常使用的颜色值定义为内部常数，
颜色常数包括,vbBlack,vbRed,vbGreen、
vbYellow,vbBlue,vbMagenta,vbCyan、
vbWhite等，这些常数可以使用对象浏览器列出。当使用这些内部常数时，无需了解这些常数是如何产生的，也无需声明。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Cls方法 (清除 )
– Cls方法用于清除所有图形方法和 Print方法显示的文本或图形，并将光标移动到原点位置。
其语法格式为：
[对象,]Cls
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
PSet方法 (画点 )
– PSet方法可以在对象的指定位置按确定的像素颜色画点，格式为：
[对象,]PSet [Step] (x,y) [,Color]
– 说明：
(x,y)为必需的，可以是整数也可以包含小数。
Step为可选关键字，指定相对于由 CurrentX和
CurrentY属性提供的当前图形的位置坐标。
Color用于为该点指定颜色，缺省时，使用当前的
ForeColor属性值。可用 RGB函数或 QBColor函数指定颜色。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，在窗体上添加一个计时器 Timer1，
并设置其 Interval属性值。将 Form1的
BackColor属性修改为黑色。
– 程序运行结果如图所示
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Line方法 (画线 )
– Line方法可以在对象上的两点之间画直线或矩形，格式为：
[对象,]Line [[Step](x1,y1)]-[Step] (x2,y2) [,颜色 ]
[,B[F]]
– 说明：
(x1,y1)为起点坐标,(x2,y2)为终点坐标，如果省略
(x1,y1)，则起点位于由 CurrentX和 CurrentY指示的位置。带 Step关键字表示与当前坐标的相对位置。
B为可选项。省略此项是画直线，如果选择 B则以
(x1,y1)为左上角坐标,(x2,y2)为右下角坐标画出矩形。 F选项规定矩形以矩形边框的颜色填充。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
执行 Line方法后,CurrentX和 CurrentY属性被设置为终点，利用此特性可用 Line方法画连接线。
例如，可以利用 Line方法在窗体上画三个矩形方框，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Circle方法 (画圆 )
– Circle方法可以在对象上画圆、椭圆或圆弧，格式为：
[对象,]Circle [Step](x,y),半径 [,颜色,起点,终点,纵横比 ]
– 说明：
(x,y)是圆、椭圆或圆弧的中心坐标，带 Step关键字时表示与当前坐标的相对位置，半径是圆、椭圆或圆弧的半径。起点、终点指定（以弧度为单位）弧或扇形的起点以及终点位置。其范围从－ 2π到 2π。起点的缺省值是 0，终点的缺省值是 2π。正数画弧，负数画扇形。
纵横比为垂直半径与水平半径之比，不能为负数。当纵横比大于 1时，椭圆沿垂直方向拉长，当纵横比小于 1时，椭圆沿水平方向拉长。纵横比的缺省值为 1，在屏幕上产生一个标准的圆。
在椭圆中，半径总是对应长轴。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，通过以下代码可以在窗体上画出一个扇形、圆、椭圆，如图所示。
Private Sub Form_Click()
Const PI = 3.14159
Circle (2000,1500),1000,vbBlue,-PI,-PI / 2
Circle Step(-500,-500),500
Circle Step(0,0),500,,,,5 / 25
End Sub
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
PaintPicture方法
– PaintPicture方法用于在 Form,PictureBox或 Printer上绘制出图形文件的内容，图形文件类型包括,bmp,.ico,.wmf,.emf,.cur,.ico
和,dib等。 PaintPicture的一般格式为：
[对象,]PaintPicture 图形,x1,y1[,宽度 1[,高度 1,x2[,y2[,宽度 2[,高度 2[,位操作常数 ]]]]]]
– 说明：
图形：指图形文件，可以是 Form或 PictureBox的 Picture属性指定的图形文件。
x1,y1：指在对象上绘制图形的坐标，由对象的 ScaleMode属性决定度量单位。
宽度 1，高度 1：对象的宽度或高度。如果省略，则使用图形的宽度或高度。
x2,y2：指图形剪贴区的左上角坐标，默认为 (0,0)。
宽度 2，高度 2：指图形内剪贴区的宽度或高度，默认为整个图形的宽度或高度。如果宽度 1、高度 1比宽度 2、高度 2大或小，将适当地拉伸或压缩图形。
位操作常数：用来定义在将图形绘制到对象上时执行的位操作。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，在窗体上添加一个图片框 Picture1，设置其相应的
Picture属性后，将 Visible属性设为 False。然后编写如下代码：
Private Sub Form_Click()
ScaleHeight = 800
Num = Form1.ScaleWidth / Picture1.Width
For i = 1 To Num
Form1.PaintPicture Picture1.Picture,(i-1)*Picture1.Width,200,Picture1,
Width,Picture1.Height
Next
End Sub
运行程序，则会在窗体中画出 Picture1的多个拷贝，
如图 9.14所示
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Point方法
– Point方法用于返回窗体或图形框上指定点的 RGB
颜色，其语法格式为：
[对象,]Point (x,y)
– 如果由（ x,y）指定的点在对象外面,Point方法返回一个 -1（ False）。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，用 Point方法获取一个区域的信息并使用 Pset方法进行仿真。
– 分析：在窗体上放置一个 Picture控件，在程序中设置窗体和 Picture控件各自的坐标系。在 Picture控件上输出字符串或图形，然后用 Point方法扫描 Picture控件上的信息，
根据返回值在窗体对应坐标位置上用 Pset方法输出信息，
达到仿真的目的
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.1 几何图形绘制
【 例 9-7】 画金刚石图案。
– 本例中利用多条直线来画图案，先计算出直线端点所需坐标并存入数组之中。结果如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.1 几何图形绘制
【 例 9-8】 画圆环。
– 本例用多个点来画多个椭圆，并构成圆环，如图所示，
其中有一个 PictureBox控件,名为 p。注意其中使用了
Scale方法来自定义坐标系。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.1 几何图形绘制
【 例 9-9】 画螺线。
– 本例用多个点来组成一条螺线，如图所示。
– 这是一个参数方程的绘图例子。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.2 菜单和图形操作的综合应用
【 例 9-10】 利用菜单在窗体图片框中选择画出正弦曲线和余弦曲线。
– 首先在窗体上设计一个三角函数菜单（菜单控件数组），并添加一个图片框 Picture1，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.3 简单动画设计
【 例 9-11】 曲柄滑块机构的演示。
– 利用 Timer控件来控制图形控件的转动，如图所示
– 首先，在窗体上添加一个命令按钮 Command1,4个形态控件
Shape1(大圆 ),Shape2(滑块 ),Shape3(圆周上的动点 )、
Shape4(圆心 )，若干直线 Line1(半径 ),Line2(连杆 )，一个计时器
Timer1。并将 Timer1的 Interval属性值设为 100,Enabled属性值设为 False。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.3 简单动画设计
【 例 9-12】 一个走动的时钟。
– 时钟作为一种生活用品，有时针、分针和秒针，并且可以走动。
本例分别以 Second,Minute和 Hour函数把系统时间 Time分离成
“秒”、“分”和“时”，再利用定时器控件把时间处理成图形，
其中时针、分针、秒针和刻度的定位需要用三角函数来处理。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.4 图像的颜色处理
【 例 9-13】 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.4 图像的颜色处理
– 进行变灰的处理的方法是，用 GetPoint()方法得到某点的颜色值，然后利用公式：
y = 0.299 * r + 0.587 * g + 0.144 * b
得到该点的亮度值，并用 RGB（ y,y,y）作为该点的颜色，从而得到一个变灰的点；若用下式：
RGB( y * 1.4 + y * 0.9 + y * 0.7 )
则会得到一幅有淡红色的图。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.4 图像的颜色处理
– 进行锐化处理的原理是，对于图像中的任一点，将该点的颜色加上一个分量，这个分量是附近几个点的颜色的差值（再乘以一个比例系数）。
由于这个差值分量的加入，使原图的相邻部分的差别更加明显，从而对原图起到了一个锐化的作用。在程序中使用语句：
ScaleMode = vbPixels
将窗体的坐标单位设置为像素点，这样可方便 GetPoint()函数中坐标值的使用。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社学完本章你应能够：
掌握常用图形控件的使用；
了解坐标系统；
理解绘图属性；
理解图形方法；
掌握图形操作的应用。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社思 考 题
1,如何建立用户坐标系？
2,RGB函数中的参数按什么颜色排列？其有效的数值范围是多少？怎样用 RGB函数实现色彩的渐变？
3,怎样用 Circle方法画圆、椭圆、圆弧和扇形？
4,怎样用 Point方法比较两张图片？
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
Visual Basic中与图形有关的标准控件有
4种，即：
– 图片框（ PictureBox）
– 图像框（ Image）
– 直线（ Line）
– 形状（ Shape）等。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
直线控件 （ Line） 和形状控件 (Shape),是图形控件 。
– 直线控件可以显示水平线,垂直线或者对角线,
通过属性的设置可以改变直线的粗细,颜色和样式 。
– 形状控件预定义了 6种形状,可以显示矩形,正方形,椭圆,圆形,圆角矩形或者圆角正方形,
同时可以设置形状的颜色和填充图案 。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
直线控件属性
– 直线除了具有 Name,Visible,Parent,Tag
等标准属性外，还具有以下属性：
X1,Y1,X2,Y2属性
– 返回或设置直线控件的起始点 (X1,Y1) 和终止点 (X2,Y2)
的坐标。水平坐标是 X1 和 X2；垂直坐标是 Y1 和 Y2。
BorderColor属性
– 返回或设置直线的颜色。
BorderStyle属性
– 返回或设置直线的样式，取值如表 9.1所示
BorderWidth属性
– 返回或设置直线的宽度，默认单位为像素
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
形状控件属性
– Name,Visible,Left,Top,Height,Width等标准属性适用于形状控件，上述的 BorderColor属性,BorderStyle属性、
BorderWidth属性也可用于形状控件，分别设置形状边界的颜色、
形状边界线的样式和形状边界线的宽度。
– 除此以外形状控件还有下列属性：
BackStyle属性
– 返回或设置形状控件背景是透明的还是非透明的，同 Label控件。如果该属性设置为非透明，则由 BackColor属性所指定的颜色来填充。
FillColor属性
– 返回或设置用于填充形状的颜色。
FillStyle 属性
– 返回或设置用来填充形状的图案，取值如表 9.2所示。
Shape属性
– 返回或设置一个值，该值指示一个 Shape控件的外观，取值如表 9.3所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.1 图形控件
【 例 9-1】 用 Shape控件的 Shape属性显示 Shape控件的 6种形状,并填充不同的图案,如图所示 。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2 图形操作基础
9.2.1 坐标系统
9.2.2 自定义坐标系
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
对象的坐标系统是绘制各种图形的基础。
设置坐标系统的目的在于确定容器中点的位置。
– 坐标包括横坐标 (x轴 )和纵坐标 (y轴 ),x值是指点与原点的水平距离,y值是指点与原点的垂直距离。
– 坐标系统选择的恰当与否将直接影响着图形的质量和效果。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
窗体、框架（ Frame）、图片框（ Picture Box）等都可以作为其他控件的容器。因此如果在窗体中放置控件或绘图，
坐标 (x,y)的值就是以窗体为容器；如果在窗体的图片框中绘制控件，坐标 (x,y)就以图片框为容器。任何容器的默认坐标系统，都是从容器的左上角 (0,0)坐标开始。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
Visual Basic中有 8种坐标系统，如表所示。默认的坐标系统以缇（ Twip）为单位。
属性值 坐标单位
0 用户自定义类型。当用 ScaleWidth,ScaleHeight,ScaleTop,ScaleLeft设置坐标系统后,ScaleMode自动设置为 0。
1 缇（ Twip）,1 Twip=1/1440英寸。
2 点（ Point）,1点 =1/72英寸。
3 像素（ Pixel）
4 字符（ Character）
5 英寸（ Inch）
6 毫米（ Millimeter）
7 厘米（ Centimeter）
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.1 坐标系统
坐标系统的度量单位可通过 ScaleMode属性来设置，
设置对象的 ScaleMode属性可以改变坐标系统的单位。
其语法格式为：
[对象 ].ScaleMode
Scale方法用于为窗体、图片框或 Printer对象设置新的坐标系统，其语法格式为：
[对象 ].Scale (x1,y1) - (x2,y2)
– 其中,(x1,y1)设置对象的左上角坐标,(x2,y2)设置对象右下角坐标。
– 使用 Scale方法将把对象在 x方向上分为 x2－ x1等分，在 y方向上分为 y2－ y1等分。
– 使用 Scale方法将自动把 ScaleMode属性设置为 0。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2 图形操作基础
9.2.1 坐标系统
9.2.2 自定义坐标系
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.2 自定义坐标系
对象的坐标系允许用户自行定义。 Scale方法是建立用户坐标系最方便的方法，其语法如下：
[对象,]Scale [(xLeft,yTop) - (xRight,yBotton)]
– 其中：对象可以是窗体、图片框或打印机。如果省略对象名，则为带有焦点的窗体对象。
– (xLeft,yTop)表示对象的左上角的坐标值，
(xRight,yBotton)为对象的右下角的坐标值。
均为单精度数值。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.2 自定义坐标系
【 例 9-2】 在 Form_Paint事件中通过 Scale
方法定义窗体 Form1的坐标系。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.2.2 自定义坐标系
任何时候在程序代码中使用 Scale方法都能有效地和自然地改变坐标系统。当 Scale方法不带参数时，
则取消用户自定义的坐标系，而采用默认坐标系。
– 此外，也可通过设置对象的 ScaleTop,ScaleLeft，
ScaleWidth和 ScaleHeight四项属性来定义坐标系。
– 对象左上角坐标为 (ScaleTop,ScaleLeft)，右下角坐标为 (ScaleLeft+ScaleWidth,ScaleTop+ScaleHeight)。
根据左上角和右下角坐标值的大小自动设置坐标轴的正向。 X轴与 Y轴的度量单位分别为 1/ScaleWidth和
1/ScaleHeight。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3 绘图属性
9.3.1 当前坐标
9.3.2 线宽与线型
9.3.3 填充与色彩
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.1 当前坐标
窗体或图片框或打印机的 CurrentX,CurrentY属性给出这些对象在绘图时的当前坐标。
– 这两个属性在设计阶段不能使用。
– 当坐标系确定后，坐标值 (x,y)表示对象上的绝对坐标位置。
– 如果坐标值前加上关键字 Step，则坐标值 (x,y)表示对象上的相对坐标位置，即从当前坐标分别平移 x,y个单位，其绝对坐标值为 (CurrentX+x,CurrentY+y)。
– 当使用 Cls方法后,CurrentX,CurrentY属性值为 0。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.1 当前坐标
【 例 9-3】 用 Print方法在窗体上随机显示 50
个“★”和 50个“☆”，如下图所示
– 分析：利用 CurrentX,CurrentY属性可指定 Print方法在窗体上的输出位置。用 Rnd函数与窗体的 Width和 Heigth属性相乘，产生
CurrentX,CurrentY的值。由于 Rnd函数产生的值在 0到 1之间，
故 CurrentX,CurrentY必定在窗口有效区域内。可以用循环控制变量的奇偶性决定 "★ "或 "☆ "的输出。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3 绘图属性
9.3.1 当前坐标
9.3.2 线宽与线型
9.3.3 填充与色彩
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.2 线宽与线型
窗体、图片框或打印机的 DrawWidth属性给出这些对象上所画线的宽度或点的大小。
– DrawWidth属性以像素为单位来度量，最小值为 1。
– 窗体或图片框或打印机的 DrawStyle属性给出这些对象上所画线的形状。
– 属性设置意义及效果如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.2 线宽与线型
【 例 9-4】 通过改变 DrawStyle属性值在窗体上画出不同的线形，产生如上图所示效果。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3 绘图属性
9.3.1 当前坐标
9.3.2 线宽与线型
9.3.3 填充与色彩
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
封闭图形的填充方式由 FillStyle,FillColor
这两个属性决定。
– FillColor属性指定填充图案的颜色，默认的颜色与 ForeColor相同。
– FillStyle属性指定填充的图案，共有 8种内部图案，属性设置填充图案如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
Visual Basic默认采用对象的前景色
（ ForeColor属性）绘图，也可以通过以下颜色函数指定色彩。
– RGB函数
RGB函数通过红、绿、蓝三基色混合产生某种颜色，
常见的标准颜色 RGB值如表 9.6。其语法为：
RGB(红，绿，蓝 )
其中：括号中红、绿、蓝三基色的成份使用 0~255
之间的整数。例如,RGB(0,0,0)返回黑色；而
RGB(255,255,255)返回白色。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
– QBColor函数
QBColor函数采用 QuickBasic所使用的 16种颜色，
如表 9.7。其语法格式为：
QBColor(颜色码 )
其中,QBColor函数的颜色码实际上返回一个指定红、绿、蓝三原色的值，用于设置 Visual Basic中
RGB系统的对应颜色。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
【 例 9-5】 利用滚动条设计一个调色板。
– 在窗体上添加 3个水平滚动条 (数组形式 )用于调整红色、
绿色及蓝色的值，并将其 Min属性设为 0,Max属性设为 255。添加 3个标签用于表示滚动条的当前数值。添加 4个图片框,Picture1用于响应调出的颜色，并将另外 3个 BackColor属性设为红色、绿色及蓝色，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
【 例 9-6】 演示颜色的渐变过程。
– 分析：要定义渐变，可多次调用 RGB函数，每次对
RGB函数的参数稍作变化。下面的程序用线段填充矩形区，通过改变直线的起终点坐标和 RGB函数中三基色的成份产生渐变效果，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.3.3 填充与色彩
– 直接输入数值
颜色值的格式是 16进制的，为 &HBBGGRR。 BB代表蓝色,GG代表绿色,RR代表红色。
– 使用颜色常数
Visual Basic 将经常使用的颜色值定义为内部常数，
颜色常数包括,vbBlack,vbRed,vbGreen、
vbYellow,vbBlue,vbMagenta,vbCyan、
vbWhite等，这些常数可以使用对象浏览器列出。当使用这些内部常数时，无需了解这些常数是如何产生的，也无需声明。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Cls方法 (清除 )
– Cls方法用于清除所有图形方法和 Print方法显示的文本或图形，并将光标移动到原点位置。
其语法格式为：
[对象,]Cls
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
PSet方法 (画点 )
– PSet方法可以在对象的指定位置按确定的像素颜色画点，格式为：
[对象,]PSet [Step] (x,y) [,Color]
– 说明：
(x,y)为必需的，可以是整数也可以包含小数。
Step为可选关键字，指定相对于由 CurrentX和
CurrentY属性提供的当前图形的位置坐标。
Color用于为该点指定颜色，缺省时，使用当前的
ForeColor属性值。可用 RGB函数或 QBColor函数指定颜色。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，在窗体上添加一个计时器 Timer1，
并设置其 Interval属性值。将 Form1的
BackColor属性修改为黑色。
– 程序运行结果如图所示
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社第 9章 图形操作
9.1 图形控件
9.2 图形操作基础
9.3 绘图属性
9.4 图形方法
9.5 综合应用
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Line方法 (画线 )
– Line方法可以在对象上的两点之间画直线或矩形，格式为：
[对象,]Line [[Step](x1,y1)]-[Step] (x2,y2) [,颜色 ]
[,B[F]]
– 说明：
(x1,y1)为起点坐标,(x2,y2)为终点坐标，如果省略
(x1,y1)，则起点位于由 CurrentX和 CurrentY指示的位置。带 Step关键字表示与当前坐标的相对位置。
B为可选项。省略此项是画直线，如果选择 B则以
(x1,y1)为左上角坐标,(x2,y2)为右下角坐标画出矩形。 F选项规定矩形以矩形边框的颜色填充。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
执行 Line方法后,CurrentX和 CurrentY属性被设置为终点，利用此特性可用 Line方法画连接线。
例如，可以利用 Line方法在窗体上画三个矩形方框，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Circle方法 (画圆 )
– Circle方法可以在对象上画圆、椭圆或圆弧，格式为：
[对象,]Circle [Step](x,y),半径 [,颜色,起点,终点,纵横比 ]
– 说明：
(x,y)是圆、椭圆或圆弧的中心坐标，带 Step关键字时表示与当前坐标的相对位置，半径是圆、椭圆或圆弧的半径。起点、终点指定（以弧度为单位）弧或扇形的起点以及终点位置。其范围从－ 2π到 2π。起点的缺省值是 0，终点的缺省值是 2π。正数画弧，负数画扇形。
纵横比为垂直半径与水平半径之比，不能为负数。当纵横比大于 1时，椭圆沿垂直方向拉长，当纵横比小于 1时，椭圆沿水平方向拉长。纵横比的缺省值为 1，在屏幕上产生一个标准的圆。
在椭圆中，半径总是对应长轴。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，通过以下代码可以在窗体上画出一个扇形、圆、椭圆，如图所示。
Private Sub Form_Click()
Const PI = 3.14159
Circle (2000,1500),1000,vbBlue,-PI,-PI / 2
Circle Step(-500,-500),500
Circle Step(0,0),500,,,,5 / 25
End Sub
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
PaintPicture方法
– PaintPicture方法用于在 Form,PictureBox或 Printer上绘制出图形文件的内容，图形文件类型包括,bmp,.ico,.wmf,.emf,.cur,.ico
和,dib等。 PaintPicture的一般格式为：
[对象,]PaintPicture 图形,x1,y1[,宽度 1[,高度 1,x2[,y2[,宽度 2[,高度 2[,位操作常数 ]]]]]]
– 说明：
图形：指图形文件，可以是 Form或 PictureBox的 Picture属性指定的图形文件。
x1,y1：指在对象上绘制图形的坐标，由对象的 ScaleMode属性决定度量单位。
宽度 1，高度 1：对象的宽度或高度。如果省略，则使用图形的宽度或高度。
x2,y2：指图形剪贴区的左上角坐标，默认为 (0,0)。
宽度 2，高度 2：指图形内剪贴区的宽度或高度，默认为整个图形的宽度或高度。如果宽度 1、高度 1比宽度 2、高度 2大或小，将适当地拉伸或压缩图形。
位操作常数：用来定义在将图形绘制到对象上时执行的位操作。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，在窗体上添加一个图片框 Picture1，设置其相应的
Picture属性后，将 Visible属性设为 False。然后编写如下代码：
Private Sub Form_Click()
ScaleHeight = 800
Num = Form1.ScaleWidth / Picture1.Width
For i = 1 To Num
Form1.PaintPicture Picture1.Picture,(i-1)*Picture1.Width,200,Picture1,
Width,Picture1.Height
Next
End Sub
运行程序，则会在窗体中画出 Picture1的多个拷贝，
如图 9.14所示
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
Point方法
– Point方法用于返回窗体或图形框上指定点的 RGB
颜色，其语法格式为：
[对象,]Point (x,y)
– 如果由（ x,y）指定的点在对象外面,Point方法返回一个 -1（ False）。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.4 图形方法
例如，用 Point方法获取一个区域的信息并使用 Pset方法进行仿真。
– 分析：在窗体上放置一个 Picture控件，在程序中设置窗体和 Picture控件各自的坐标系。在 Picture控件上输出字符串或图形，然后用 Point方法扫描 Picture控件上的信息，
根据返回值在窗体对应坐标位置上用 Pset方法输出信息，
达到仿真的目的
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.1 几何图形绘制
【 例 9-7】 画金刚石图案。
– 本例中利用多条直线来画图案，先计算出直线端点所需坐标并存入数组之中。结果如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.1 几何图形绘制
【 例 9-8】 画圆环。
– 本例用多个点来画多个椭圆，并构成圆环，如图所示，
其中有一个 PictureBox控件,名为 p。注意其中使用了
Scale方法来自定义坐标系。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.1 几何图形绘制
【 例 9-9】 画螺线。
– 本例用多个点来组成一条螺线，如图所示。
– 这是一个参数方程的绘图例子。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.2 菜单和图形操作的综合应用
【 例 9-10】 利用菜单在窗体图片框中选择画出正弦曲线和余弦曲线。
– 首先在窗体上设计一个三角函数菜单（菜单控件数组），并添加一个图片框 Picture1，如图所示。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.3 简单动画设计
【 例 9-11】 曲柄滑块机构的演示。
– 利用 Timer控件来控制图形控件的转动，如图所示
– 首先，在窗体上添加一个命令按钮 Command1,4个形态控件
Shape1(大圆 ),Shape2(滑块 ),Shape3(圆周上的动点 )、
Shape4(圆心 )，若干直线 Line1(半径 ),Line2(连杆 )，一个计时器
Timer1。并将 Timer1的 Interval属性值设为 100,Enabled属性值设为 False。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.3 简单动画设计
【 例 9-12】 一个走动的时钟。
– 时钟作为一种生活用品，有时针、分针和秒针，并且可以走动。
本例分别以 Second,Minute和 Hour函数把系统时间 Time分离成
“秒”、“分”和“时”，再利用定时器控件把时间处理成图形，
其中时针、分针、秒针和刻度的定位需要用三角函数来处理。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5 综合应用
9.5.1 几何图形绘制
9.5.2 菜单和图形操作的综合应用
9.5.3 简单动画设计
9.5.4 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.4 图像的颜色处理
【 例 9-13】 图像的颜色处理
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.4 图像的颜色处理
– 进行变灰的处理的方法是，用 GetPoint()方法得到某点的颜色值，然后利用公式：
y = 0.299 * r + 0.587 * g + 0.144 * b
得到该点的亮度值，并用 RGB（ y,y,y）作为该点的颜色，从而得到一个变灰的点；若用下式：
RGB( y * 1.4 + y * 0.9 + y * 0.7 )
则会得到一幅有淡红色的图。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社
9.5.4 图像的颜色处理
– 进行锐化处理的原理是，对于图像中的任一点，将该点的颜色加上一个分量，这个分量是附近几个点的颜色的差值（再乘以一个比例系数）。
由于这个差值分量的加入，使原图的相邻部分的差别更加明显，从而对原图起到了一个锐化的作用。在程序中使用语句：
ScaleMode = vbPixels
将窗体的坐标单位设置为像素点，这样可方便 GetPoint()函数中坐标值的使用。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社学完本章你应能够：
掌握常用图形控件的使用；
了解坐标系统；
理解绘图属性；
理解图形方法；
掌握图形操作的应用。
Vis
ua
l B
as
ic
P
ro
gr
am
mi
ng
中国科学技术出版社思 考 题
1,如何建立用户坐标系？
2,RGB函数中的参数按什么颜色排列？其有效的数值范围是多少？怎样用 RGB函数实现色彩的渐变？
3,怎样用 Circle方法画圆、椭圆、圆弧和扇形？
4,怎样用 Point方法比较两张图片？
