Come convertire la funzione di delegato C# in VB.Net?

Question

Here c'è una vecchia domanda su questo codice.

xmpp.OnLogin += delegate(object o) 
       { 
        xmpp.Send(
         new Message(
          new Jid(JID_RECEIVER), 
          MessageType.chat, 
          "Hello, how are you?" 
         ) 
        ); 
       }; 

voglio usarlo in vb.net (versione 10), ma non riuscivo a capire come convertire esso.

Answer 1

Il delegato è una funzione anonima. La sintassi è leggermente diversa per VB .NET, come previsto. Senza avere il compilatore VB a portata di mano, direi avete bisogno di qualcosa di simile:

AddHandler xmpp.OnLogin, 
    Sub(o As Object) 
     xmpp.Send(
        new Message(
         new Jid(JID_RECEIVER), 
         MessageType.chat, 
         "Hello, how are you?" 
        ) 
    End Sub 

Answer 2

Non so come dichiarare un delegato anonimo in VB.NET e io sono troppo pigro per Google, ma qualcosa come questo dovrebbe funzionare (attenzione: non testato):

AddHandler xmpp.OnLogin, AddressOf Me.HandleSendMessage 

Private Sub HandleSendMessage(ByVal o As Object) 
xmpp.Send(new Message(
       new Jid(JID_RECEIVER), 
          MessageType.chat, 
          "Hello, how are you?" 
         ) 
        ) 
End Sub