分步示例
在 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?keyArrayDebug.Print?element
Next 'extract?items?into?variant?array Debug.Print?"Array?of?Items" itemArray?=?.Items For?Each?element?In?itemArrayDebug.Print?element
Next 'empty?the?dictionary .RemoveAll Debug.Print?dict.Count?&?"?Items?in?Dictionary" End?With Set?dict?=?Nothing End?Sub運行該項目。您應該看到初始搜索鍵無法正常工作,則成功後的值將替換大寫值。接下來,您應該看到的內容已從詞典使用的參數和項的方法提取的 variant 類型的值數組。最後,您將看到清空字典的結果。