第九章 图形程序设计

(x, y)为圆心坐标，关键字Step表示采用当前作图位置的相对值。 r是半径。 Color指定所画图轮廓线的颜色，默认时采用前景色，即ForeColor属性值。
圆弧和扇形通过参数弧起始角、弧终止角控制。当起始角、终止角取值在 0–2π 时为圆弧，当在起始角、终止角取值前加一负号时，画出扇形，负号表 示画圆心到圆弧的径向线。
Step可选，该关键字表示采用当前作图位置的相对值。
(x, y)是必需的，单精度浮点数，是所画点的水平坐标（x轴）和垂直 坐标（y轴）。
Color可选，长整形数，为该点指定RGB颜色。可用RGB函数或QBColor 函数指定颜色。如果省略Color，则使用当前的ForeColor属性值。如果使用背 景颜色，则可清除某个位置上的点。
Line (3200, 100)-Step(800, 900), vbRed, B
' 绘制矩形, 用红色作为边框颜色, 用FillColor填充, 填充样式为交叉对角线 End Sub
运行程序
程序运行结果如图9.3所示。
图9.3 用Line方法画出不同的直线和矩形
9.3.3 Circle方法
Circle方法用于在指定对象上画圆、椭圆、圆弧和扇形。其语法格式 为： [对象名.] Circle [Step] (x, y), r[,Color][,弧起始角][,弧终止 角][,半径比] 说明： 对象名为一个对象表达式，是控件的Name属性。省略时指带焦点的窗 体。
表9.1 ScaleMode属性设置
值 内部常数 单位
0
1 2 3 4 5
VbUser
VbTwips VbPoints VbPixels VbCharacters VbInches
用户自定义
缇（Twip，默认值） 磅（point，每英寸72磅，20个twip为1磅） 像素（pixel） 字符（默认为高12磅，宽20磅） 英寸（inch，每英寸1440个twip）
【例9.3】在VB中采用Pset方法绘制正弦曲线。程序运行结果如图9.2所示。
程序代码：
Private Sub Form_Paint() Dim i As Single, x As Single
' 自定义坐标系
Scale (-1000, -1000)-(1000, 1000) ' 绘制x,y轴
For i = -900 To 900 Step 0.1
9.1
VB的坐标系统
返回首页
VB中窗体、控件的大小和位置可以由它在容器中的坐标来确定。每个容器 都有一个坐标系，所有容器的坐标系就构成坐标系统。VB提供两类坐标系：默 认坐标系和自定义坐标系。 默认坐标系中原点(0, 0)定位于对象容器用户区的左上角，X轴向右为正 方向，Y轴向下为正方向。对象坐标的度量单位由容器对象的ScaleMode属性决 定，共有8种形式的单位，默认为Twip。ScaleMode属性设置如表9.1所示。
9.2.2 Shape控件
Shape控件可用来在窗体、框架或图片框中创建矩形、正方形、椭圆形、 圆形、圆角矩形或圆角正方形图形。通过设置Shape控件的Shape属性来实现所 需要的形状，控制Shape控件的外观。 语法： 对象名.Shape[=value] 其中，对象名是Shape控件的Name属性；value用来指定控件外观的整数。 其设置值如表9.2所示。
6
7
VbMillimeters
VbCentimeters
亳米（millimeter）
厘米（centimeter）
用ScaleMode属性只能改变刻度单位，不能改变坐标原点及坐标轴的 方向。当容器对象的ScaleMode属性设置为0时，允许自定义坐标系。通过设置 对象的ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight属性来定义合适的坐 标系。
' 用前景色画直线
' 用前景色画矩形 ' 以矩形边框颜色红色填充矩形
DrawWidth = 2
' 设置图形方法输出时的线条宽度为2
Line -(3000, 2000), vbRed
' 以(CurrentX,CurrentY)为起点,(3000,2000)为终点画红色直线 FillStyle = 7 ' 设置图形填充样式为交叉对角线
(x2, y2)是必需的，单精度浮点数，指定绘制直线或矩形的终点坐标。 带有Step关键字时表示相对坐标，不带Step时表示绝对坐标。 Color是可选参数，指定画线的RGB颜色，缺省时取对象的前景颜色， 即ForeColor属性值。注意在省略Color 参数时，逗号并不省略。
B是可选的。如果使用了B选项，则表示利用对角坐标画矩形。 F是可选的。如果使用了B选项，则F选项表示矩形以矩形边框的颜色 来填充。不能只有F而没有B。如果有B而没有F，则矩形使用当前的FillColor 和FillStyle填充。FillStyle默认值为“透明”。
【例9.4】利用Line方法画出不同的直线和矩形。
程序代码：
Private Sub Form_Paint()
Line (100, 100)-(1000, 1000)
Line (1200, 100)-(2000, 1000), , B Line (2200, 100)-(3000, 1000), vbRed, BF
属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，对象左上 角坐标为(ScaleLeft, ScaleTop)。
属性ScaleWidth，ScaleHeight的值可确定对象坐标系X轴与Y轴的正向 及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。 对象右下角坐标值为(ScaleLeft+ScaleWidth, ScaleTop+ScaleHeight)。如果 ScaleWidth的值小于0，则X轴的正向向左，如果ScaleHeight的值小于0，则Y 轴的正向向上。
9.2.3 Line控件
Line控件与Shape控件相似，但是仅用于画线。Line控件可用来在窗 体、框架或图片框中创建各种直线。既可以在设计时通过设置直线的端点坐标 来画直线，又可以在程序运行时动态地改变直线的各种属性。 程序运行时，不能使用Move方法移动Line控件，但是可以通过改变X1、 Y1、X2、Y2属性来移动或调整直线。 还可以通过改变BorderColor、BorderStyle、BorderWidth、 DrawMode属性来设置直线的边框颜色、边框样式、边框宽度等。有关属性说明 详见9.4.1。
9．3 图形方法
返回首页
9.3.1 Pset方法
Pset方法用于在对象的指定位置（x, y），按确定的像素颜色画点。 其语法格式为：
[对象名.]Pset [Step] (x, y) [, Color]
说明：
对象名为一个对象表达式，是控件的Name属性。如果省略对象名，则 具有焦点的窗体作为对象。
表9.2 Shape属性设置
常数 vbShapeRectangle vbShapeSquare vbShapeOval vbShapeCircle vbShapeRoundedRectangle vbShapeRoundedSquare 值 0 1 2 3 4 5 描述 矩形，默认值 正方形 椭圆形 圆形 圆角矩形 圆角正方形
其中，对象名可以是窗体、图片框或打印机。如果缺省对象名，则缺 省为带有焦点的窗体对象。(X1, Y1)是对象用户区左上角的新坐标，(X2, Y2) 是对象用户区右下角的新坐标。当Scale方法不带参数时，取消用户定义的坐 标系，采用默认坐标系。
调用Scale方法后，VB根据给定的坐标(X1, Y1)、(X2, Y2)自动计算出对 象的ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight属性的值，代码如下： ScaleLeft = X1 ScaleTop = Y1 ScaleWidth = X2-X1 ScaleHeight = Y2-Y1
Image控件只能显示图片，不能作为其他控件的容器。控件使用系统资源 少，而且重新绘图的速度较快。可以将Stretch属性的值设置为true，来延伸 图片的大小以适应控件的大小。但是它支持的属性、事件和方法较PictureBox 少一些。 而PictureBox控件不仅可用来显示图片，还可以作为其他控件的容器，同 时支持图形方法或Print方法。PictureBox控件不能延伸图片以适应控件的大 小，但是可以自动调整控件的大小以显示完整的图片。 有关具体内容详见第七章。
窗体左上角坐标为(-300, 200)，
右下角坐标为(300, -1所示。 图9.1 用属性定义坐标系
除了用上述属性定义坐标系外，Scale方法也可重新定义窗体、图片 框、打印机等对象的坐标系。语法格式为：
[对象名.]Scale [(X1, Y1)-(X2, Y2)]
【例9.2】用Scale方法定义窗体Form1的坐标系，使其坐标系与例9.1相同。程 序代码为： Form1.Scale (-300, 200)-(300, -200) 若要将窗体Form1的坐标系恢复为默认坐标系，程序代码为： Form1.Scale 需注意区分的是：容器对象的高度和宽度分别由Height和Width属性 决定。而对象内部垂直方向和水平方向的单元数分别由ScaleHeight和 ScaleWidth属性决定。
9.2 图形控件
返回首页
9.2.1 PictureBox控件和Image控件
PictureBox控件可用来显示来自于位图、图标、图元文件、JPEG或GIF文 件中的图片，还可作为其他控件的容器、显示图形方法输出的图形或Print方 法输出的文本。
Image控件也可以用来显示图像，支持的文件格式有：位图、图标、图元、 增强型图元文件、JPEG文件和GIF文件。它与PictureBox控件基本相同，主要 不同之处在于：