转换字典来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) })