無法在字典中搜索

Question

我發現了一些代碼來保存我的變量作爲字典類型，但是我無法執行搜索。我嘗試了不同的事情並得到了不同的錯誤我的變量是：

Public controlList As New List(Of Dictionary(Of String, String))() 

如何在本字典中搜索項目？

編輯：我創建了一個名爲模塊這GlobalVariables變量，我試圖把它從一個類ControlAdderClass

，我試圖代碼之一：

For i As Integer = 0 To controlList.Count - 1 
    Dim value As Dictionary(Of String, String) = controlList(i) 
    Try 
     MessageBox.Show(controlList(i), Str(value)) 
    Catch 
     Console.WriteLine("Error") 
    End Try 
Next 

，這給了我這個錯誤好幾次：

A first chance exception of type 'System.InvalidCastException' occurred in mirc_dialog.exe

Answer 1

問題

您應該做的第一件事是設置option strict on。完成後，VS就會因錯誤的下面一行：

MessageBox.Show(controlList(i), Str(value)) 

，出現以下錯誤信息：

重載決策失敗，因爲沒有可訪問「顯示」可以用這些參數來調用。

MessageBox類不具有Show方法的接受Dictionary(Of String, String)等的過載：

Public Shared Function Show(text As Dictionary(Of String, String), caption As String) As DialogResult 

無可選嚴格上，VS選擇所述第一過載的匹配參數的個數。在你的情況下，它this overload：

Public Shared Function Show(owner As IWin32Window, text As String) As DialogResult 

而且觀察到，你不能投了字典的IWin32Window。

---

解決方案

「我怎麼可以搜索本詞典的項目？」

嗯，這裏是一個簡單的例子：

Dim keyToFind As String = "a_key" 
Dim valueToFind As String = "some_value" 

For Each dictionary As Dictionary(Of String, String) In GlobalVariables.ControlList 
    For Each pair As KeyValuePair(Of String, String) In dictionary 

     Dim keyMatched As Boolean = (String.Compare(pair.Key, keyToFind, False) = 0) 
     Dim valueMatched As Boolean = (String.Compare(pair.Value, valueToFind, False) = 0) 

     If (keyMatched AndAlso valueMatched) Then 
      MessageBox.Show(String.Format("Key={0}, Value={1}", pair.Key, pair.Value), "Found") 
     ElseIf (keyMatched) Then 
      MessageBox.Show(String.Format("Key={0}", pair.Key), "Found") 
     ElseIf (valueMatched) Then 
      MessageBox.Show(String.Format("Value={1}", pair.Value), "Found") 
     End If 

    Next 
Next