Méthodes anonymes - C# à VB.NET

Question

J'ai besoin d'implémenter une seule instance VB.NET d'une application sur un serveur Terminal Server. Pour ce faire, j'utilise le code du blog Flawless Code. Cela fonctionne bien, sauf que le code est écrit en C# et utilise une méthode anonyme qui n'est pas supportée par VB.NET. J'ai besoin de réécrire ce qui suit afin que je puisse l'utiliser comme un événement dans VB.NET.

static Form1 form; 

static void singleInstance_ArgumentsReceived(object sender, ArgumentsReceivedEventArgs e) 
    { 
     if (form == null) 
      return; 

     Action<String[]> updateForm = arguments => 
      { 
       form.WindowState = FormWindowState.Normal; 
       form.OpenFiles(arguments); 
      }; 
     form.Invoke(updateForm, (Object)e.Args); //Execute our delegate on the forms thread! 
    } 
} 

Answer 1

Vous pouvez utiliser ce code:

Private Shared form As Form1 

Private Shared Sub singleInstance_ArgumentsReceived(ByVal sender As Object, ByVal e As ArgumentsReceivedEventArgs) 
    If form Is Nothing Then Return 
    form.Invoke(New Action(Of String())(AddressOf updateFormMethod), e.Args) 
End Sub 

Private Shared Sub updateFormMethod(ByVal arguments As String()) 
    form.WindowState = FormWindowState.Normal 
    form.OpenFiles(arguments) 
End Sub 

Answer 2

Ce:

public void Somemethod() 
{ 
    Action<String[]> updateForm = arguments => 
     { 
      form.WindowState = FormWindowState.Normal; 
      form.OpenFiles(arguments); 
     }; 
} 

serait le même que:

public void Somemethod() 
{ 
    Action<String[]> updateForm = OnAction; 
} 

//named method 
private void OnAction(string[] arguments) 
{ 
    form.WindowState = FormWindowState.Normal; 
    form.OpenFiles(arguments); 
} 

Ensuite, vous faites facilement la transition VB.net, à quelque chose comme ceci:

Public Sub SomeMethod() 

    Dim updateForm As Action(Of String()) = New Action(Of String())(AddressOf Me.OnAction) 
    Me.form.Invoke(updateForm, New Object() { e }) 

End Sub 

Private Sub OnAction(ByVal arguments As String()) 
    form.WindowState = FormWindowState.Normal 
    form.OpenFiles(arguments) 
End Sub 

Answer 3

En VB.NET dans VS 2010, vous pouvez effectuer les opérations suivantes:

Shared form As Form1 
Shared Sub singleInstance_ArgumentsReceived(ByVal sender As Object, ByVal e As ArgumentsReceivedEventArgs) 
    If form Is Nothing Then Return 

    Dim updateForm As Action(Of String()) = Sub(arguments) 
               form.WindowState = FormWindowState.Normal 
               form.OpenFiles(arguments) 
              End Sub 

    form.Invoke(updateForm, e.args) 

End Sub