什么是API   
首先，有必要向大家講一講，什么是API。所謂API本來是為C和C++程序員寫的。API說來說去，就是一種函數，他們包含在一個附加名為DLL的動態連接庫文件中。用標準的定義來講，API就是Windows的32位應用程序編程接口，是一系列很復雜的函數，消息和結構，它使編程人員可以用不同類型的編程語言編制出的運行在Windows95和Windows NT操作系統上的應用程序?？梢哉f，如果你曾經學過VC，那么API對你來說不是什么問題。但是如果你沒有學過VC，或者你對Windows95的結構體系不熟悉，那么可以說，學習API將是一件很辛苦的事情。 

如果你打開WINDOWS的SYSTEM文件夾，你可以發現其中有很多附加名為DLL的文件。一個DLL中包含的API函數并不只是一個，數十個，甚至是數百個。我們能都掌握它嘛?回答是否定的∶不可能掌握。但實際上，我們真的沒必要都掌握，只要重點掌握Windos系統本身自帶的API函數就可以了。但，在其中還應當拋開掉同VB本身自有的函數重復的函數。如，VB 
的etAttr命令可以獲得文件屬性，SetAttr可以設置文件屬性。對API來講也有對應的函數 
GetFileAttributes和SetFileAttributes，性能都差不多。如此地一算，剩下來的也就5、600個。是的，也不少。但，我可以敢跟你說，只要你熟悉地掌握100個，那么你的編程水平比現在高出至少要兩倍。盡管人們說VB和WINDOWS具有密切的關系，但我認為，API更接近 
WINDOWS。如果你學會了API，首要的收獲便是對WINDOWS體系結構的認識。這個收獲是來自不易的。 

如果你不依靠API會怎么樣?我可以跟你說，絕大多是高級編程書本(當然這不是書的名程叫高級而高級的，而是在一開始的《本書內容》中指明《本書的閱讀對象是具有一定VB基礎的讀者》的那些書)，首先提的問題一般大都是從API開始。因此可以說，你不學API，你大概將停留在初級水平，無法往上攀登。唯一的途徑也許就是向別人求救∶我快死了，快來救救我呀，這個怎么辦，那個怎么辦?煩不煩呢?當然，現在網上好人太多(包括我在內，嘻嘻)，但，你應當明白，通過此途徑，你的手中出不了好的作品。這是因為缺乏這些知識你的腦子里根本行不成一種總體的設計構思。 
API文本游覽器  
很多API函數都是很長很長的。想看什么樣子嗎?如下就是作為例子的API DdeClientTransaction函數∶ 
Declare Function DdeClientTransaction Lib "user32" (pData As Byte, ByVal cbData As Long, ByVal hConv As Long, ByVal hszItem As Long, ByVal wFmt As Long, ByVal wType As Long, ByVal dwTimeout As Long, pdwResult As Long) As Long 
哇！這么長?如果你從來沒有接觸過API，我想你肯定被嚇住了。你也許考慮，該不該繼續學下去。不過不要擔心，幸運的是Microsoft的設計家們為我們提供了有用的工具，這便是API 
文本查看器。 

通過API文本查看器，我們可以方便地查找程序所需要的函數聲明、結構類型和常數，然后將它復制到剪貼板，最后再粘貼到VB程序的代碼段中。在大多數情況下，只要我們確定了程序所需要的函數、結構和常數這三個方面后，就可以通過對API文本游覽器的以上操作將他們加入到程序段中，從而程序中可以使用這些函數了。這些是學習API最基本的常識問題，它遠遠占不到API的龐大的體系內容。今后我們把精力浪費(這絕不是浪費)在哪里呢?那就是∶ 
什么時候使用什么函數，什么時候使用什么結構類型，什么時候使用什么常數。 
API函數聲明  

讓我們回想一下。在VB中，如何聲明函數呢?我想，如果你正在看此文，那么你絕對能夠回答得出這個問題。以下便是你應該很熟悉的函數聲明∶ 
Function SetFocus (ByVal hwnd As Long) As Long 
即，這行代碼定義了名為SetFocus的函數,此函數具有一個Long型數據類型的參數，并按值傳遞(ByVal),函數執行后將返回一個Long型數據。 

API函數的聲明也很類似，如，API中的SetFocus 函數是這樣寫的∶ 

Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long 
有點復雜了一些。是的，是復雜了點。但我可以告訴你，除了這些多出來的部分，其他部分還是和你以前學到的東西是一樣的。函數在程序中的調用也是一樣。如: 
Dim dl As Long 
dl&=SetFoucs(Form1.Hwnd) 
但，一點是清楚的。它不象你自己寫的程序那樣能夠看到里面的運行機理，也不像VB 
自帶的函數那樣，能夠從VB的聯機幫助中查到其用法。唯一的方法就是去學、查VB以外的資料。 

Declare 語句用于在模塊級別中聲明對動態鏈接庫 (DLL) 中外部過程的引用。對此，你只要記住任何API函數聲明都必須寫這個語句就可以了。 
Iib 指明包含所聲明過程或函數的動態鏈接庫或代碼資源。也就是說，它說明的是，函數或過程從何而來的問題。 
如在上例中，SetFocus Lib "user32"說明 函數 SetFocus 來自 user32.dll文件。主要的dll動態連接庫文件有∶ 
user32.dll Windows管理。生成和管理應用程序的用戶接口。 

GDI32.dll 圖形設備接口。產生Windows設備的圖形輸出 
Kernel32.dll 系統服務。訪問操作系統的計算機資源。 
注意，當DLL文件不在Windows或System文件夾中的時候，必須在函數中說明其出處( 
路徑)。如，SetFocus Lib "c:\Mydll\user32" 
函數聲明中的Alias 是可選的。表示將被調用的過程在動態鏈接庫 (DLL) 中還有另外的名稱(別名)。如，Alias "SetFocus" ，說明SetFocus函數在User32.dll中的另外一個名稱是， 
SetFocus。怎么兩個名都一樣呢?當然，也可以是不同的。在很多情況下，Alias說明的函數名，即別名最后一個字符經常是字符A，如SetWindowsText函數的另一個名稱是 
SetWindowsTextA,表示為Alias "SetWindowsTextA"。這個A只不過是設計家們的習慣的命名約定，表示函數屬于ANSI版本。 

那么，別名究竟有什么用途呢?從理論上講，別名提供了用另一個名子調用API的函數方法。如果你指明了別名，那么 盡管我們按Declare語句后面的函數來調用該函數，但在函數的實際調用上是以別名作為首要選擇的。如，以下兩個函數(Function,ABCD)聲明都是有效的，他們調用的是同一個 SetFocus函數∶ 
Declare Function SetFocus Lib "user32" "SetFocus" (ByVal hwnd As Long) As Long 
Declare ABCD SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long 

需要注意的是，選用Alias的時候，應注意別名的大小寫；如果不選用Alias 時的時候，函數名必須注意大小寫，而且不能改動。當然，在很多情況下，由于函數聲明是直接從API 
文本游覽器中拷貝過來的，所以這種錯誤的發生機會是很少的，但您有必要知道這一點。 
最后提醒你一句，API聲明(包括結構、常數)必須放在窗體或模塊的"通用(General Declarations)段。 
數據類型與"類型安全"  

API函數中使用的數據類型基本上和VB中的一樣。但作為WIN32的API函數中，不存在Integer 
數據類型。另外一點是在API函數中看不到Boolean數據類型。 Variant數據類型在API函數中是以Any的形式出現，如Data As Any。盡管其含義是允許任意參數類型作為一個該API函數的參數傳遞，但這樣做存在一定的缺點。其原因是，這將會使得對目標參數的所有類型檢查都會被關閉。這自然會給各種類型的參數調用帶來了產生錯誤的機會。 

為了強制執行嚴格的類型檢查，并避免上面提到的問題，一個辦法是在函數里使用上面提到到Alias技術。如對API函數 GetDIBits 可進行另外一種聲明方法。如下∶ 
GetDIBits函數的原型∶ 
Public Declare Function GetDIBits Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long 
GetDIBits函數的改型∶ 

Public Declare Function GetDIBitsLong Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Long, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long

通過本課程前面所學到的知識，我們已經可以得知原型 GetDIBits函數也好，改型 GetDIBitsLong函數也好，實際將調用的都是Alias所指定的 GetDIBits原函數。但你應當看到，兩者的區別在于，我們在改型的函數中強制指定lpBits參數為Long形。這樣就會使得函數調用中發生的錯誤機率減少到了最小。這種方法叫做"安全類型"聲明。 

API函數中經?？吹降臄祿愋陀小肔ong,String,Byte,Any....(也就這些吧。) 
常 數  

對于API常數來講，沒有什么太特別的學問。請看VB中的以下代碼∶ 
Msg = MsgBox("您好", vbOKCancel) 
我們知道， vbOKCancel這個常數的值等于1。對上面的代碼我們完全可以這樣寫，而不會影響代碼的功能∶ 
Msg = MsgBox("您好", 1) 
但你大概不太愿意選擇后一種，因為這會使得看懂代碼費勁起來。這種方法也被API采取了。只是API常數必須在事情之前做好初始化聲明VB本身是看不懂的。其內容仍然來自與API 
文本游覽器。具體形式如下等等∶ 

Public Const ABM_ACTIVATE = &H6  
Public Const RIGHT_CTRL_PRESSED = &H4  
Public Const RPC_E_SERVER_DIED = &H80010007 
Private Const RPC_S_CALL_FAILED_DNE = 1727&  
在常數的初始化中，有些程序使用Global，如Global Const ABM_ACTIVATE = &H6，但我認為Public完全可以代替它。過去我也用過Global，但現在不大用了。一會兒用這個，一會兒用那個，各程序之間不能保持一致性了，起碼看起來別扭。 
結 構  

結構是C和C++語言中的說法。在VB中一般稱為自定義數據類型。想必很多朋友都已經認識它。在API領域里，我更喜歡把它叫做結構，因為API各種結構類型根本不是我定義( 
自定義)的。 
在VB中，API結構同樣由TYPE.......END TYPE語句來定義。如，在API中，點(Point)結構的定義方法如下: 
Public Type POINTAPI 
X As Long '點在X坐標(橫坐標)上的坐標值 

Y As Long '點在Y坐標(縱坐標)上的坐標值 
End Type 
又如，API中矩形(Rect)結構的定義如下∶ 
Public Type RECT 
Left As Long '矩形左上角的X坐標 
Top As Long '矩形左上角的Y坐標 
Right As Long '矩形右下角的X坐標 
Bottom As Long '矩形右下角的Y坐標 

End Type 
這些內容同樣可以從API文本游覽器中拷貝過來。這些結構中的變量名可隨意改動，而不會影響結構本身。也就是說，這些成員變量都是虛擬的。如，POINTAPI結構可改為如下∶ 
Public Type POINTAPI 
MyX As Long '點在X坐標(橫坐標)上的坐標值 
MyY As Long '點在Y坐標(縱坐標)上的坐標值 
End Type 
不過，一般來講，是沒有這種必要的。結構本身是一種數據類型，因此，使用時必須聲明具體變量為該結構型，才能在程序中真正使用到該結構。結構的聲明方法和其他數據的聲明方法一樣，如，以下語句把變MyPoint聲明為POINTAPI結構類型∶ 

MyPoint As POINTAPI 
引用結構中的成員變量也十分簡單，在結構名后面加上一個"．",然后緊接著寫要引用的成員變量即可。這很象VB中的引用一個對象的某個屬性。如，假如我們把上面已經聲明的MyPoint結構中的X變量的值賦給變量Temp& 
則代碼如下∶ 
Temp&=MyPoint.X 
但，特別注意的是，你千萬不要認為上例中的MyPoint是一個值。它不是值，而是地址( 
指針)。值和地址是完全不同的概念。結構要求按引用傳遞給WINDOWS函數，即所有API 
函數中，結構都是按ByRef傳遞的(在Declare語句 中ByRef是默認型)。對于結構的傳遞，你不要試圖采用ByVal，你將一無所獲。由于結構名實際上就是指向這個結構的指針(這個結構的首地址)，所以，你也就傳送特定的結構名就可以了(參見小結，我用紅色字體來突出了這種傳遞方式)。 
由于結構傳送的是指針，所以函數將直接對結構進行讀寫操作。這種特性很適合于把函數執行的結果裝載在結構之中。 
小 結  
以下的程序是為了總結本課中學到的內容而給出的。啟動VB，新建一個項目，添加一個命令按鈕，并把下面的代碼拷貝到代碼段中，運行它。  

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 
Private Type POINTAPI '定義點(Point)結構 
X As Long '點在X坐標(橫坐標)上的坐標值 
Y As Long '點在Y坐標(縱坐標)上的坐標值 
End Type 
Sub PrintCursorPos( ) 
Dim dl AS Long 
Dim MyPoint As POINTAPI 
dl&= GetCursorPos(MyPoint) '調用函數，獲取屏幕鼠標坐標 

Debug.Print "X=" & Str(MyPoint.X) & " and " & "Y=" & Str(MyPoint.Y) 
End Sub 
Private Sub Command1_Click() 
PrintCursorPos 

End Sub 

輸出結果為(每次運行都可能得到不同的結果，這得由函數調用時鼠標指針在屏幕中所處的位置而決定)∶ 
X= 240 and Y= 151 

程序中，GetCursorPos函數用來獲取鼠標指針在屏幕上的位置。 

以上例子中，你可以發現，以參數傳遞的MyPpint結構的內容在函數調用后發生了實質性變化。這是由于結構是按ByRef傳遞的原因。 
一些API函數集  
Windows API 

1.控件與消息函數 

AdjustWindowRect 給定一種窗口樣式，計算獲得目標客戶區矩形所需的窗口大小  
AnyPopup 判斷屏幕上是否存在任何彈出式窗口  
ArrangeIconicWindows 排列一個父窗口的最小化子窗口  
AttachThreadInput 連接線程輸入函數  
BeginDeferWindowPos 啟動構建一系列新窗口位置的過程  
BringWindowToTop 將指定的窗口帶至窗口列表頂部  
CascadeWindows 以層疊方式排列窗口  
ChildWindowFromPoint 返回父窗口中包含了指定點的第一個子窗口的句柄  

ClientToScreen 判斷窗口內以客戶區坐標表示的一個點的屏幕坐標  
CloseWindow 最小化指定的窗口  
CopyRect 矩形內容復制  
DeferWindowPos 該函數為特定的窗口指定一個新窗口位置  
DestroyWindow 清除指定的窗口以及它的所有子窗口  
DrawAnimatedRects 描繪一系列動態矩形  
EnableWindow 指定的窗口里允許或禁止所有鼠標及鍵盤輸入  
EndDeferWindowPos 同時更新DeferWindowPos調用時指定的所有窗口的位置及狀態 
EnumChildWindows 為指定的父窗口枚舉子窗口  

EnumThreadWindows 枚舉與指定任務相關的窗口  
EnumWindows 枚舉窗口列表中的所有父窗口  
EqualRect 判斷兩個矩形結構是否相同