如何用 Visual Basic 中使用字典對象

分步示例

在 Visual Basic 中啟動壹個新的標準 EXE 項目。（請確保顯示即時窗口。默認情況下，將創建 Form1。

添加到 Microsoft 腳本運行庫的引用。

向項目中添加壹個標準模塊。

從項目菜單中，選擇 Project1.Properties，並將啟動對象更改為 Sub Main。

Module1 中插入以下代碼：

?Option?Explicit

Dim?dict?As?Dictionary

Sub?Main()

Dim?keyArray,?itemArray,?element

Set?dict?=?New?Dictionary

With?dict

'set?compare?mode

.CompareMode?=?BinaryCompare

'add?item?using?named?arguments

.Add?Key:="mike",?Item:=22

'add?item?without?named?arguments

.Add?"joe",?33

'case?sensitivity?and?Exists?method

'does?MIKE?exist?

Debug.Print?"MIKE?exists?=?"?&?.Exists("MIKE")

'change?key?value

.Key("mike")?=?"MIKE"

'does?MIKE?exist?

Debug.Print?"MIKE?exists?=?"?&?.Exists("MIKE")

'extract?keys?into?variant?array

Debug.Print?"Array?of?Keys"

keyArray?=?.Keys

For?Each?element?In?keyArray

Debug.Print?element

Next

'extract?items?into?variant?array

Debug.Print?"Array?of?Items"

itemArray?=?.Items

For?Each?element?In?itemArray

Debug.Print?element

Next

'empty?the?dictionary

.RemoveAll

Debug.Print?dict.Count?&?"?Items?in?Dictionary"

End?With

Set?dict?=?Nothing

End?Sub

運行該項目。您應該看到初始搜索鍵無法正常工作，則成功後的值將替換大寫值。接下來，您應該看到的內容已從詞典使用的參數和項的方法提取的 variant 類型的值數組。最後，您將看到清空字典的結果。