VB中訪問API函數之防錯技巧

　　功能強大的API（應用程序接口）函數對于VB程序員來說，不愧是很好的編程工具，然而使用API函數的程序員也許都遇到這樣的現象。在VB集成環境下，程序運行后，出現一錯誤信息對話框，按確定鍵后系統自動退出VB集成環境，此時如果你的程序尚未存盤，那末很遺憾挽回損失已回天乏力。最后一次存盤之后的程序都不復存在。這是你對API函數使用不當引起的一般保護故障（GPF）。
　　當一個GPF錯發生時，你應允許Windows關閉你的應用。有些情況下你可能需要退出Windows或者重新引導系統。出錯程度視哪里內存被破壞而定。DLL（動態鏈接庫）函數中的類型不一致等錯誤是GPF錯的主要原因。這些錯誤會導致GPF甚至使Windows系統完全崩潰（需要重新引導系統）。
　　下面談避免GPF的一些技巧。
　　用別名來提供強類型檢查是避免GPF的有效措施之一。有些情況下，DLL函數可以接受多種類型，LoadCursor函數就是這樣一個例子，其定義如下：
HCursor LoadCursor（hInstance，lpCursorName）
　　這里HCursor是一個指向光標對象的１６位句柄，hInstance是一個１６位實例句柄，lpCursorName是光標的名字或者是光標資源的３２位整數ID。為了支持兩種類型的lpCursorName參數。VB有必要包含如下兩個聲明：
DeclareFunction LoadCursor Lib＂USER＂（ByVal hInstance As Integer，ByVal lpCursorName As String）As Integer
和
DeclareFunction LoadCursor Lib＂USER＂（ByVal hInstance As Integer，ByVallpCursorName As Long）As Integer
　　但是，這兩個聲明不能在一個程序中同時存在，因為Visual Basic會報重復聲明錯。我們知道，As Any聲明可使得任何參數都可以傳遞給DLL函數，因此可以如下聲明：
DeclareFunction LoadCursor Lib＂USER＂（ByVal hInstance As Integer ，ByVal lpCursorName As Any ）As Integer
　　上述聲明意味著Visual Basic能支持一個參數可接受多種類型的DLL函數，然而這就可能帶來各種災難性的后果，每當偶然情況下用不正確的參數調用該函數時，都可以引發一個GPF，我們可以這樣進行嚴格的類型檢查并且幫助防止這類問題。
　　這種方法就是在函數的聲明中使用Alias技巧，看看下面的兩個聲明：
DeclareFunction LoadCursorByName Lib＂USER＂Alias ＂LoadCursor＂（ByVal hInstance As Integer，ByVal lpCursorＮａｍｅ As String）As Integer
DeclareFunction LoadCursorByID Lib＂USER＂Alias ＂LoadCursor＂（ByVal hInstance As Integer ，ByVallpCursorName As Long）As Integer
　　LoadCursorByName用字符串做lpCursorName參數訪問DLL函數LoadCursor， 而LoadCursorByID訪問同樣的DLL函數LoadCursor，但是用長整型做lpCursorName參數，這兩個函數都對lpCursorName參數進行嚴格的類型檢查，使Visual Basic能在調用DLL函數之前識別出不正確的變量類型，最大限度地減少引起GPF或者導致系統崩潰的機會。
　　除此之外，使用API函數時運行之前最好先存盤，仔細檢查調用API函數的參數與聲明的類型是否一致，以及嚴格檢查參數是否有效都能減少引發GPF或者系統崩潰。

原文轉自：http://www.anti-gravitydesign.com