VB教程(第2版) 第8章 图形、文本和多媒体

8.1.5 绘图方法
【例8-2】使用画点的方法画出正弦曲线，单击“正弦曲线”按钮用动画 例 的方式画正弦曲线，单击“平移曲线”按钮画出一组正弦曲线。 （1）界面设计 使用一个图片框Picture1作为容器，两个按钮Command1和Command2分别为 “正弦曲线”和“平移曲线”按钮，一个定时器Timer1用来实现动画。 （2）设置定时器Interval属性为10，每10毫秒定时一次，Enabled属性为 False，则程序启动时定时器无效。
原点 (0,0) X轴
Top Y 轴度
ScaleMode属性 1. ScaleMode属性 ScaleMode属性是用来设置坐标系的标准刻度，ScaleMode属性的设置值如 表8.1所示。 表8.1 ScaleMode属性设置值
设置值 0-User 1-Twip 2-Point 3-Pixel 4-Character 5-Inch 6-Millimeter 7-Centimeter 描述 用户定义。通过设置ScaleWidth、ScaleHeight、ScaleTop或ScaleLeft属 性来定义新坐标系。 缇（默认），567缇等于一厘米。 磅，72磅等于一英寸。 像素，像素是监视器或打印机分辨率的最小单位。 字符，打印时一个字符有1/6英寸高、1/12英寸宽。 英寸。 毫米。 厘米。
8.1.5 绘图方法
Pset方法 4. Pset方法 Pset方法用于画点，即设置指定点处像素的颜色。 语法： 语法： 对象.]Pset 颜色] [对象.]Pset [Step] (x, y)[, 颜色] 说明： • 对象是指绘图的容器对象，如果省略则指当前窗体。 • (x, y)是画点处的坐标，为Single型。 • Step表示与当前坐标的相对位置。 • 颜色用来设置画点的颜色，如果没有颜色参数，则为前景色。 • 使用Pset方法与定时器结合，每画完一点都延时一下，就实现动画地绘制 曲线。
图形、 第8章 图形、文本和多媒体应用
8.1 8.2 8.3 8.4
绘制图形 彩色位图图像处理 设置文本 多媒体应用
8.1 绘制图形
8.1.1 坐标系 坐标系用于确定容器中点的位置，任何容器的默认原点坐标都是容器的左 上角（0,0）。如图8.1所示，坐标系包括横坐标（X轴）和纵坐标（Y轴），从 原点出发向右方向为X轴的正方向，垂直向下是Y轴的正方向。x值是指点与原 点的水平距离，y值是指点与原点的垂直距离。
例如，以下为设置对象刻度单位的语句： Picture1.ScaleMode = 3 '设置图片框Picture1的刻度单位为像素 ScaleMode = 4 '设置窗体的刻度单位为字符
8.1.2 坐标刻度
2. 刻度属性 对象的属性“按分类序”显示时，“缩放”类的属性有ScaleTop、 ScaleLeft、ScaleWidth和ScaleHeight，都是设置坐标系的用户定义刻度的属 性。当设置了刻度属性时，ScaleMode属性自动为0。 ScaleLeft和ScaleTop属性指定对象左上角的水平和垂直坐标。 例如，设置在窗体的左上角原点坐标值为(10,10)： ScaleLeft = 10 ScaleTop = 10 程序分析：原点即左上角的坐标值变为(10,10)，即横坐标起点是10，纵坐 标起点为10。 ScaleWidth和ScaleHeight属性是设置用户定义刻度，根据对象内可用区域 的当前宽度和高度（不包括边框、菜单栏和标题栏）来定义刻度。 例如，定义窗体的刻度： ScaleWidth = 10 ScaleHeight = 5 程序分析：当前窗体的横坐标刻度为 1/10 宽度；纵坐标刻度为 1/5 高度。 如果窗体的大小被调整，刻度单位仍保持。
8.1.5 绘图方法
（3）程序设计 装载窗体时设置图片框的坐标系，并清除图片框内容。 Private Sub Form_Load() '装载窗体 Picture1.AutoRedraw = True Picture1.Scale (0, 0)-(640, 480) Picture1.Cls End Sub Private Sub Command1_Click() '单击正弦曲线按钮 Timer1.Enabled = True End Sub
Line Shape
8.1.4 图形控件
形状控件的Shape属性提供了六种预定义的形状，如表8.6所示。 表8.6 预定义形状
设置值 0-Rectangle 1-Square 2-Oval 3-Circle 4-RoundedRectangle 5-RoundedSquare 常数 VbShapeRectangle VbShapeSquare VbShapeOval VbShapeCircle 描述 （默认）矩形 正方形 椭圆形 圆形 形状
8.1.2 坐标刻度
3. Scale 方法 Scale 方法用于为窗体、图片框或Printer对象设置新的坐标系。 语法： 语法： 对象.]Scale(x1, [对象.]Scale(x1, y1) –(x2, y2) 例如，将窗体与前面设置的刻度相同，左上角和右下角分别设置为 （10,10）和（20,15），运行界面如图8.2所示： Private Sub Form_Load() '装载窗体 10 原点 (10,10) Scale (10, 10)-(20, 15) Text1.Move 15 End Sub
8.1.5 绘图方法
5. Line方法 方法 Line方法用于画线，可以画单个线段，也可以画矩形。 语法： 语法： [对象 对象].Line [[Step](x1, y1)]– [Step](x2, y2) [,颜色 颜色],[B][F] 对象 颜色 说明： • (x1, y1)：为起点坐标，如果省略则为当前坐标。带Step关键字时表示与当 前坐标的相对位置。 • (x2, y2)：为终点坐标。带Step关键字时表示与起点坐标的相对位置。 • B：表示利用对角坐标画矩形。 • F：表示当使用了B选项，用边框颜色填充矩形。 例如，下面两条语句画线的功能相同： Line (500, 500)-(1500, 1000) Line (500, 500)-Step(1000, 500)
8.1.4 图形控件
直线控件和形状控件可以通过常用属性来设置其线型、颜色等，常用属性 如表8.5所示。 表8.5 常用属性
控件 Line和Shape 属性 BorderColor BorderStyle BorderWidth X1、Y1 X2、Y2 Shape FillColor FillStyle BackStyle 功能 线段的颜色 线段的线型，是实线还是虚线，以及虚线 的样式 线段的粗细 起点坐标 线段的长短 预定义的形状，如表8.6所示 图形的填充色 图形底纹，有8种底纹 图形背景式样 0-Transparent 透明 1-Opaque 不透明
颜色参数 0 1 2 3 4 5 6 7 颜色 黑色 蓝色 绿色 青色 红色 洋红色 黄色 白色 参数颜色 8 9 10 11 12 13 14 15 蓝色值 灰色 亮蓝色 亮绿色 亮青色 亮红色 亮洋红色 亮黄色 亮白色
8.1.3 设置颜色
3．通过内部常数来设置颜色 VB将经常使用的颜色值定义为内部常数，内部常数如表8.4所示。 表8.4 常用颜色值常数
VbShapeRoundedRectangle 圆角矩形 VbShapeRoundedSquare 圆角正方形
8.1.4 图形控件
【例8-1】使用组合框显示形状控件的形状、底纹和颜色。 界面设计：使用三个组合框Combo1～Combo3来实现形状控件的形状、底纹 和颜色属性的设置。运行界面如图8.3所示。 程序代码如下。
图8.3 界面显示
8.1.5 绘图方法
Cls方法 1. Cls方法 Cls方法用于清除所有图形方法和Print方法显示的文本或图形，并将光标 移到原点位置。但不能清除界面中的控件。 例如，清除图片框中的文本或图形： Picture1.cls CurrentX和CurrentY属性 2. CurrentX和CurrentY属性 CurrentX和CurrentY属性用于设置当前的水平和垂直坐标，即下一次绘图 或打印的起点坐标，只能在运行时使用。 AutoRedraw属性 3．AutoRedraw属性 AutoRedraw属性是自动重画。AutoRedraw属性默认时为False，则图形不 具有持久性，当窗体被覆盖或扩大窗体都会使图形丢失。AutoRedraw属性为 True时，图形具有持久性，当窗体被其他窗体覆盖，重新移出时窗体、图片框 中的图形和用Print方法显示的文本的会重新显示。
'定时器有效
8.1.5 绘图方法
定时器时间到就画一点，计算每点的横坐标和纵坐标的值，用红色的点连 成正弦曲线。如图8.4(a)所示运行界面，单击“正弦曲线”按钮。 Private Sub Timer1_Timer() '正弦曲线的动画绘制 Dim x As Integer, y As Integer Dim scaleY As Single Static i As Integer '正弦曲线一半高度为Picture1的四分之一 scaleY = Picture1.ScaleHeight / 4 Picture1.CurrentX = 0 Picture1.CurrentY = Picture1.ScaleHeight / 2 i=i+1 x = i / 180 * scaleY y = Sin(3.14 / 180 * i) * scaleY Picture1.PSet Step(x, -y), vbRed End Sub
颜色 黑色 蓝色 绿色 青色 红色 洋红色 黄色 白色 红色值 0 0 0 0 255 255 255 255 绿色值 0 0 255 255 0 0 255 255 蓝色值 0 255 0 255 0 255 0 255
8.1.3 设置颜色