文档介绍:2017-1-27 成都中医药大学 1第第 13 13 章章 API API 函数简介函数简介 API 函数的使用方法 API 函数应用实例 常用 API 函数简介 2017-1-27 成都中医药大学 2 【目的要求】 Windows API 函数的作用; Windows API 函数的声明方法; 3. 掌握 Windows API 函数的调用方法。 2017-1-27 成都中医药大学 3 Windows API 介绍【例 13-1 】假设有一 VB 的表单 Form1 ,通过调用 Windows API 来改变表单标题。若要改变此表单的标题,则使用的方法是设定表单对象的 Caption 属性,在实际应用中,我们一般总是利用窗体的 Caption 属性来改变标题。 = " 新的标题"若以 API 来执行相同的工作,则叙述如下: ret = SetWindowText ( , " 新的标题" ) 其中 ( hwnd 是 handle of window 的缩写) 代表的是 Form1 这个表单【标题】的 handle 。以下是调用此 API 函数的完整程序: 2017-1-27 成都中医药大学 4 Private Declare Function SetWindowText Lib "user32" Alias " SetWindowTextA "_ ( ByVal hwnd As Long, ByVal lpString As String) As Long Private mand1_Click() ret = SetWindowText( , " 新的标题") End Sub Handle ,简单地说就是存取 Windows 资源之识别码。在 Windows 里,充满着各种不同的系统资源,例如视窗、功能表、图片、记忆体、程序等,都算是系统资源,而 Windows 是这些资源的管理者, 为了能够管理这些资源, Windows 必须给每一资源一个惟一的识别码,该识别码便称为 handle 。 2017-1-27 成都中医药大学 5 API 声明若要使用 API 函数,则必须在先把 API 函数的出处、函数名称、参数、传回值等声明在表单的"一般"区块或是一般模块(.bas 文件) 中。上例中 API 函数声明的方法与步骤如下: 上例中用的 API 函数名为 SetWindowText 第一步:新建工程,并在窗体 Forml mand1 , Forml mand1 的 Caption 属性分别设为“ API 示例”、“开始”。如下图所示。 2017-1-27 成都中医药大学 6 第二步:选择【外接程序】—>【外接程序管理器】,打开【外接程序管理器】对话框—>加载 VB 6 API Viewer 。如下图所示。 2017-1-27 成都中医药大学 7 第三步选择【外接程序】—> API 浏览器—>打开 API 浏览器窗口如下图所示。 2017-1-27 成都中医药大学 8 第四步选择 API 浏览器中的【文件】菜单—>【加载文本文件】—>在打开的对话框中打开 WIN32API ,如上图所示。第五步在 API 类型中选择【声明】,并在“键入您要查找的内容的开头几个字母”中输入需用的 API 函数名。如本例可输入 setw …等。此时,下面的【可用项】列表框中将显示出相应 API 函数名。第六步在【可用项】中选中需用 API 函数。本例为: SetWindowText ,在【声明范围】中选择【私有】,单击【添加】按钮。则在【选定项】中出现相应 API 函数声明语句。如图 13-3 所示。第七步单击【复制】按钮,可将相应的声明语句复制到【剪贴板】中。 2017-1-27 成都中医药大学 9 第八步回窗体设计器,选择【声明】段, 单击【粘贴】,将 API 声明语句粘贴到窗体的【声明】段中。具体内容如下: Private Declare Function SetWindowText Lib "user32" Alias " SetWindowTextA " ( ByVal hwnd As Long, ByVal lpString As String) As Long 到此完成了 API 函数声明,以后在本程序中就可以像使用内部函数和自定义函数一样使用 SetWindowText 这个 API 函数了。 API 调用 的 click 事件过程如下: Privat mand1-cli