VB教案10第三章VB基本语言.pptVIP

Visual Basic 程序设计 第十章 Visual Basic与多媒体 内容 Win32 API函数 多媒体应用 Win32 API函数 Win32 API函数概述 Windows的动态链接库(DLL，Dynamic Link Library)构成了Win32 API函数。Windows中的主要DLL如下： 从Visual Basic应用程序中访问Windows API函数之前，必须在Visual Basic应用程序中用Declare语句将API函数声明为外部过程。 在VB中访问查看API函数 API文本浏览器应用程序 MMControl控件 MMControl控件本质上是一个用户和Windows多媒体系统之间的接口。通过这个接口用户无须介入实际的设备就可操纵所有的多媒体设备。 多媒体控件上的9个按钮都响应Click事件、Completed事件、Done事件、GotFocus事件、LostFocus 事件和StatusUpdate事件等。 例10.5 用MCl控件的多媒体功能制作一个CD播放器。 要点： CD音乐在CD盘上是按磁轨存放的，一个曲目占一个磁轨。当MCl控件的时间格式设定为轨道、分、秒、画面(TMSF)时，Tracks属性返回CD盘上磁轨总数，即曲目数，Track属性返回当前磁轨号。在时间格式为微秒时，Length属性返回播放的总时间，Track Length 属性返回当前磁轨播放的时间。 CD播放器设备类型为CdAudio MCl控件上的9个按钮能自动设定相互之间的约束关系，用户不必编写任何代码。 例10.6 用MMControl控件制作录音机。 要点： 录音前需要为语音文件指定一个文件名，如果文件不存在，由应用程序帮助建立一个新文件。 录音机设备类型为Waveaudio。 属性Command = “Record”开始录音。 Command = “Save” 将录音保存到文件。 MCl的StatusUpdate事件检测媒体文件的长度，在执行MCI的Record命令进入录音状态时，媒体文件不断增长，故要调整滚动条的Max属性。 使用API多媒体函数 与MCI有关的API函数mciExecute()和mciSendCommand()可编写多媒体应用程序。 例10.8 用mciExecute函数制作CD播放器。 要点：通过mciExecute函数直接将指令字符串发送给MCI。 API函数sndPlaySound可以直接播放音频文件或系统声音。 sndPlaySound函数有两个参数，lpszSoundName指定播放的音频文件或系统声音，uFlags设定播放状态。 例10.9 调用Windows应用程序接口函数sndPlaySound播放音频文件。 要点： i = sndPlaySound(音频文件名, flage) flage表示同步、非同步或重复播放。 i = sndPlaySound(“ ”,1)无声音播放。 * * Declare语句 将API函数声明为外部过程 Visual Basic应用程序 访问 返回 文件/加载文本文件 1。选择信息类型 2。选定 3。 4。送剪贴板 选定API函数复制到剪贴板 使用API函数例程 例10.1 软件封面制作。 要点： 软件封面显示过程实质上是使窗口保持在最上层，这是通过调用SetWindowPos接口函数来完成这一任务。 软件封面用一个单独的窗体构成，并要使窗体在运行时不显示控制菜单框及最大、最小化按钮和标题栏。封面上应有背景图案、软件标题与版权信息等数据。 主控程序窗体除了所含有的功能控件外，还要一个定时器控件，用于到达预定时间时自动关闭封面窗体。 SetWindowPos函数的参数hWnd为窗口句柄，它指示一个窗口；hWndInSertAfter指示另一个窗口，由hWnd指示的窗口将被定位在该窗口后；x,y为窗口左上角坐标；cx,cy为窗口的新的长和宽度； wFlags是影响窗口大小、位置和是否显示。 例10.2 Windows系统任务栏的控制。 要点： SetWindowPos接口函数除了可以控制窗口的大小和位置外，还可以控制窗口的显示与隐含。当参数wFlags取值H80隐含窗体，取值H40显示窗体。 Windows系统的任务栏也是一个窗体，可使用SetWindowPos函数控制显示与隐含。 为了找到被隐含的窗体，需要调用另一个API函数FindWindow。 其参数lpClassName 为窗体类名；lpWindowName为窗体名。它返回窗口句柄。 可编制通用过程Formhide通过调用SetWindowPos对任务栏的显示与隐含进行控制。 例10.3 生成特殊形状的窗体。 要点： 椭圆状区域需要通过C