登入

Select the product you need help with

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

文章編號: 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 Long
Dim dblMyVariable as Double
lngVariableAddress = VarPtr(dblMyVariable)

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

Dim lngElementAddress as Long
Dim lngArrayOfLongs(9) as Long
' following will get address of 4th element
lngElementAddress = 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 Long


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

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

Dim lngSafeArrayAddress as Long
Dim lngArrayOfLongs(9) as Long
lngSafeArrayAddress = 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 Long
Dim strMyVariable as String
strMyVariable = "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 String
Dim AddressOfArray As Long
MyArrayOfStrings(0)="AAA"
MyArrayOfStrings(1)="BBB"
AddressOfArray = VarPtrStringArray ( MyArrayOfStrings() )

ObjPtr

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

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

範例：

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

回此頁最上方 | 提供意見

屬性

文章編號: 199824 - 上次校閱: 2004年7月1日 - 版次: 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

kbmt kbhowto KB199824 KbMtzh

機器翻譯

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

按一下這裡查看此文章的英文版本：199824

(http://support.microsoft.com/kb/199824/en-us/ )

Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

回此頁最上方 | 提供意見