VB自学教程PPT 6

Visual Basic 实用教程 电子工业出版社
6 - 21
2．PrintForm方法 将指定的窗体Form的图像逐位发送给打印机。 语法： [对象].PrintForm PrintForm将打印Form对象的全部内容，即 使窗体的某部分在屏幕上不可见。只有当 AutoRedraw属性为True时PrintForm才打 印Form或PictureBox控件上的图形。
第六章 图形、鼠标和多媒体应用

6.1 6.2 6.3
图形和文本 鼠标和键盘 多媒体应用
Visual Basic 实用教程 电子工业出版社
6-1
6.1 图形和文本
6.1.1 6.1.2 6.1.3 6.1.4 6.1.5 6.1.6

坐标系 颜色的设置 图形处理 文本处理 打印 剪贴板(ClipBoard)
Visual Basic 实用教程 电子工业出版社 6 - 14
【例Ex_PaintSin】在窗体图片框中显示正弦曲线。 定时器timDraw控件用于控制动态地画出正弦曲线。
Option Explicit Dim sinX As Integer '模块级变量 Private Sub cmdDraw_Click() ' 单击“正弦信号”按钮 picDraw.AutoRedraw = True Call DrawAxis(picDraw) '调用画X、Y坐标轴 sinX = 1 timDraw.Enabled = True '启动定时器 End Sub
Visual Basic 实用教程 电子工业出版社 6 - 16
定时器timDraw每隔30毫秒根据计算的横纵坐标值 用Pset方法画出一个点，实现动画的效果。 Private Sub timDraw_Timer() ' 画正弦曲线 Dim x As Integer, y As Integer Dim scaleY As Integer scaleY = picDraw.ScaleHeight / 4 picDraw.CurrentX = 200 picDraw.CurrentY = (picDraw.ScaleHeight 200) / 2 x = sinX / 180 * scaleY y = Sin(3.14 / 180 * sinX) * scaleY picDraw.PSet Step(x, -y), QBColor(14) sinX = sinX + 1 End Sub
6-9Βιβλιοθήκη Baidu
6.1.3
图形处理
1．直线和形状控件 1）直线(Line)控件 用于在窗体、框架或图片框中绘制直线段。 属性：BorderWidth、BorderStyle、BorderColor改 变线段的粗细、线型和颜色；起点X1、Y1和终点 坐标X2、Y2。 2）形状(Shape)控件 在窗体、框架或图片框中绘制预定义的几何形状。 形状控件的Shape属性提供了六种预定义的形状。
Visual Basic 实用教程 电子工业出版社 6 - 13
3．AutoRedraw属性 当窗体被覆盖，重新移出时窗体、图片框中 的图形和用Print方法显示的文本的重新显 示 由 AutoRedraw 属 性 来 确 定 。 当 AutoRedraw属性设置为True时，图形具有 持久性。 在设计时窗体、图片框的AutoRedraw属性缺 省时为False，则图形不具有持久性，当窗 体被覆盖或扩大窗体都会使图形丢失。当 AutoRedraw属性设置为True时，图形具有 持久性。
Visual Basic 实用教程 电子工业出版社
6 - 10
2．图形方法 1）Cls方法(清除) 用于清除所有图形方法和Print方法显示的文本或图 形，并将光标移到原点位置。 语法： [对象. ] Cls 2）Pset 方法(画点) 语法： [对象.]Pset [Step] (x, y) [, 颜色] 3）Line方法(画线) 语法： [对象].Line [[Step](x1, y1) ]– [Step](x2, y2) [,颜 色],[B][F]
Visual Basic 实用教程 电子工业出版社
6-5
1. 设置刻度 根据缺省规定，坐标系统的每个轴的刻度使用缇为 单位(567缇等于一厘米) 。 1）使用ScaleMode属性设置标准刻度 语法： [对象].ScaleMode 2） ScaleLeft 、 ScaleTop 、ScaleWidth和 ScaleHeight属性 ScaleLeft和ScaleTop指定对象左上角的水平和垂直 坐标。 ScaleWidth和ScaleHeight根据对象内的可用区域的 当前宽度和高度来定义刻度。
Visual Basic 实用教程 电子工业出版社 6 - 15
Private Sub DrawAxis(MyPicture As PictureBox) ‗ 画X、Y坐标轴，图片框MyPicture为形参 …… x1 = 200 y1 = (MyPicture.ScaleHeight - 200) y = y1 / 2 x2 = MyPicture.ScaleWidth - 200 y2 = 200 MyPicture.Line (x1, y1)-(x1, y2), QBColor(11) MyPicture.Line (x1, y)-(x2, y), QBColor(11) MyPicture.Line (x1 - 50, y2 + 120)-(x1, y2), QBColor(11) MyPicture.Line (x1 + 50, y2 + 120)-(x1, y2), QBColor(11) MyPicture.Line (x2 - 120, y + 50)-(x2, y), QBColor(11) MyPicture.Line (x2 - 120, y - 50)-(x2, y), QBColor(11) …… End Sub
Visual Basic 实用教程 电子工业出版社
6-7
6.1.2
颜色的设置
1．RGB函数 RGB函数用于在运行时指定颜色值。 语法： RGB(红，绿，蓝) 红，绿，蓝指三种颜色的成分，取值在0～255之间。 2．QBColor函数 QBColor用来表示所对应颜色值的RGB颜色码。 语法： QBColor(颜色参数) 其中，颜色参数是在0～15之间的颜色值。
Visual Basic 实用教程 电子工业出版社 6 - 20
Private Sub cmdPrint_Click() Printer.FontName = "楷体" Printer.FontSize = 12 Printer.Print "床前明月光" ' 将文本放到Printer对象中 Printer.EndDoc ' 打印 End Sub
Visual Basic 实用教程 电子工业出版社
6-4
6.1 6.1.1
图形和文本 坐标系
坐标系是用于确定容器中点的位置。框架 (Frame)、窗体(Form)和图片框(PictureBox) 等都可作为容器。 坐标系包括横坐标(x轴)和纵坐标(y轴) 。任何 容器的缺省坐标系统左上角都为(0,0)坐标。
Visual Basic 实用教程 电子工业出版社
6-6
3）Scale 方法 Scale 方法为窗体、图片框或Printer对象设置新的坐 标系。 语法： [对象.]Scale (x1, y1) – (x2, y2) 2. 设置当前坐标 CurrentX和CurrentY属性用于设置当前水平和垂直 坐标，在设计时不可用。 例：Form1.Scale (100, 100)-(200, 200) Form1.CurrentX=120 Form1.CurrentY=150 Print "Hello!"
Visual Basic 实用教程 电子工业出版社 6 - 19
6.1.5
打印
1．Printer对象 用于把程序的运行结果打印出来。 1）Printer对象属性 初始化时为Windows―控制面板”中设置的打印机属 性。运行时通过程序代码设置。 2）打印、换页和取消打印 EndDoc方法：将打印内容送往打印缓冲区。 NewPage方法：终止当前页，进到下一页。 KillDoc方法：立即终止当前的打印工作，删除 Windows处理打印作业时送入打印机的所有作业。
Visual Basic 实用教程 电子工业出版社 6 - 11
4）Circle方法(画圆) 用于在对象上画圆、椭圆或圆弧。 语法： [对象.]Circle [Step] (x, y), 半径[,颜色, 起点, 终点, 纵横 比] (x, y)：是圆、椭圆或圆弧的中心坐标。 起点和终点：起点和终点以弧度为单位，取值在 -2π～2π之间。当为负数时，画一条连接圆心到端 点的线。 纵横比：决定是画圆还是椭圆，当纵横比大于等于 1时，椭圆沿垂直轴线拉长。
Visual Basic 实用教程 电子工业出版社 6-8
3．颜色属性 窗体和控件主要有几种属性决定其显示颜色： BackColor 、 ForeColor 、 BorderColor 、 FillColor。 4．通过内部常数来设置颜色 VB将经常使用的颜色值定义为内部常数。
Visual Basic 实用教程 电子工业出版社
Visual Basic 实用教程 电子工业出版社
6 - 12
5）PaintPicture方法 在 Form、 PictureBox 或 Printer 上绘制出图形文件 的内容，包括.bmp、.ico、.wmf等。 语法： [对象].PaintPicture 图片, x1, y1, [宽度1, [高度1, x2[, y2[, 宽度2[, 高度2[,位操作常数]]]]]] x1,y1：指在对象上绘制图片的坐标(x，y) 。 宽度1,高度1：对象的宽度或高度。 X2, y2：指图片内剪贴区的左上角坐标。 宽度2,高度2：指图片内剪贴区的宽度或高度。 位操作常数：将图片绘制到对象时执行的位操作。 例：Form1.PaintPicture Picture1.Picture, (i - 1) * Picture1.Width, 200, Picture1.Width, Picture1.Height
Visual Basic 实用教程 电子工业出版社
6 - 18
2．TextHeight和TextWidth方法 返回Form、PictureBox或Printer的当前字体的高度 和宽度。 语法： [对象]. TextHeight(字符串) [对象]. TextWidth(字符串)
Private Sub cmdDraw_Click() …… msg = ―正弦函数” ' 文本信息 Mwidth = TextWidth(msg) / 2 ' 计算文本半宽 CurrentX = ScaleWidth / 2 - Mwidth CurrentY = picDraw.Height Print msg ' 显示文本 End Sub
Visual Basic 实用教程 电子工业出版社 6 - 17
6.1.4
文本处理
1．设置字体的属性 通过设定Font对象属性来设置字体的特征。
属性名 Name Size Bold Italic StrikeThrough Underline Weight 数据类型 String Single Boolean Boolean Boolean Boolean Integer 描述 字体的名字。例如，宋体、Arial等。 字体的大小(每磅=1/72英寸) 是否为粗体。 是否为斜体。 是否有删除线。 是否有下划线。 字体的粗细。值越大，字体越粗。
Visual Basic 实用教程 电子工业出版社
6-2
6.2 鼠标和键盘
6.2.1 6.2.2 6.2.3

鼠标事件 改变鼠标指针 键盘事件
Visual Basic 实用教程 电子工业出版社
6-3
6.3 多媒体应用

6.3.1 6.3.2
Animation控件 Multimedia控件