《Visual Basic程序设计与实训教程》第13章：API函数

2011-1-17
清华大学出版社
15
13.3 常用 常用API函数简介 函数简介
1.隐藏鼠标 2.蔽屏“Ctrl+Alt+Del”和Win键 3.防止程序重复调用 4.读取磁盘的空间及可用空间 5.读取文件的建立时间及存取时间
2011-1-17
清华大学出版社
16
2011-1-17
清华大学出版社
13
程序代码： Private Sub Command1_Click() Dim Name1 As String * 255 Dim name As String Dim i As Integer i = GetComputerName(Name1, 255) If i <> 0 Then name = Name1 Else name = "unknown" End If Text1 = name End Sub
2011-1-17
清华大学出版社
12
【例13.3】 修改计算机名称。 】 修改计算机名称。
设计界面：在窗体中添加两个命令按钮和 一个文本框，如图所示。
使用getcomputername获得当前计算机的名称，使用setcomputername修改 当前计算机的名称。 声明如下： Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
2011-1-17
清华大学出版社
4
13.1.2 API声明
若要使用API函数，则必须在先把API函数的出处、函数名称、 参数、传回值等声明在表单的"一般"区块或是一般模块(.bas文件) 中。 上例中API函数声明的方法与步骤如下： 上例中用的API函数名为SetWindowText 第 一 步 ： 新 建 工 程 ， 并 在 窗 体 Forml 中 添 加 一 命 令 按 钮 Command1，Forml 与Command1的Caption属性分别设为“API示 例”、“开始”。如下图 所示。
清华大学出版社
7
第四步 选择API浏览器中的【文件】菜单—＞ 【加载文本 文件】—>在打开的对话框中打开WIN32API，如上图所示。 第五步 在API类型中选择【声明】，并在“键入您要查找 的内容的开头几个字母”中输入需用的API函数名。如本例可输 入setw…等。此时，下面的【可用项】列表框中将显示出相应 API函数名。 第 六 步 在 【 可 用 项 】 中 选 中 需 用 API 函 数 。 本 例 为 ： SetWindowText，在【声明范围】中选择【私有】，单击【添加】 按钮。则在【选定项】中出现相应API函数声明语句。如图13-3 所示。 第七步 单击【复制】按钮，可将相应的声明语句复制到【剪 贴板】中。
2011-1-17
清华大学出版社
2
13.1.1 Windows API介绍 介绍
【例13-1】假设有一VB的表单Form1，通过调用Windows API 来改变表单标题。 若要改变此表单的标题，则使用的方法是设定表单对象的 Caption 属 性，在实际应用中，我们一般总是利用窗体的Caption属性来改变标 题。 Form1.Caption = "新的标题" 若以 API 来执行相同的工作，则叙述如下： ret = SetWindowText( Form1.hwnd, "新的标题" ) 其中 Form1.hwnd (hwnd 是 handle of window 的缩写)代表的是 Form1 这个表单【标题】的 handle 。以下是调用此API 函数的完整 程序：
2011-1-17
清华大学出版社
3
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA"_ (ByVal hwnd As Long, ByVal lpString As String) As Long Private Sub Command1_Click() ret = SetWindowText(Me.hwnd, "新的标题") End Sub Handle，简单地说就是存取 Windows 资源之识别码。在Windows 里，充满着各种不同的系统资源，例如视窗、功能表、图片、记忆 体、程序等，都算是系统资源，而 Windows 是这些资源的管理者， 为了能够管理这些资源，Windows 必须给每一资源一个惟一的识别 码，该识别码便称为 handle。
2011-1-17
清华大学出版社
5
第二步：选择【外接程序】—＞ 【外接程序管理器】，打开 【外接程序管理器】对话框—>加载VB 6 API Viewer。如下 图所示。
2011-1-17
清华大学出版社
6
第三步 选择【外接程序】—＞ API浏览器—＞ 打开API浏 览器窗口如下图所示。
2011-1-17
思考问题： 思考问题：
如果单击Command1后，同样利用调用SetWindowText函数， 将Command1的标题变为“调用完成”。应如何处理？
2011-1-17
清华大学出版社
11
13.2 API函数应用实例 API函数应用实例 【例13.2】获取对象的父窗口与对象的句柄(handel)。应 用程序运行结果如图所示。
2011-1-17
清华大学出版社
14Βιβλιοθήκη Private Sub Command2_Click() Dim i As Integer Dim name As String name = Text1.Text i = SetComputerName(name) If i = 0 Then MsgBox "fail!", vbOKOnly Else MsgBox "success!", vbOKOnly End If End Sub
2011-1-17
清华大学出版社
10
(3) 如果不关心SetwindowTex函数的返回值，对无须返回值 的API函数可将其声明为Sub过程，可将声明语句改为： Private Declare Sub SetWindowText Lib "user32" Alias _ "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String)
2011-1-17
清华大学出版社
8
第八步 回窗体设计器，选择【声明】段,单击【粘贴】，将 API声明语句粘贴到窗体的【声明】段中。具体内容如下： Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long 到此完成了API函数声明，以后在本程序中就可以像使用内部 函数和自定义函数一样使用SetWindowText这个API函数了。
程序代码如下： Private Declare Function GetParent Lib "user32" Alias "GetParent" _ (ByVal hwnd As Long) As Long Private Sub Command1_Click() Print GetParent(Command1.hwnd) Print Command1.hwnd End Sub
第13章 API函数简介 13章 API函数简介
13.1 API函数的使用方法 13.2 API函数应用实例 13.3 常用API函数简介
2011-1-17
清华大学出版社
1
【目的要求】 1.了解Windows API函数的作用； 2.掌握Windows API函数的声明方法； 3. 掌握Windows API函数的调用方法。
13.1.3 API调用
1．编写Command1的click事件过程如下： Privat sub Command1-click() SetWindowText Form1.hwnd，“新的标题” End Sub
2011-1-17
清华大学出版社
9
运行程序。单击command1，观察窗体标题栏的变化。 2．说明： (1) SetwindowText函数有二个参数。hwnd确定要修改的标题 栏窗口（Form1. hwnd）也称为窗口的句柄。参数lpstring，用于确 定标题栏的内容。 (2) SetwindowText函数的返回值为Long型，用于确定调用是否成 功。如调用成功，则返回值为1。因此本例的调用语句也可为： Private Sub Command1_Click() Dim x As Long x = SetWindowText(Form1.hwnd, "新的标题") End Sub