VB与Window API 间的呼叫技巧.docVIP

VB與Windows API 間的呼叫技巧   窗体顶端   一般會使用WINDOW API的情況，實在是因為VB本身不提供某些功能，但是，程式所需又不得不然，例如：讀取Registry內的資料，VB只提供SaveSetting、Getsetting 等系列的指令，但是它只能讀取特定地區的值，要讀、刪、更動其他區域的值時，就無法仔細看一看Combo Box的Events，其中沒有MouseMove，但這是我們經常用上的一個Event，那該如何呢？是的，那只有透過Winodow API。而VB呼叫Window API一般不都使用API檢視員，直接將相對應的API COPY到我們的程式中就好，那還用什麼技巧嗎？其實不然，因為VB資料格式的問題，又加上VB本身沒有指標，在許多地方需要一些小技巧才能解決，而且我們經常因應不同的需求，將API 檢視員的宣告COPY過來後再做一些修改，最重要的，如果有一個.DLL檔，它不在API 檢視員中定義，那時，就只有自己想辦法啦。  一、 整數參數  Windows  Int, INTUNIT, DWORDBOOLWPARAM, LPARAM, LRESULTHandle(如HKEY)WORD, ATOM, SHORTBYTE, CHAR API32位元VB  ByVal LongByVal LongByVal Long ture時為1ByVal LongByVal LongByVal LongByVal IntegerByVal Byte  Eg.-----------------------------------------------------------------------------Windows API 宣告 SHORT GetKeyState( int nVirtKey )對應的VB宣告 Declare Function GetKeyState Lib user32 (ByVal nVirtKey As Long) As Integer-------------------------------------------------------------------------------------------------------------- 這個API 可用來檢視某些KEY (如Insert鍵、Num Lock、CapsLock等)是on/off。程式如下：這個例子應該可十分楚的看到各個整數間的宣告對應。----------------------------------------------------------------------------------------------------------------Dim InsertMode as IntegerInsertMode = GetKeyState(vbKeyInsert) And vbShiftMaskIf InsertMode = 1 then Debug.print 表示 Insert ModeElse Debug.print 表示 OverWrite ModeEnd If  二、 指向整數的指標  Windows API  LPINTLPUNITLPBOOLLPDWORDLPHANDLE (如:PHKEY)LPWORDLPSHORTLPBYTE  32位元VB  (ByRef ) Long(ByRef ) Long(ByRef ) Long(ByRef ) Long(ByRef ) Long(ByRef ) Integer(ByRef ) Integer(ByRef ) Byte  VB內定是使用傳址呼叫，所以ByRef 可以省略，也就是說 Func(ByRef param1 as type) 與 Func(param1 as type)是相同的，使用傳址呼叫的方式，不外乎想將參數傳給API 後將結果傳回來。然而LONG型態的傳址呼叫在VB中又佔了相當大的份量，因為32位元的指標都是LONG的型態，而字串、自定型態的Structure在Windows API中是以指標來傳遞的，而指標的傳遞事實