(中职）Visual Basic 6.0程序设计第8章课件.ppt

《(中职）Visual Basic 6.0程序设计第8章课件.ppt》由会员分享，可在线阅读，更多相关《(中职）Visual Basic 6.0程序设计第8章课件.ppt（15页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、(中职）Visual Basic 6.0程序设计第8章ppt课件多媒体与网络程序设计多媒体与网络程序设计 v【实例28】影片播放器v【实例29】网页浏览器【实例【实例28】影片播放器影片播放器 案例效果 程序可用于播放AVI影片（含音频）技术分析技术分析 1多媒体控件 2动画(Animation)控件（1）AutoPlay属性（2）BackStyle属性（3）Center属性（4）Open方法（5）Play方法（6）Stop方法（7）Close方法 技术分析技术分析3Multimedia MCI多媒体控件（1）Multimedia MCI控件常用的属性与事件（2）Multimedia MCI控

2、件的常用命令（3）使用Multimedia MCI 控件时的注意事项 操作步骤操作步骤 v1创建程序界面v新建一个“标准 EXE”工程，按前面所学过的添加ActiveX控件的方法将Multimedia MCI 控件加入工程，该控件对 应的部件为“Microsoft MultiMedia Control 6.0”。v2程序代码编辑v在程序中输入以下代码。v程序代码：vOption ExplicitvPrivate Sub Command1_Click()v CommonDialog1.ShowOpen 打开打开文件对话框v MMControl1.Orientation=mciOrientHorz

3、 控件按钮水平排列v MMControl1.DeviceType=AVIVideo 指定MCI设备的类型为AVI播放器v MMControl1.Notify=False 使Multimedia MCI控件不发出回调信息v MMControl1.Shareable=False 指定多媒体设备不能共享v MMControl1.Wait=True 在前一命令完成之前，控件不可用v MMControl1.FileName=CommonDialog1.FileName 设定播放文件和路径v MMControl1.Command=Open 激活Multimedia控件中的按钮v End SubvPriva

4、te Sub Form_Load()v CommonDialog1.Filter=全部文件|*.*|AVI视频文件|*.AVI 设置打开文件对话框的文件过滤vEnd SubvPrivate Sub Form_Unload(Cancel As Integer)v MMControl1.Command=Close 关闭MCI设备vEnd SubvPrivate Sub Command2_Click()v EndvEnd Sub 知识进阶知识进阶 1MediaPlayer控件 2影片播放器影片播放器 v（1）新建一个“标准 EXE”工程，在窗体上添加四个命令按钮控件。v（2）单击“工程”“部件”菜单

5、命令，在“控件”列表中选择“Microsoft Common Dialog Controls 6.0”和“Windows Media Player”项，然后单击“确定”按钮 v（3）为程序设计菜单，菜单项的内容按表8-5进行设置。v（4）最后，为程序添加如下代码。思考练习思考练习 v1填空题v（1）多媒体的实质是 。不同的信息形式包括 、和 。v（2）VB提供的4个多媒体播放控件是 控件、控件、控件和 控件，它们都属于 控件。这4个多媒体播放控件的OCX文件都存放在 目录下。v（3）控件只能播放没有声音的视频动画AVI文件。v（4）控件从本质上来说是Win32 API中MCI命令的VB可视化接

6、口。v2程序设计题v（1）使用Multimedia MCI多媒体控件，编写一个可播放VCD的程序。v（2）使用MediaPlayer多媒体控件，编写一个多功能的多媒体播放器。【实例【实例29】网页浏览器网页浏览器 案例效果 本实例是一个使用网络控件设计的网页浏览器 技术分析技术分析 1Visual Basic 中的网络控件 2WebBrowser控件 操作步骤操作步骤 v1创建程序界面v新建一个“标准 EXE”工程，按添加ActiveX 控件的方法，在窗体上添加一个WebBrowser控件和一个用于打开文件的通用对话框，再添加两个命令按钮控件和一个文本框。v2程序代码编辑v然后，在代码窗口为程

7、序添加如下代码。v程序代码：vPrivate Sub Command1_Click()v CommonDialog1.ShowOpenv WebBrowser1.Navigate2 CommonDialog1.FileName 打开指定的网页v Text1.Text=CommonDialog1.FileNamevEnd SubvPrivate Sub Command2_Click()v WebBrowser1.Navigate2 Text1.TextvEnd SubvPrivate Sub Form_Load()v CommonDialog1.Filter=Html 网页|*.htm;*.ht

8、ml|全部文件|*.*vEnd SubvPrivate Sub Form_Resize()v 以下代码在窗体大小改变时相应改变WebBrowser控件大小v WebBrowser1.Top=450v WebBrowser1.Left=100v WebBrowser1.Height=Me.Height-900v WebBrowser1.Width=Me.Width-300vEnd Sub 思考练习思考练习 v1填空题v（1）Visual Basic 6.0为程序开发提供了多种不同的控件来用于网络程序的设计包括 、和 等。v（2）控件可用于浏览器的设计，提供了访问 TCP 和 UDP网络服务的方便途径，可用于为编写客户或服务器应用程序。v2程序设计题v参照本节实例中的网页浏览器，对其进行完善，设计成更为有效实用的浏览器。