求转化 C#写的 lamda表达式 转Vb.net的写法 【拒绝工具转换】

[hakusann021]

如题：高分麻烦高人，给转化下面的代码，Lamda表达式在VB.NET中实在不大懂啥意思。


List<Feature> menuList=new List<Feature>();
ORolePowerD oRolePower;
List<RolePowerD> rolePowerList=new List<RolePowerD>();

foreach (Feature feat in Caches.Menu)
{
Feature nFeat=new Feature();

if (rolePowerList.FindAll(delegate(RolePowerD p) {
if (p.PowerD.Id.Equals(feat.Id))
{
rolePowerList.Remove(p);
return true;
}
return false; }).Count.Equals(0))
{
continue;
}
}
nFeat.Id = feat.Id;
nFeat.NameD = feat.NameD;
menuList.Add(nFeat);
}

[hakusann021]

噢？是吗，不太懂，我是看网上说这种是lamda表达式。 求转码。

[本拉灯]

 If Not rolePowerList.FindAll(Function (ByVal p As RolePowerD) 
                If p.PowerD.Id.Equals(feat.Id) Then
                    rolePowerList.Remove(p)
                    Return True
                End If
                Return False
            End Function).Count.Equals(0) Then

      Next feat 
End If

上面只是做红色部份的。

[mlxwl2013]

没有用lamda，是c#2的语法，匿名函数。