第13章 API函数.pptVIP

第13章 API函数简介 13.1 API函数的使用方法 13.2 API函数应用实例 13.3 常用API函数简介 13.1.1 Windows API介绍 【例13-1】假设有一VB的表单Form1，通过调用Windows API来改变表单标题。 Private Declare Function SetWindowText Lib user32 Alias SetWindowTextA_(ByVal hwnd As Long, ByVal lpString As String) As LongPrivate Sub Command1_Click() ret = SetWindowText(Me.hwnd, 新的标题)End Sub 13.1.2 API声明 若要使用API函数，则必须在先把API函数的出处、函数名称、参数、传回值等声明在表单的一般区块或是一般模块(.bas文件)中。 上例中API函数声明的方法与步骤如下： 上例中用的API函数名为SetWindowText 第一步：新建工程，并在窗体Forml中添加一命令按钮Command1，Forml 与Command1的Caption属性分别设为“API示例”、“开始”。如下图 所示。 第二步：选择【外接程序】—＞ 【外接程序管理器】，打开【外接程序管理器】对话框—加载VB 6 API Viewe