傳遞字典作爲參數傳遞給函數

Question

我創建了數據字典：

Dim data As New Dictionary(Of String, String) 
data.Add("customer", "TEST") 
data.Add("secretKeyId", "2222222222222") 
data.Add("secretKey", "333333333333333") 

，我有以下功能：

Public Shared Function Create(ByVal data As Dictionary(Of String, Object)) As [String] 
    ' Serializes the body into JSON using the fastJSON library. 
    Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(data) 
    Dim body As Byte() = Encoding.UTF8.GetBytes(json) .... 

我怎麼能叫Create函數並傳遞DATA與我輸入這個函數的所有鍵和值？我想嘗試：create(data.all)或create(data)但它不起作用。

Answer 1

你試圖傳遞一個不兼容的數據類型，以你的方法：在您的來電顯示方式您的字典是string, string類型和你的函數等待string, object類型的字典。有兩種解決方法：

• 要麼改變你的主要部分字典的簽名Dim data As New Dictionary(Of String, Object)
• 或簽名更改爲方法的字典參數ByVal data As Dictionary(Of String, String)

一個可能的解決方案看起來像這樣：

Public Shared Function Create(ByVal data As Dictionary(Of String, String)) As [String] 
    ' Serializes the body into JSON using the fastJSON library. 
    Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(data) 
    return json 
end function 

召喚：

Dim data As New Dictionary(Of String, String) 
data.Add("customer", "TEST") 
data.Add("secretKeyId", "2222222222222") 
data.Add("secretKey", "333333333333333") 
Dim dataAsJson = Create(data) 
Console.WriteLine(dataAsJson) 

輸出：

{"customer":"TEST","secretKeyId":"2222222222222","secretKey":"333333333333333"} 

這也將在這種情況下正常工作，創造同樣的結果如上：

Public Shared Function Create(ByVal data As Dictionary(Of String, Object)) As [String] 
    ' Serializes the body into JSON using the fastJSON library. 
    Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(data) 
    return json 
end function 

Dim data As New Dictionary(Of String, Object) 
data.Add("customer", "TEST") 
data.Add("secretKeyId", "2222222222222") 
data.Add("secretKey", "333333333333333") 
Dim dataAsJson = Create(data) 
Console.WriteLine(dataAsJson)