如何在 Visual Basic 中取得變數位址

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:199824
本文已封存。本文係以「現狀」提供且不會再更新。
結論
它是不常用的 Visual Basic 程式設計人員需要取得變數如它的記憶體位址上的低層級資訊。但是,有一些需要這類資訊的 API 函式。本文將告訴您下列的 Visual Basic 函式可幫助 Visual Basic 程式設計人員,取得這項資訊:

VarPtr-傳回變數的位址。

VarPtrArray-屬性傳回陣列的位址。

StrPtr-傳回 UNICODE 字串緩衝區的位址。

VarPtrStringArray-傳回的字串陣列的位址。

ObjPtr-傳回給物件變數參考介面指標。
其他相關資訊
警告: 本文 ; 討論其中一或多個下列函式 VarPtr VarPtrArray,VarPtrStringArray StrPtr,ObjPtr。Microsoft 技術支援部門不支援這些函式。它們 Visual Basic 說明文件中未記載且提供此知識庫文件,以 「 是 」。Microsoft 不保證它們都可以在未來版本的 Visual Basic 中找到。

VarPtr

這個函式來取得變數或陣列元素的位址。它採用變數名稱或做為參數陣列元素,並傳回地址。但是,您應該注意重新未鎖定的動態陣列可能會被配置由 Visual Basic 因此您必須非常小心當您使用 VarPtr 取得陣列元素的位址。

下列範例會取得變數位址:

Dim lngVariableAddress as LongDim dblMyVariable as DoublelngVariableAddress = VarPtr(dblMyVariable)				

這個範例會取得陣列中的第四個元素的位址:

Dim lngElementAddress as LongDim lngArrayOfLongs(9) as Long' following will get address of 4th elementlngElementAddress = VarPtr(lngArrayOfLongs(3))				

限制: 的 VarPtr 函式不能用來取得陣列中的地址。如需詳細資訊請參閱 VarPtrArray 函數。

VarPtrArray

在 Visual Basic 的陣列會儲存為 SAFEARRAYs。若要設法 SAFEARRAY 結構的位址,您需要使用 VarPtrArray 函式。以下是 Visual Basic 5.0 和 Visual Basic 6.0 中宣告分別:

Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" _(Var() as Any) As LongDeclare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" _(Var() as Any) As Long				

若要設法一個 SAFEARRAY 的位址,將 SAFEARRAY 名稱 (包括在括號) 傳給 VarPtrArray 函數:

Dim lngSafeArrayAddress as LongDim lngArrayOfLongs(9) as LonglngSafeArrayAddress = VarPtrArray(lngArrayOfLongs())				

限制: 的 VarPtrArray 函式不能用來取得位址陣列的字串,因為 Visual Basic 做 UNICODE/ANSI 轉換為字串。如果您在字串陣列上使用 VarPtrArray,就會收到的暫時 ANSI 複本陣列的位址。如需詳細資訊請參閱 VarPtrStringArray 函數。

StrPtr

在 Visual Basic 中的字串都儲存為 BSTR 的。如果您使用 [VarPtr String 類型的變數上,就會出現為字串的指標的指標的 BSTR 的位址。若要設法字串緩衝區本身的位址,您需要使用 StrPtr 函式。這個函式會傳回字串的第一個字元的位址。考慮到字串以在 Visual Basic UNICODE 儲存。

若要去的第一個字元的 String 位址將傳遞給 StrPtr 函數的字串變數。

範例:

Dim lngCharAddress as LongDim strMyVariable as StringstrMyVariable = "Some String"lngCharAddress = StrPtr(strMyVariable)				

當您需要將一個指標傳遞至 UNIOCODE 字串而進行 API 呼叫時,您可以使用這個函式。

VarPtrStringArray

VarPtrStringArray 取得字串陣列中的位址。若要避免由 Visual Basic 執行內建的 UNICODE/ANSI 轉換,宣告就會在型別程式庫中定義。

或者,您可以使用 MIDL 編譯器來編譯您自己的型別程式庫,從下列.odl 檔案。

Visual Basic 6.0 建立下面的內容以命名 VB6ptrlib.odl 的文字檔:

#define RTCALL _stdcall[uuid(C6799410-4431-11d2-A7F1-00A0C91110C3),lcid (0), version(6.0), helpstring("VarPtrStringArray Support for VB6")]library PtrLib{importlib ("stdole2.tlb");[dllname("msvbvm60.dll")]module ArrayPtr   {   [entry("VarPtr")]   long RTCALL VarPtrStringArray([in] SAFEARRAY (BSTR) *Ptr);   }}				

對於 Visual Basic 5.0 建立下面的內容以命名 VB5ptrlib.odl 的文字檔:

#define RTCALL _stdcall[uuid(6E814F00-7439-11D2-98D2-00C04FAD90E7),lcid (0), version(5.0), helpstring("VarPtrStringArray Support for VB5")]library PtrLib{importlib ("stdole2.tlb");[dllname("msvbvm50.dll")]module ArrayPtr   {   [entry("VarPtr")]   long RTCALL VarPtrStringArray([in] SAFEARRAY (BSTR) *Ptr);   }}				

使用下列命令列來編譯先前.odl 檔案與 MIDL 編譯器分別建立 Visual Basic 6.0 或 Visual Basic 5.0 的型別程式庫 (.tlb) 檔案:

MIDL/t VB6ptrlib.odl MIDL/t VB5ptrlib.odl

若要在您的專案中使用 VarPtrStringArray 函數,您需要建立您剛建立的型別程式庫的參考。

範例:

Dim MyArrayOfStrings(2) As StringDim AddressOfArray As LongMyArrayOfStrings(0)="AAA"MyArrayOfStrings(1)="BBB"AddressOfArray = VarPtrStringArray ( MyArrayOfStrings() )				

ObjPtr

ObjPtr 採用的物件變數名稱,做為參數,並取得由這個物件變數參考介面的位址。

您需要執行物件的集合時使用這個函式的一種情況。藉由使用其位址為索引鍵物件的索引中,您可以取得更快速存取物件比查核集合和使用 「 Is 運算子。在許多情況下一個物件的位址會是做為索引鍵僅可靠的事。

範例:

objCollection.Add MyObj1, CStr(ObjPtr(MyObj1))...objCollection.Remove CStr(ObjPtr(MyObj1))				
kbDSupport

警告:本文為自動翻譯

內容

文章識別碼:199824 - 最後檢閱時間:12/05/2015 10:25:44 - 修訂: 2.1

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0

  • kbnosurvey kbarchive kbmt kbhowto KB199824 KbMtzh
意見反應