《Visual Basic程序设计项目化案例教程 教学课件 ppt 作者 王萍 8-13 第10章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计项目化案例教程 教学课件 ppt 作者 王萍 8-13 第10章（57页珍藏版）》请在金锄头文库上搜索。
1、【案例10-1】 多媒体播放器 【案例10-2】 网页浏览器 【本章小结】,一、案例效果 本案例是一个简易的多媒体播放器。当用户单击“文件”“打开”命令后，弹出“打开”对话框，确定具体的文件类型后选择相应的文件，在“文件名”标签中显示完整的路径名。单击“控制”“播放”命令后，开始播放文件，进度条显示播放进度。此时如果单击“控制”“暂停”命令，将暂停文件的播放，再次选择“播放”命令，将从暂停处继续播放。倘若单击“停止”命令文件将停止播放，再次单击“播放”命令时，文件将从头开始播放。“控制”“循环播放”可以控制文件是否循环播放。界面如图10-1所示。,【案例10-1】 多媒体播放器,图10-1,二
2、、技术分析 本案例中共涉及到3个新的控件，分别是MMControl控件、CommonDialog控件与ProgressBar控件。这3个控件都是高级控件，在使用前必须先添加到工具箱中。 添加的方法是：选择“工程”“部件”菜单命令，弹出如图10-2所示的“部件”对话框，在“控件”选项卡的下拉列表中选中“Microsoft Common Dialog Control 6.0”复选框、“Microsofr MultiMedia Control 6.0”复选框及“Microsoft Windows Common Control 6.0”复选框，然后单击“确定”按钮，则工具箱上就会出现对话框(Commo
3、nDialog)控件、多媒体(MMcontrol)控件、进度条(ProgressBar)控件。,图10-2,1多媒体MMControl控件() 本案例中使用的第一个多媒体控件是MMControl控件。 MMControl控件用于管理媒体控制接口(MCI)设备上的多媒体文件的录制与播放。实际上，这种控件就是一组按钮，用来向音频和视频设备发出MCI命令。这些按钮类似于一般CD机或录像机上的按键。在设计时，其外观如图10-3所示。,图10-3,1) MMControl控件的常用属性 (1) AutoEnable属性。该属性决定MMControl控件是否能够自动启动或关闭控件中的每个按钮。如果将其值设
4、置为True，MMControl控件就启用指定MCI设备类型在当前模式下所支持的全部按钮；如果将其值设置为False，则不能启用或禁用按钮。 (2) ButtonEnabled属性。该属性决定是否启用或禁用控件中的某个按钮，禁用的按钮以淡化形式显示。当其值为True时，则启用指定的按钮；当其值为False时，不启用指定的按钮。,(3) ButtonVisible属性。该属性用来决定指定的某个按钮是否在控件中显示。当其值为True时，则显示指定的按钮；当其值为False时，则隐藏指定的按钮。 (4) Command属性。该属性用来指定将要执行的MCI命令，在设计时不可用。 其语法格式如下： MM
5、Control控件.Command=命令 其中，命令及其功能描述参见表10-1。,(5) DeviceType属性。该属性用来指定要打开的MCI设备类型。 (6) FileName属性。该属性用于获取要播放的多媒体文件名，值为包含文件目录和文件名称的字符串。 (7) hWndDisplay属性。该属性用来定位画面播放的位置。 (8) Position属性。该属性用来指定打开的MCI设备的当前位置。在设计时Position属性不可用，在运行时它是只读的。 (9) Mode属性。该属性返回打开的MCI设备的当前模式。在设计时Mode属性不可用，在运行时它是只读的。,(10) UpdateInter
6、val属性。该属性规定两次连续的StatusUpdate事件之间的时间，单位是ms(毫秒)，如果是0 ms，则表明没有StatusUpdate事件发生。 (11) Wait属性。该属性决定MMControl控件是否要等到下一条MCI命令完成，才能将控件返回应用程序。在设计时，该属性不可用。 2) MMControl控件的常用命令 MMControl控件的常用命令见表10-1。,表10-1 MMControl控件的MCI命令,2CommonDialog(通用对话框)控件() 本案例中涉及到的第二个控件是CommonDialog(通用对话框)中的“文件”对话框。“文件”对话框用于获取文件名的操作有
7、两种模式：打开文件和保存文件。在这两种对话框窗口内，可遍历磁盘的整个目录结构，找到所需要的文件。,1) CommonDialog(通用对话框)控件用于文件操作时的常用属性 (1) FileName 属性，获取或设置用户所要打开的文件的路径和文件名。该属性为文件名字符串，用于设置“打开”对话框中“文件名称”文本框中显示的文件名。 (2) Filter 属性，用来指定在对话框中显示的文件类型。用Filter属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。Filter的属性值是一个字符串，字符串由一组元素或用管道符“|”隔开的分别表示不同类型文件的多组元素组成，在“|”前面的
8、部分称为描述符，后面的部分一般为通配符和文件扩展名，称为“过滤器”。,例如：CommonDialog控件Filter=描述符1过滤器1描述符2过滤器2 (3) Flag属性，为文件对话框设置选择开关，用来控制对话框的外观。 如：CommonDialog控件Flag=值 其中：“值”是一个整数，可以使用3种形式，即符号常量、十六进制整数和十进制整数，这里仅介绍常用的几个，见表10-2。 (4) CancelError 属性。如果该属性被设置为True，则当单击“Cancel”(取消)按钮关闭一个对话框时，将显示出错信息；如果设置为False(默认)，则不显示出错信息。,表10-2 Flag属性取
9、值含义,2) CommonDialog(通用对话框)控件的常用方法 (1) ShowOpen 方法，显示“打开”对话框。 如：CommonDialog1.ShowOpen (2) ShowSave方法，显示“另存为”对话框。 如：CommonDialog1.ShowSave (3) ShowPrint方法，显示“打印”对话框。 如：CommonDialog1.ShowPrint,3ProgressBar(进度条)控件() 本案例中涉及到的第三个新控件是ProgressBar控件。该控件有3个常用属性： (1) Value属性。该属性值对应于进度条中显示的进度位置。 (2) Max属性，定义Va
10、lue属性值的最大值。 (3) Min属性，定义Value属性值的最小值。,三、操作步骤 1创建程序界面 (1) 启动Visual Basic 6.0，新建一个“标准 EXE”工程。 (2) 在窗体上添加1个标签控件、2个定时器控件、1个进度条(ProgressBar)控件、1个通用对话框(CommonDialog)控件、1个多媒体(MMcontrol)控件。另外，利用“工具”“菜单编辑器”在窗体上添加1个菜单，各菜单项设置如表10-3所示。,表10-3 设 置 菜 单 项,2属性的设置与修改 按照表10-4所列设置各对象的属性。,表10-4 设置对象的属性,3程序代码设计 (1) 窗体加载事
11、件的代码如下： Private Sub Form_Load() Timer1.Interval = 60 MMC1.hWndDisplay = 0 CD1.Filter = “MP3 文件(*.MP3)|*.mp3|CD 音频(*.wav)|*. wav | |所有文_件(*.*)|*.*” End Sub,(2) “文件”“打开”命令单击事件的代码如下： Private Sub FileOpen_Click() MMC1.UpdateInterval = 0 CD1.Flags = vbofnreadonly Or vbofnfilemustexist CD1.CancelError = T
12、rue CD1.FileName = “ On Error Resume Next CD1.ShowOpen MMC1.FileName = CD1.FileName If MMC1.FileName = “ Then,Exit Sub Else Label1.Caption = MMC1.FileName End If If Not MMC1.Mode = vbmcimodenotopen Then MMC1.Command = “close“ End If MMC1.Command = “open“ Timer1.Enabled = True PB1.Max = MMC1.Length P
13、B1.Min = 1 End Sub,(3) “文件”“关闭”命令单击事件的代码如下： Private Sub Close_Click() MMC1.Command = “close“ Timer1.Enabled = False PB1.Value = 1: Label1.Caption = “文件名：“ End Sub (4) “文件”“退出”命令单击事件的代码如下： Private Sub Quit_Click() End End Sub,(5) “控制”“播放”命令单击事件的代码如下： Private Sub FilePlay_Click() MMC1.Command = “play“
14、 End Sub (6) “控制”“循环播放”命令单击事件的代码如下： Private Sub CFilePlay_Click() If CFilePlay.Caption = “循环播放“ Then CFilePlay.Caption = “非循环播放“ Timer2.Enabled = False Else CFilePlay.Caption = “循环播放“ Timer2.Enabled = True End If End Sub,(7) “控制”“暂停”命令单击事件的代码如下： Private Sub FilePause_Click() MMC1.Command = “pause“ E
15、nd Sub (8) “控制”“停止”命令单击事件的代码如下： Private Sub Stop_Click() MMC1.Command = “stop“ MMC1.Command = “prev“ End Sub,(9) 时钟控件1的代码如下： Private Sub Timer1_Timer() On Error Resume Next PB1.Value = MMC1.Position End Sub (10) 时钟控件2的代码如下： Private Sub Timer2_Timer() If PB1.Value = PB1.Max Then MMC1.Command = “prev“
16、 MMC1.Command = “play“ End If End Sub,4程序代码调试 输入程序代码后，完成程序代码的调试和修改。,四、探索与思考 上述案例可以播放MP3、WAV、AVI等格式的文件，如何改进程序使其能播放MOV、ASF、MPG等格式的文件？ 五、学生自主设计播放器 1设计要求 1) 基本部分模仿 用Mmcontrol控件与CommonDialog控件制作一个VCD播放器。 2) 拓展部分创意设计 试设计一个影片播放器，界面可参照图10-4。,图10-4,2知识准备 要完成自主设计内容，需掌握以下知识： (1) MMControl控件的常用属性、常用命令。 (2) CommonDialog控件的常用属性、常用方法。 (3) 选择结构中二分支语句的格式与应用。 3效果评价标准 请对照表10-5完成自主设计的效果评价。,表10-5 效 果 评 价 表,4设计小结 请将你
