님이 익명 vb.net으로 변환하는 데 도움이

Question

이 아래 코드를 vb.net로 변환하는 데 도움을주십시오. 익명 메소드를 vb.net으로 변환 할 생각이 없습니다. 현재 VS2010을 사용하고 있습니다.

public void DoWork(CustomObject obj) 
    { 
     var linq = (from s in storages 
        where s.Key == obj.Key 
        select s.Value).ToList(); 

     Action<ICustomService> act = 
      delegate(ICustomService service) 
      { 
       service.ChangeValue(obj); 
      }; 

     linq.ForEach(act); 
    } 

감사합니다.

순수 C#을 개발자

Answer 1

Public Sub DoWork(ByVal obj As CustomObject) 

    Dim values = (From s In storages 
       Where s.Key = obj.Key 
       Select s.Value).ToList() 

    values.ForEach(Sub(service As ICustomService) service.ChangeValue(obj)) 

End Sub 

Answer 2

Public Sub DoWork(ByVal obj As CustomObject) 
    Dim linq = storage.Where(Function(s) s.Key = obj.Key).[Select](Function(s) s.Value).ToList() 

    Dim act As Action(Of ICustomService) = Sub(service As ICustomService) 
               service.ChangeValue(obj) 
              End Sub 

    linq.ForEach(act) 
End Sub 

Answer 3

SharpDevelop 지원 DOTNET위한 무료 IDE입니다 몇 가지 자동 소스 코드 변환 즉, 귀하의 예를 들어 VB.NET, 아이언 루비 또는 IronPyton

에 C#을 그 생성 된

' 
' * Created by SharpDevelop. 
' * User: k3b 
' * Date: 26.03.2011 
' * Time: 18:44 
' * 
' * To change this template use Tools | Options | Coding | Edit Standard Headers. 
' 

Imports System 

Namespace DefaultNamespace 
    ''' <summary> 
    ''' Description of Class1. 
    ''' </summary> 
    Public Class Class1 
     Public Sub New() 
     End Sub 
     Public Sub DoWork(obj As CustomObject) 
      Dim linq = (From s In storages Where s.Key = obj.Keys.Value).ToList() 

      Dim act As Action(Of ICustomService) = Function(service As ICustomService) Do 
       service.ChangeValue(obj) 
      End Function 

      linq.ForEach(act) 
     End Sub 
    End Class 
End Namespace 

Answer 4

시도 vb.net 코드 변환이 온라인 C#을 사용하여 :

http://www.developerfusion.com/tools/convert/csharp-to-vb/