VB60哈工大教程-第13章.pptVIP

13.1 调用Windows API 13.1.2 API函数声明 13.1.3 使用 API函数实例 13.2 编写多媒体应用程序 13.2.1 Multimedia MCI 控件 2. 常见多媒体设备 3. Multimedia 控件的主要属性和事件 13.2.2 MCI 命令 13.2.3 用多媒体控件编程 13.2.4 使用API多媒体函数 13.2.5 多媒体播放器对象的嵌入 * 13.1 调用Windows API 13.2 编写多媒体应用程序 第13章 VB与多媒体 退出 13.1.1 用API Viewer查看API 3.1.2 程序语句 返回 退出 13.1.3 使用 API函数实例 13.1.1 用API Viewer查看API 用API Viewer查看API函数和常量的方法如下： （1）单击VB程序组中的“API 文本浏览器”启动API Viewer。 （2）从“File”菜单中选择“加载文本文件”菜单项，打开“选择一个文本API文件”对话框，选择文件“Win32api.txt” 。 （3）在文本框中输入要搜索的API函数或常量、类型的开始几个字母，就会在“可用项”中显示查找到相应的内容。 （4）单击“Add”按钮，在最下面的文本框中就显示出VB声明，单击“复制”按钮将其复制到剪贴板中，随后粘贴到用户工程代码中。 图13-1 包含API函数信息的文本文件 图13-2 API浏览器 可以直接将上述复制到剪贴板中的内容粘贴到VB工程代码中声明API函数，也可以直接键入API函数声明。请看如下实例： Declare Function OpenFile Lib kernel32 Alias OpenFile (ByVal lpFileName As String,_ lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long 其中： Declare：关键字，表明要声明—个外部过程。 Function：表明声明的是一个外部函数。如果为Sub，则为外部过程。 OpenFile：要声明的外部过程的函数名。 Lib：关键字，表明函数位于下面的DLL库中。 kernel32：是DLL的库名，必须用引号括起来。 Alias：关键字，表明可以用紧跟其后的别名OpenFile来调用此函数。 OFSTRUCT：为参数lpReOpenBuff的数据类型。 其他部分的说明同一般的函数过程。 例13-1：制作永远在其他窗口之上的窗口。 第一步：新建一个工程，设工程名为MyAPI1，该工程包含3个窗体，名称分别为Form1、Form2和APIform，一个标准模块，名称为APIModule。 第二步：在API浏览器中查找SetWindowPos函数，并将其函数声明文本复制到标准模块APIModule中： Public Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal_ hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As_ Long, ByVal wFlags As Long) As Long 第三步：在主窗体的代码窗口加上如下代码： Const SWP_NOMOVE = 2 不更新窗口位置 Const SWP_NOSIZE = 1 不更新窗口大小 Const HWND_TOPMOST = -1 窗口放在所有窗口顶部 Const HWND_NOTOPMOST = -2 窗口不能放在所有窗口顶部 Private Sub Form_Load() APIForm.Show Form2.Show SetWindowPos APIForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE_ + SWP_NOSIZE End Sub 图13-3 程序运行实例 例13-2：生成特殊形状的窗口。 在上述程序的标准模块中加上如下函数声明： Public Declare Function CreateEllipticRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As_ Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declar