vb窗口播放ppt下载

这是一个关于vb窗口播放ppt，包括了VB编程基础，VB图形绘制技术，VB图像处理技术（只要求6.3.1小节），用VB操纵多媒体Access数据库，用VB实现多媒体文件播放，用VB编制动画程序等内容，第6章 VB多媒体程序设计 （讲授6学时，实验6学时） 6.1 VB编程基础 6.2 VB图形绘制技术 6.3 VB图像处理技术（只要求6.3.1小节） 6.4 用VB操纵多媒体Access数据库 6.5 用VB实现多媒体文件播放 6.6 用VB编制动画程序 6.1 VB编程基础 Visual Basic (简称VB)是Microsoft公司推出的基于Windows平台的程序开发工具，其程序设计风格与传统设计方法不同，它采用面向对象和事件的程序设计方法，是一种采用事件驱动编程机制的语言。 VB专业版中提供了MCI(Media Control Interface)的控件。利用VB，可以编程处理文本、图形、图像、音频、视频、动画等多媒体数据，以设计或构造适合不同需求的多媒体应用系统。在多媒体程序设计方面，VB不但自身提供了控制对象及多媒体控件，还提供了对众多第三方多媒体控件的支持及API函数的调用。 6.1.1 VB集成开发环境 6.1.1 VB集成开发环境 1.VB集成开发环境的常规组成部分 标题栏、菜单栏、工具栏。 2.VB集成开发环境的特有组成部分 六类窗口。 3.VB涉及三个重要概念 (1)窗口：窗口是一种有边界的矩形区域。 (2)事件：事件是通过鼠标、按键的操作、程序的控制或其他窗口所产生的操作或行为。 (3)消息：在事件驱动模型中，程序代码不是按照预定的顺序执行，而是在响应不同的事件时执行不同的代码片段。当发生事件时，将引发一条消息，操作系统处理该消息并广播给其他窗口，欢迎点击下载vb窗口播放ppt。

vb窗口播放ppt是由红软PPT免费下载网推荐的一款仪器设备PPT类型的PowerPoint.

第6章 VB多媒体程序设计 （讲授6学时，实验6学时） 6.1 VB编程基础 6.2 VB图形绘制技术 6.3 VB图像处理技术（只要求6.3.1小节） 6.4 用VB操纵多媒体Access数据库 6.5 用VB实现多媒体文件播放 6.6 用VB编制动画程序 6.1 VB编程基础 Visual Basic (简称VB)是Microsoft公司推出的基于Windows平台的程序开发工具，其程序设计风格与传统设计方法不同，它采用面向对象和事件的程序设计方法，是一种采用事件驱动编程机制的语言。 VB专业版中提供了MCI(Media Control Interface)的控件。利用VB，可以编程处理文本、图形、图像、音频、视频、动画等多媒体数据，以设计或构造适合不同需求的多媒体应用系统。在多媒体程序设计方面，VB不但自身提供了控制对象及多媒体控件，还提供了对众多第三方多媒体控件的支持及API函数的调用。 6.1.1 VB集成开发环境 6.1.1 VB集成开发环境 1.VB集成开发环境的常规组成部分 标题栏、菜单栏、工具栏。 2.VB集成开发环境的特有组成部分 六类窗口。 3.VB涉及三个重要概念 (1)窗口：窗口是一种有边界的矩形区域。 (2)事件：事件是通过鼠标、按键的操作、程序的控制或其他窗口所产生的操作或行为。 (3)消息：在事件驱动模型中，程序代码不是按照预定的顺序执行，而是在响应不同的事件时执行不同的代码片段。当发生事件时，将引发一条消息，操作系统处理该消息并广播给其他窗口。最后，每一个窗口根据自身处理该条消息的指令而采取适当的操作。 6.1.2 VB面向对象编程的基本知识 1.类和对象的概念 （1）对象 对象是具有某些特性的具体事务的抽象。如一个具体的人、一个具体的动物、一辆具体的车、等等，都是生活中所指的一个对象。（2）类类是同种对象的集合与抽象。如所有的人构成人类。 （3）类和对象的关系类是创建对象实例的模板，而对象是类的一个实例。（4）对象的三要素 描述其特征的属性；反映其动作的行为（称作方法）；还有在一定条件下发生的事件。 如“人”对象有体重属性、有跑跳方法、有挨打事件。 1. VB中的基本数据类型整数— Integer; 长整数— Long; 单精度实数—Single; 双精度实数—Double; 字符串型—String; 逻辑数据—Boolean. 2. 变量、常量、表达式（1）变量：变量即在程序运行过程中值可以发生变化的量。定义变量数据类型的语句： Dim 变量名 As 数据类型具体例句，如： Dim x As Integer （2）常量：常量是程序中不变的量。包括直接常量、符号常量和系统常量。 2. 变量、常量、表达式直接常量：如：15，-5.8，"China"，True、False，等等。字符串数据常量的表示要用英文双引号："中国"， "Hello" 逻辑型数据常量只有两种值：True， False 符号常量：用一个标识符表示的常量，定义标识符： Const 符号常量标识符 [As 数据类型]=表达式 这里，用中括号括起来的部分表示可省略，如： Const PI As Double = 3.1415926 Const XM As String = "曹操" ，或: Const XM = "曹操" 系统常量：用系统保留的一些关键字所表示的常量，这些关键字由小写字母"vb"开头。如一些常用颜色值，VB就提供了系统常量的表示法，如：vbRed(红色)、vbBlue(蓝色)、vbBlack(黑色)。 3. VB中的基本运算符 (1)算术运算 +加、-减、*乘、/除、\求除法商的整数部分、^乘方 (2) 字符串连接运算 &、+ （注意后面这个符号，即可作为算术加法符号，也可以作为字符串连接符号）。 (3) 关系运算(比较运算)符号 >大于、>=大于或者等于、<小于、<=小于或者等于、＝等于、 <> 不等于。 VB中的基本运算类型符号 (3)关系运算(比较运算)：结果为逻辑值True / False。举例： 6>5:结果为True 3>=3: 结果为True 6<=5:结果为False 7<>7: 结果为False "中国"= "中国":结果为True "ABD">"ABC" : 结果为True(按字符ASCII大小进行逐个比较） VB中的基本运算类型符号（4）逻辑运算：And与， Or或， Not非 X And y: 当 x和y都是True时，结果才为True；其余情况结果都是False。 X Or y: 当 x和y中有一个以上是True时，结果为True；只有x和y全为False时结果才为False。 Not x:当x是True时结果是False；当x是False时结果是True。 （5）内部函数 VB中提供了许多内部函数（又叫标准函数)，可以直接调用，调用格式一般为： 函数名([实际参数列表]) 有些函数没有参数，则[实际参数列表]部分不需要提供参数。一些示例： y = Sqrt(x) ：Sqrt函数是求非负实数的平方根函数，此语句将x开平方的值赋给y。 Y = Sin(3.14/2)：Sin函数是求一个角度（单位用弧度）的正弦，本语句求sin(π/2)即y=0.5。 t = Time：Time 函数是获取机器中当前时间的函数（无参数），该语句使 t 得到当前时间。 n = Len("中国OK")：Len是求字符串的字符数的函数，本语句n得到的值为4，因为VB中将一个汉字和一个英文字母都看作一个字符。 2.选择结构 1)单分支选择语句 If 表达式 Then 语句块 End If 或: If 表达式 Then 语句 例:已知两个数x和y，比较它们的大小， 使得x大于y。 If x<y Then t=x x=y y=t End If 或 If x<y Then t=x: x=y: y=t 2.选择结构 2)二分支选择语句 If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 2.选择结构 3)多分支选择 多分支If选择格式如下： If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 … [ Else 语句块 n+1 ] End If 不管有几个分支，依次判断，当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。 注意：ElseIf不能写成 Else If。 6.2 VB图形处理技术 6.2.1 VB坐标系统设置与绘图方法 6.2.2 绘图程序实例 6.2.1 VB坐标系统设置与绘图方法在VB中，坐标系统是一个二维网格，可定义屏幕上、窗体中或其他容器中的位置。 VB默认窗体内部区域的左上角点的坐标为(0，0)；使用窗体中的坐标(x，y)，可定义窗体内部点的坐标位置。若窗体内部区域宽度为a，高度为b；则窗体右下角点的坐标就是(a， b)。如下图所示。 6.2.1 VB坐标系统设置与绘图方法 6.2.1 VB坐标系统设置与绘图方法 6.2.1 VB坐标系统设置与绘图方法 6.2.1 VB坐标系统设置与绘图方法 6.2.1 VB坐标系统设置与绘图方法 6.2.1 VB坐标系统设置与绘图方法 6.2.1 VB坐标系统设置与绘图方法 6.2.2 绘图程序实例 命令代码（画园）： Private Sub Picture1_Click() Picture1.ScaleWidth = 2000 '将区域宽度指定为2000单位 Picture1.ScaleHeight = 1500 '将区域高度指定为2000单位 Picture1.ScaleLeft = -1000 '指定左上角横坐标为-1000 Picture1.ScaleTop = -750 Picture1.Circle (0， 0)， 750， vbBlack '画圆 Picture1.DrawWidth = 3 '设置画笔粗度为3点 Picture1.PSet (0， 0)， vbRed '画圆心点(红色)， 粗度为3点 End Sub 6.2.2 绘图程序实例例6-4. 用Line方法在窗体上画同心矩形，结果如图6-16所示。 【分析】在窗体上设置一个PictureBox控件，用Line方法以不同的颜色画25个同心矩形，并以同色填充，颜色由函数QBColor设置，线条宽度由属性DrawWidth确定。在Picture1的Click事件处理过程中，循环调用Line方法25次，每次画一个矩形。 操作： 1. 在窗体Form中建立一个图片框Picture1 2. 设置Picture1的属性： 本例在命令代码中设置， 也可在属性框自定义坐标属性 命令代码： Private Sub Picture1_Click() Dim CX， CY， F， F1， F2， I ' 声明变量。 Picture1.ScaleMode = 3 ' 设置 ScaleMode 为像素。 CX = Picture1.ScaleWidth / 2 ' 水平中点。 CY = Picture1.ScaleHeight / 2 ' 垂直中点。 Picture1.DrawWidth = 8 ' 设置 DrawWidth。 For I = 50 To 0 Step -2 F = I / 50 ' 执行中间步骤。 F1 = 1 - F: F2 = 1 + F ' 计算。 Picture1.ForeColor = QBColor(I Mod 15) ' 设置前景颜色 Picture1.Line (CX * F1， CY * F1)-(CX * F2， CY * F2)， ， BF Next I End Sub 6.2.2 绘图程序实例 操作： 1. 在窗体Form中建立两个图片框Picture1 和Picture2 2. 设置Picture的属性： Picture1，name=P1 Picture2， name=P2 其他属性：在命令代码中设置， （也可在属性框自定义坐标属性） 命令代码P1： Private Sub P1_Click() '左边图片框的名称为P1 Dim x As Single， y As Single Const π As Single = 3.14159 '定义π为符号常量 P1.ScaleLeft = 0 '设置图片框左上角的横坐标为0 P1.ScaleTop = -2 '设置图片框左上角的纵坐标为-2 '故左上角点坐标被自定义为（0，-2) P1.ScaleHeight = 4 '此句设置的图片框高度4为正数， '则纵轴的正方向按默认 (从上往下) P1.ScaleWidth = 2 * π P1.Line (0， 0)-(2 * π， 0)， vbRed '画横轴的正半轴 P1.Line (0， 0)-(0， 2)， vbRed '画纵轴的正半轴 For x = 0 To 2 * π Step 0.01 y = Sin(x) P1.PSet (x， y)， vbBlue Next P1.DrawWidth = 3 P1.PSet (π / 2， 1)， vbRed '在(π/2，1)处画一个红色点 End Sub 命令代码P2： Private Sub P2_Click() '右边图片框的名称为P2 Dim x As Single， y As Single Const π As Single = 3.14159 '定义π为符号常量 P2.ScaleLeft = 0 '设置图片框左上角的横坐标为0 P2.ScaleTop = 2 '设置图片框左上角的纵坐标为2 '故左上角点坐标被自定义为（0，2) P2.ScaleHeight = -4 '此句设置的图片框高度为负数-4 '则纵轴的正方向跟默认相反(从下往上) P2.ScaleWidth = 2 * π P2.Line (0， 0)-(2 * π， 0)， vbRed '画横轴的正半轴 P2.Line (0， 0)-(0， 2)， vbRed '画纵轴的正半轴 For x = 0 To 2 * π Step 0.01 y = Sin(x) P2.PSet (x， y)， vbBlue Next P2.DrawWidth = 3 P2.PSet (π / 2， 1)， vbRed '在(π/2，1)处画一个红色点 End Sub 6.2.2 绘图程序实例 操作： 1. 在窗体Form中建立一个图片框Picture1 2. 设置Picture的属性： 在命令代码中设置， （也可在属性框自定义坐标属性） -. . 命令代码P1： '可改变园的半径r及等份数 Private Sub Picture1_Click() Dim x As Single， y As Single Dim x0 As Single， y0 As Single Dim r As Single， π As Single Picture1.Cls π = 3.14159 r = Picture1.ScaleHeight / 4 '可改变为2，6，8等 x0 = Picture1.ScaleWidth / 2 '园心点横坐标 y0 = Picture1.ScaleHeight / 2 '园心点纵坐标 st = π/10 '等分园周为6份(=2π/6=π/3)，等分园周为20份(=2π/20) For I = 0 To 2 *π Step st '循环绘制园 x = r * Cos(I) + x0 '取圆周上的等分点(x，y) y = r * Sin(I) + y0 Picture1.Circle (x， y)， 0.9 * r '以半径r1=0.9r绘制园 Next I End Sub 6.3 VB图像处理技术 6.3.1 图片框和图像框的图像加载与删除 6.3.2 API函数StretchBlt的语法* 6.3.3 API函数的声明* 6.3.4 实现图像缩放、翻转、旋转的程序* （加*号的小节内容可不做要求）。 6.3.1 图片框和图像框的图像加载与删除图片框: PictureBox控件图像框: Image控件 6.3.1 图片框和图像框的图像加载与删除 1. 图片框PictureBox 1) Picture属性与LoadPicture函数在运行时可使用LoadPicture函数载入图形。例如： Picture1.Picture=LoadPicture("E:\AA\Lena.bmp") '上述语句将指定位置(E:\AA\)的Lena.bmp图像装入图片框Picture1。 Picture1.Picture=LoadPicture() '上述语句对LoadPicture() 不提供参数，表示删除图片框Picture1中的已有图片。 6.3.1 图片框和图像框的图像加载与删除 1. 图片框PictureBox 2) AutoSize属性决定图片框控件是否能自动改变大小以显示其装入图片的全部内容。其值可取： True：取此值时，图片框可以自动改变大小，框的大小适应于所装图像的大小。 False：取此值时，图片框不能自动改变大小（大小固定为先前所设定的尺寸）。其中，默认值是False。 6.3.1 图片框和图像框的图像加载与删除 2. 图像框Image 1) Picture属性与LoadPicture函数在运行时可使用LoadPicture函数载入图形。例如： Image1.Picture=LoadPicture("E:\AA\Lena.bmp") '上述语句将指定位置(E:\AA\)的Lena.bmp图像装入图片框Picture1。 Image1.Picture=LoadPicture() '上述语句对LoadPicture() 不提供参数，表示删除图片框Picture1中的已有图片。 6.3.1 图片框和图像框的图像加载与删除 2. 图像框Image 2) Stretch属性决定待装入的图片的大小能否自动适应图像框控件的大小，以便图像文件内容能否全部被显示。其值可取True或False，其中默认值是False。 True：取此值时，图像可以自动改变大小，使所装图像的大小适应于图像框的大小。 False：取此值时，图像不能自动改变大小（大小固定为文件图像的原始大小）。注意：图像框Image的Stretch属性对应于图片框PictureBox的AutoSize属性，但PictureBox是让框的大小去适应图像；而Image是让图像大小去适应框的大小。这一点从意义上来看是相反的。 6.3.2 API函数StretchBlt的语法一个非常有用的复制图片的API函数－－StretchBlt. 该函数的调用语法： StretchBlt hDestDc， x， y， nWidth， nHeight， hSrcDc， _ xSrc， ySrc， nSrcWidth， nSrcHeight， dwRop 参数解释： hDestDc：目标图片框的句柄，即目标图片框的hDC属性值。 hSrcDc：来源图片框的句柄，即源图片框的hDC属性值。 x，y：复制到目标图片框图像的左上角坐标（目标起点）。 nWidth， nHeight：复制到目标图片框中的宽度、高度。 xSrc， ySrc：来源图片框的左上角坐标（被复制的起点）。 nSrcWidth， nSrcHeight：源图片框要复制部分的宽度、。 dwRop：表示绘制方式，本例取SRCCOPY方式(直接复制). 6.3.3 API函数的声明 API函数使用的2步骤－－先声明、后调用。 StretchBlt函数、 SRCCOPY常量的声明可以按下列步骤实现，VB将自动拷贝语句到程序代码窗口的“通用－声明”区： (1) 在VB开发环境中，单击“外接程序”菜单/“API浏览器”子菜单，弹出 “API浏览器”窗口。（若菜单下无/“API浏览器”，或“API Viewer”可从“外接程序管理器”子菜单的对话框设置“加载”，重启VB即可发现“外接程序”菜单下有/“API浏览器”或“API Viewer”子项）。“API Viewer”窗口图见下页所示。 (2) 在“API浏览器”窗口单击“文件”菜单/“加载文本文件”子菜单，在打开文件对话框中找到“Win32API.TXT”，“确定”；然后在“API浏览器”窗口“API类型”下拉表中选择“声明”；就会在“API浏览器”窗口的“可选项”列表中出现所有API函数的名称。 (3) 在“可选项”列表上方的文本框中输入你要的API函数名称前几个字母，系统就会定位到匹配的名称上；选择你想要的那个API函数的名称，点“添加”，所选函数的声明语句就被加入“API浏览器”窗口下面的列表框中。 6.3.3 API函数的声明 API函数使用的2步骤－－先声明、后调用。 StretchBlt函数、 SRCCOPY常量的声明操作步骤（续）： （4）如果还有其它API函数要声明，再重复步骤(3)添加所有本程序将需要的API函数的声明到下面的列表框中。（5）在“API类型”下拉表中选择“常数”，用同样的方法添加“常数” 的声明语句到下面的列表框中。（6）点“插入”按钮，就会直接将声明语句插入到程序的代码窗口中；或点“复制”将语句先复制到剪贴板，然后再回到VB程序代码窗口“粘贴”也可。注意：如果声明语句插入到窗体模块中，函数的声明中应将“Public”关键字改为“Private”，常量、类型也应去掉“Public”关键字。 Form_Load过程的代码如下： Private Sub Form_Load() '本过程在程序启动时执行 Src = Picture1.hdc Dst = Picture2.hdc p1w = Picture1.ScaleWidth p1h = Picture1.ScaleHeight p2w = Picture2.ScaleWidth p2h = Picture2.ScaleHeight End Sub 其它代码见例6-7程序。 Private Sub Command1_Click() ' 复制 StretchBlt Dst， 0， 0， p2w， p2h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command2_Click() ' 复制一部分(取源图片右下角1/4面积复制到目标图片框左上角):右下角1/4面积 StretchBlt Dst， 0， 0， p2w / 2， p2h / 2， Src， p1w / 2， p1h / 2， p1w / 2， p1h / 2， SRCCOPY End Sub Private Sub Command3_Click() ' 放大(源图片宽度高度均放大到2倍再复制到目标图片框左上角) StretchBlt Dst， 0， 0， p1w * 2， p1h * 2， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command4_Click() ' 缩小(源图片宽度高度均缩小到0.5倍再复制到目标图片框左上角) StretchBlt Dst， 0， 0， p1w / 2， p1h / 2， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command5_Click() ' 上下翻转 StretchBlt Dst， 0， p1h， p1w， -p1h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command6_Click() ' 左右翻转 StretchBlt Dst， p1w， 0， -p1w， p1h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command7_Click() '180度旋转(顺时针旋转180度) StretchBlt Dst， p1w， p1h， -p1w， -p1h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command8_Click() ' 清除（清除目标图片框内容） Picture2.Refresh '执行PictureBox对象的 Refresh方法 End Sub 6.4 用VB操纵多媒体Access数据库 6.4.1 Data控件的作用与主要属性 6.4.2 数据绑定控件的使用 6.4.3 用Data控件与数据绑定控件访问数据库的编程步骤 6.4.4 用VB访问Access数据表图片字段的程序 6.4.1 Data控件的作用与主要属性 1. Data控件的作用: 标准控件与数据库连接的桥梁 完成对数据库的连接; 打开指定数据库的表; 将表中的字段传至数据绑定控件， 并能针对数据绑定控件中的修改，更新数据库; 关闭数据库。 2. Data控件的主要属性 Connect：设定数据库类型（如Access）； DatabaseName：设定要打开的数据库名； RecordSource：设定数据源(一般是表名)。 6.4.2 数据绑定控件的使用 1.数据绑定控件的作用和类型 作用：在VB程序界面上用来显示数据库表中某些数据字段的值。 ; 类型：TextBox，Label，PictureBox 等可视控件。 2.数据绑定控件的两个关键属性 DataSource属性 ：指定该控件要绑定的数据源，其值为Data控件的名称； DataField属性 ：指定该控件要绑定的数据字段，其值一般是数据表的字段名。 3.标准数据绑定控件的用法画好控件; 绑定DataSource、 DataField这两个属性 。 6.4.3 用Data控件与数据绑定控件访问数据库的编程步骤 （1）在VB窗体中加入一个Data控件。（2）设置Data控件的DatabaseName属性(数据库名)。（3）设置Data控件的RecordSource属性(数据表名)。（4）添加适当数量的数据绑定控件（如TextBox等）用于显示字段值。（5）设置数据绑定控件的DataSource属性来指定数据源（其值为Data控件的名称）。（6）设置数据绑定控件的DataField属性（每个绑定控件分别设置不同数据字段名）。（7）必要时使用Data控件的方法和事件；并添加其它代码，实现更为复杂的功能。（8）执行该工程。 6.4.4 用VB访问Access数据表图片字段的程序 6.5 用VB实现多媒体文件播放 6.5.1 Multimedia MCI控件的添加工具箱中没有，是ActiveX控件，先要添加到工具箱。 1. 把Multimedia MCI控件加到工具箱（步骤如下）：在“工程”菜单中，单击“部件”以显示“部件”对话框。选定控件名称左边的复选框(Multimedia MCI控件名称是Microsoft Multimedia Control 6.0)。单击“确定”以关闭“部件”对话框。所有选定的ActiveX控件将出现在工具箱中(Multimedia MCI控件在工具箱中的图标是 ，鼠标指向时的提示名称是MMControl)。 1. 把Multimedia MCI控件加到工具箱（2）把 Multimedia 控件添加到窗体上： 方法雷同于添加工具箱中标准控件到窗体。（3）Multimedia 控件的按钮：当你打开有效的多媒体设备并且控件可用时，系统会自动完成相应工作。按钮被分别定义为：Prev、 Next、 Play、 Pause、 Back、 Step、 Stop、 Record 和 Eject。你可以为某一个按钮编写程序，从而为其增加特殊功能；但通常用缺省的按钮功能就能很好地播放音乐和视频。 1. DeviceType属性 在引用控件时，需要指定控件的DeviceType 属性，格式是： MMControl1.DeviceType=Devname Multimedia控件支持的多媒体设备的Devname值有： AVIVideo(视频文件*.avi)、 WaveAudio (音频文件*.Wav) 、Sequencer (midi音频文件*.mid) 等。 2. Command属性　 在Multimedia控件中非常有用的一个属性是Command，它在运行过程中向多媒体设备发出命令，命令格式是： MMControl.Command = cmdstringS 其中cmdstringS变量与每一个按钮的定义名称一致，取值可以是："Open" 、"Play" 、"Pause" 、 "Close" 等字符串值。 6.5.2 Multimedia 控件的主要属性和事件 3.其它属性 1) FileName 属性 取值字符串类型，表示播放的媒体文件名（可以带路径）。 2) Visible属性 Visible属性控制设备的可见性，取逻辑值，True可见，False不可见。 3) Mode属性 反映媒体设备目前状态信息，Mode属性在运行时为只读属性。 4) AutoEnable属性 决定 Multimedia MCI控件是否能够自动启动或关闭控件中的某个按钮。 MMControl.AutoEnable = True/False 6.5.2 Multimedia 控件的主要属性和事件 3.其它属性 5) ButtonEabled属性 该属性设定控件上各个按钮的状态是否有效，例如：　 MMControl1.PlayEabled = True / False ’有效/不有效 6) Wait 属性 Wait属性指定MMControl控件是否等到下一命令执行完毕，才将控制权还给应用程序。例如： MMControl1.Wait = True / False ’等待/不等待 7) Shareable属性 决定该设备能否为不同的程序共享，取逻辑值，True共享，False不共享。 8) Notify属性 描述下一个MCI控制命令是否采用确认服务，取True或False。 6.5.2 Multimedia 控件的主要属性和事件 3.其它属性 9) UpdateInterval属性 决定两次StatusUpdate事件发生所间隔的时间毫秒数。 MMControl. UpdateInterval = n ’使两次StatusUpdate事件发生所间隔的时间毫秒数为n毫秒。 10) hWndDisplay属性： hWndDisplay属性的值为长整数，用来指定视频播放的窗口。如果用图片框作为播放窗口，该属性的值取图片框的hWnd属性值，例如：MMControl.hWndDisplay = Picture1.hWnd '指定在Picture1中播放＊.avi文件。 4. Multimedia MCI控件的常用事件 参见表6-3。 语句举例： MMControl.Command = "Open" ’打开设备 MMControl.Command = "Play" ’媒体播放 MMControl.Command = "Pause" ’播放暂停 MMControl.Command = "Close" ’关闭设备 MMControl1.DeviceType= "AVIVideo" ’指定视频设备 MMControl. Visible= True/False ’ 指定多媒体控件对象在执行阶段是否可见(即是否显示出来). True可见，False不可见。 MMControl. Mode ’指明媒体设备目前状态的整数，运行时为只读 MMControl. AutoRewind ’是否自动循环，默认是False不循环。 MMControl. Shareable = True/False ’指明该设备能否为不同的程序共享。 True共享，False不共享。 6.5.3 音、视频播放示例程序例6-9. 本例是一个用Multimedia MCI控件集成音乐和视频播放的应用程序，用了2个Multimedia控件，其中，用MMControl1控件用于播放声音，它可播放＊.wav、＊.mid、＊.mp3文件。用MMControl2控件播放＊.avi视频文件，且指定视频在图片框Pictutre1中播放。这样，使得音像可以同时播放。要播放的音频文件和视频文件须事先在两个文本框中分别指定。程序的播放界面如图6-25所示。 6.5.3 音、视频播放示例程序 6.6 用VB编制动画程序 6.6.1 时钟(Timer)控件的属性、事件 6.6.2 实现控件运动的基本语句 6.6.3 典型示例程序 6.6.1 时钟(Timer)控件的属性、事件 1. 常用属性 1) Interval属性单位：毫秒ms(=0.001s)，0.5秒是500。 Interval＝0：屏蔽计时器(即停止执行Timer( )过程)。 2) Enabled属性 Enabled =True： Timer事件按Interval间隔不断发生。 Enabled =False：停止时钟工作（ Timer( )事件停止）。 2.常用事件 Timer( )事件：每隔Interval时间执行此事件过程。 6.6.2 实现控件运动的基本语句 1. Move方法作用：移动对象的位置（并可在移动位置时改变对象的大小），适用于可视对象。语法格式如下： Object.Move Left [， Top， Width， Height] Move方法的语法包含下列部分： Object：是一个对象的名称，其值可以是标签、文本框等可视对象的名称。 Left：是必需的参数，类型为单精度值，指示Object移到新地方后距离其容器控件左边界的水平坐标距离(x轴方向的坐标值)。 Top：可选参数，类型也是单精度值，指示Object移到新地方后距离其容器控件顶边的垂直坐标距离(y轴方向的坐标值)。 Width：可选的参数，类型也是单精度值，指示Object新的宽度。 Height：可选的参数，类型也是单精度值，指示Object新的高度。 6.6.2 实现控件运动的基本语句 2. 改变Top属性和Left属性的赋值语句设窗体名为Form1，窗体中有一名Label1的标签，窗体坐标系统采用默认的坐标系，移动该标签的语句举例如下： Label1.Left = Label1.Left + 100 '表示Label1标签右移100单位 Label1.Left = Label1.Left - 200 '表示Label1标签上移200单位 Label1.Top = Label1.Top + 50 '表示Label1标签下移50单位 Label1.Top = Label1.Top - 150 '表示Label1标签上移150单位 如果要使Label1标签向与x轴正向成45度倾角的右上方移动大约141单位距离，可以综合执行下列两句： Label1.Left = Label1.Left + 100 '右移100单位 Label1.Top = Label1.Top - 100 '上移100单位 6.6.3 典型示例程序例6-10. 动态文字。本程序使用两个标签分别实现文字闪烁、字号动态变大的效果，界面如图6-26所示。其中，“欢迎！欢迎！”字样闪烁，“英雄”字样动态变大。 6.6.3 典型示例程序 6.6.3 典型示例程序FWd红软基地