轉換字典來SelectListItem VB.net

Question

列表我通常在C＃編程但被要求使用vb.net我目前的網站，並想知道你將如何轉換下面的C＃代碼到vb.net代碼。

代碼字典轉換成的SelectListItem的

return dic.Select(x => new SelectListItem() { Text = x.Value.ToString(), Value = x.Key.ToString(), Selected= EqualityComparer<T>.Default.Equals(x.Key, selectedKey) }); 

任何幫助的清單將是驚人的。

謝謝

Answer 1

查詢語法*往往更具可讀性在VB.NET：

Dim result = From kv In dic 
    Select New SelectListItem() With { 
     .Text = kv.Value, 
     .Value = kv.Key, 
     .Selected = EqualityComparer(Of SelectListItem).Equals(kv.Key, selectedKey) 
    } 

_{*它也比在C＃中更pewerful}

Answer 2

return dic.Select(Function(x) New SelectListItem() With { .Text = x.Value.ToString(), .Value = x.Key.ToString(), .Selected = System.Collections.Generic.EqualityComparer(Of T).Default.Equals(x.Key, selectedKey) })