Visual Basic第18章 多媒体应用程序

《Visual Basic第18章 多媒体应用程序》由会员分享，可在线阅读，更多相关《Visual Basic第18章 多媒体应用程序（22页珍藏版）》请在装配图网上搜索。

1、第十八章 用Visual Basic开发多媒体应用程序18.1 Visual Basic的多媒体控件一、多媒体控件的引入 在“工程”菜单中单击“部件”菜单项，或用鼠标右键单击工具箱面板并从弹出的菜单中单击“部件”菜单项添加它们。然后从“部件”对话框中选中Microsoft Multimedia Control 6.0，将它添加到工具箱中。二、多媒体控件简介 多媒体控件管理媒体控制接口(MCI)设备上多媒体文件的记录与回放。这种控件就是一组按钮，它被用来向诸如声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器及播放器等设备发出MCI命令。MCI控件还支持Windows(

2、*.avi)视频文件的回放。多媒体控件的常用命令、常用属性及事件 命 令描 述Back 将设备的轨道后退一步Close 关闭一个设备Eject 从光驱中退出光盘Next 到下一个轨道的起点Open 打开一个设备Pause 暂停播放或暂停后重新开始Play 播放一个文件Record 对一个设备进行记录Save储存一份打开的文件Seek寻找位置(位置由To属性给出)Sound播音Step前进一步Stop停止播放或记录Prev回到当前轨迹的起点。在使用Prev命令三秒钟之内再次使用，会回到前一个轨道的起点。属 性功 能AutoEnable根据设备性能自动启用或禁用多媒体控件界面按钮，它有True、F

3、alse两个属性值，为True能自动播放媒体文件Command向媒体设备发出各种命令DeviceType设置将要使用的多媒体设备类型Frames确定来自一个设备的帧数FileName确定一些多媒体设备使用的文件名From确定下一条Play或Record命令的起点位置HwndDisplay设置一个多媒体设备使用的窗口Position取回设备播放或记录的当前位置Start取回一条Play或Record命令的当前位置TimeFormat设置各种媒体设备使用的时间格式To确定下一条Play或Record命令的终点位置Tracks用于显示总的轨迹数量UpdateInterval指定StatusUpdat

4、e事件之间间隔的毫秒数Track在播放CD格式文件中，指定 Track和Track Position属性返回信息的轨迹事件StatusUpdate:播放时每隔UpdateInterval触发PlayClick,OpenClick,StopClick第十九章 ActiveX 部 件uActiveX部件是可以重复使用的编程代码和数据部件是可以重复使用的编程代码和数据u由用由用ActiveX技术创建的一个或多个对象所组成。技术创建的一个或多个对象所组成。u在在VB中，中，ActiveX部件有三类部件有三类：ActiveX控件、控件、ActiveX文档文档(DLL/EXE)和和ActiveX代码库代码

5、库(DLL/EXE)u创建创建ActiveX部件可以采用多种编程工具，如部件可以采用多种编程工具，如VC+、VB、BCB、JAVA等等u这些创建的这些创建的ActiveX部件也可以在部件也可以在VB、VC+、BCB等开发工具中使用等开发工具中使用 Vb的三种的三种ActiveX部件部件uActiveX控件是一种可视的控件是一种可视的ActiveX部件，是一种部件，是一种可以插入到可以插入到Web页或任何页或任何ActiveX控件容器中的控件容器中的交互对象。交互对象。uActiveX文档的引入允许文档的引入允许Web浏览器显示其他格浏览器显示其他格式的资料，例如式的资料，例如PDF格式、格式、

6、Microsoft Office文档、文档、Visio图形和图表等，创建交互式的图形和图表等，创建交互式的Internet应用应用程序。程序。uActiveX DLL和和ActiveX EXE是代码部件，提供是代码部件，提供了对象库。在程序设计时，通过引用其他应用程了对象库。在程序设计时，通过引用其他应用程序对象库，可以扩展应用程序的功能。序对象库，可以扩展应用程序的功能。19.1 ActiveX控件的制作(1)建立一个ActiveX控件工程，然后在UserControl对象上设计ActiveX控件的界面。(2)(2)编写程序代码。(3)(3)控件调试。(4)生成且发布OCX控件。例例:建立钟

7、表控件建立钟表控件19.2 使用其他应用程序中的对象 很多应用程序都向外部提供了规模庞大的对象库，这些对象可以在各应用程序之间共享 Vb程序可以通过ActiveX部件技术访问这些对象库中的对象及其属性、方法和事件，从而设计出功能强大的程序。使用外部应用程序中的对象的步骤如下：使用外部应用程序中的对象的步骤如下：(1)设置对象库的引用。设置对象库的引用。创建新的对象，或者从其他应用程序中获得已存创建新的对象，或者从其他应用程序中获得已存在的对象。在的对象。(2)使用这些对象的属性、方法和事件来实现某种使用这些对象的属性、方法和事件来实现某种功能。功能。(3)释放这些外部变量。释放这些外部变量。例

8、：引用例：引用word对象显示艺术字对象显示艺术字第二十章 Visual Basic网络编程一、Windows Socket网络通信简介1.TCP/IP协议u是一组完整的网络协议，有效地实现了不同网络及计算机间的互操作 u包括TCP、UDP、IP、ICMP、ARP/RARP等协议，它们共同作用，完成TCP/IP网络环境下的数据传输、文件访问、资源共享 uTCP（传输控制协议）是个面向连接的协议，可以将它同电话系统相比，在开始数据传输之前，用户必须先建立与远程计算机的连接，连接后两台计算机就可彼此进行数据传输。uUDP（用户数据报协议）是一个无连接协议，通信主机之间的数据传输类似于传递邮件,通信

9、的两台计算机之间没有明确的连接。2.地址地址 网络通信中通信双方分别位于不同的机器上，这时要用网络通信中通信双方分别位于不同的机器上，这时要用“地址地址”来标识通信的两台主机，在来标识通信的两台主机，在TCP/IP协议中采用协议中采用32位二进制数表示的位二进制数表示的IP地址，如地址，如192.168.0.1。3.端口端口 端口用于表示通信的进程。应用程序通过系统调用与某端口用于表示通信的进程。应用程序通过系统调用与某端口建立连接后，网络传输层传给该端口的数据都被相应端口建立连接后，网络传输层传给该端口的数据都被相应进程所接收，相应进程发给传输层的数据都通过该端口输进程所接收，相应进程发给传

10、输层的数据都通过该端口输出。每个端口都拥有一个称为端口号的整数型标识符，用出。每个端口都拥有一个称为端口号的整数型标识符，用于区别不同端口于区别不同端口.其中其中11023范围内的端口号通常保留范围内的端口号通常保留给系统进程使用，用户应用程序中可以使用的端口号范围给系统进程使用，用户应用程序中可以使用的端口号范围是是102465535.如如ie的端口号为的端口号为80，ftp的端口号为的端口号为21二、Windows Sockets编程原理 1.Socket（套接字）Socket（套接字）是网络通信的基本构件。它的用途是将基础网络抽象出来，这样，你不必对网络协议非常了解，应用程序可在任何支持

11、套接字的网络上运行。Windows Sockets规范定义了程序员能够使用，并且网络软件供应商能够实现的一套库函数调用和相关语法。Winsock就是Windows应用程序与TCP/IP之间的通信界面，这个界面提供了访问TCP和UDP网络服务的方便途径 应用程序1应用程序2网络应用编程界面(Socket)TCP/IP核心协议物理介质图20.1.1 TCP/IP协议簇核心与应用程序关系图 三、采用Winsock控件实现网络通信 1.Winsock控件 加入到工具箱：部件-microsoft winsock control 6.0属属 性性数据数据类类型型用用 途途BytesReceived Lon

12、g返回本次返回本次连连接中接收到的字接中接收到的字节节数数LocalHostNameString本地主机名本地主机名LocalIPString本地主机的本地主机的IP地址地址LocalPortLong设设置置/返回返回这这次次连连接所用的本地主机端口号接所用的本地主机端口号ProtocolInteger设设置置/返回返回协议协议：SckTCPProtocol(0)TCP协议协议SckUDPProtocol(1)UDP协议协议RemoteHostString设设置置/返回跟本机返回跟本机连连接的接的远远程程计计算机名算机名RemoteIPString设设置置/返回本机返回本机连连接的接的远远程程

13、计计算机算机IP地址地址RemotePortLong设设置置/返回跟本机返回跟本机连连接的接的远远程程计计算机的端口号算机的端口号Socket HandleLong套接字的句柄套接字的句柄StateInteger本次本次连连接的状接的状态态，用枚，用枚举类举类型来表示。型来表示。uWinsock控件的属性控件的属性方 法用 途AcceptSub Accept(requestID As Long)响应其他计算机的连接请求CloseSub Close()关闭当前连接 ConnectSub Connect(RemoteHost,RemotePort)连接到一台远程计算机GetdataSub GetD

14、ata(data,type,maxLen 从远程计算机接收数据PeekDataSub PeekData(data,type,maxLen)从接收缓冲区中取数据但不把缓冲区中的数据删除ListenSub Listen()侦听是否有连接请求SendDataSub SendData(data)发送数据到远程计算机uWinsock控件的方法控件的方法事 件用 途Close调用Close方法时触发ConnectionRequest接收到连接请求时触发Connect连接完成后触发DataArrival数据到达时触发SendComplete发送数据完成后触发SendProgress发送数据量变化时触发Err

15、or出错时触发uWinsock控件的事件控件的事件四、采用TCP协议的Winsock通信 服务器服务器(1)打开一通信通道并告知本地主机，它愿意在某一约定打开一通信通道并告知本地主机，它愿意在某一约定的端口上接收客户请求。的端口上接收客户请求。(2)等待客户请求到达该端口。等待客户请求到达该端口。(3)接收到请求服务，处理该请求并发送应答信号。接收到请求服务，处理该请求并发送应答信号。(4)继续等待一客户请求。继续等待一客户请求。(5)关闭服务器。关闭服务器。客户客户(1)打开一通信通道，并连接到服务器所在主机的约定端打开一通信通道，并连接到服务器所在主机的约定端口上。口上。(2)向服务器发服

16、务请求，等待并接收应答向服务器发服务请求，等待并接收应答(3)继续提出请求继续提出请求(4)请求结束后关闭通信通道并终止。请求结束后关闭通信通道并终止。9、静夜四无邻，荒居旧业贫。5月-235月-23Tuesday,May 30,202310、雨中黄叶树，灯下白头人。09:03:1809:03:1809:035/30/2023 9:03:18 AM11、以我独沈久，愧君相见频。5月-2309:03:1809:03May-2330-May-2312、故人江海别，几度隔山川。09:03:1809:03:1809:03Tuesday,May 30,202313、乍见翻疑梦，相悲各问年。5月-235月

17、-2309:03:1809:03:18May 30,202314、他乡生白发，旧国见青山。30 五月 20239:03:18 上午09:03:185月-2315、比不了得就不比，得不到的就不要。五月 239:03 上午5月-2309:03May 30,202316、行动出成果，工作出财富。2023/5/30 9:03:1809:03:1830 May 202317、做前，能够环视四周；做时，你只能或者最好沿着以脚为起点的射线向前。9:03:18 上午9:03 上午09:03:185月-239、没有失败，只有暂时停止成功！。5月-235月-23Tuesday,May 30,202310、很多事情

18、努力了未必有结果，但是不努力却什么改变也没有。09:03:1809:03:1809:035/30/2023 9:03:18 AM11、成功就是日复一日那一点点小小努力的积累。5月-2309:03:1809:03May-2330-May-2312、世间成事，不求其绝对圆满，留一份不足，可得无限完美。09:03:1909:03:1909:03Tuesday,May 30,202313、不知香积寺，数里入云峰。5月-235月-2309:03:1909:03:19May 30,202314、意志坚强的人能把世界放在手中像泥块一样任意揉捏。30 五月 20239:03:19 上午09:03:195月-2

19、315、楚塞三湘接，荆门九派通。五月 239:03 上午5月-2309:03May 30,202316、少年十五二十时，步行夺得胡马骑。2023/5/30 9:03:1909:03:1930 May 202317、空山新雨后，天气晚来秋。9:03:19 上午9:03 上午09:03:195月-239、杨柳散和风，青山澹吾虑。5月-235月-23Tuesday,May 30,202310、阅读一切好书如同和过去最杰出的人谈话。09:03:1909:03:1909:035/30/2023 9:03:19 AM11、越是没有本领的就越加自命不凡。5月-2309:03:1909:03May-2330-

20、May-2312、越是无能的人，越喜欢挑剔别人的错儿。09:03:1909:03:1909:03Tuesday,May 30,202313、知人者智，自知者明。胜人者有力，自胜者强。5月-235月-2309:03:1909:03:19May 30,202314、意志坚强的人能把世界放在手中像泥块一样任意揉捏。30 五月 20239:03:19 上午09:03:195月-2315、最具挑战性的挑战莫过于提升自我。五月 239:03 上午5月-2309:03May 30,202316、业余生活要有意义，不要越轨。2023/5/30 9:03:1909:03:1930 May 202317、一个人即使已登上顶峰，也仍要自强不息。9:03:19 上午9:03 上午09:03:195月-23MOMODA POWERPOINTLorem ipsum dolor sit amet,consectetur adipiscing elit.Fusce id urna blandit,eleifend nulla ac,fringilla purus.Nulla iaculis tempor felis ut cursus.感感 谢谢 您您 的的 下下 载载 观观 看看专家告诉