aider à convertir C# anonyme en vb.net

Question

S'il vous plaît aidez-moi à convertir ce code ci-dessous à vb.net. Je n'ai aucune idée de convertir de la méthode anonyme à vb.net. J'utilise actuellement 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); 
    } 

Merci d'avance.

pur 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 est un IDE gratuit pour dotnet qui prend en charge plusieurs traductions automatiques de SourceCode-à-dire C# à VB.NET, IronRuby ou IronPyton

Pour votre exemple, il produit

' 
' * 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

Essayez d'utiliser cette ligne C# à la conversion de code vb.net:

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