Aide pour convertir un code C# en VB.NET

Signaler
-
Messages postés
834
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
14 janvier 2017
-
Salut
Dans le cadre de la création d'une application Windows Phone, j'ai besoin d'utiliser la classe CustomMessageBox apportée par le WindowsPhoneToolkit. Le problème, c'est que je n'ai trouvé nulle part de code en VB.NET, et que les convertisseurs que j'ai essayés n'ont pas converti le code comme il le fallait. Alors si quelqu'un pouvait m'aider... Le code n'est pas très complexe mais j'ai des problèmes pour les gestionnaires d'évènements (pour leurs conversions) :
        CustomMessageBox messageBox = new CustomMessageBox()
{
    Caption = "Do you like this sample?",
    Message = "There are tons of things you can do using custom message boxes. To learn more, be sure to check out the source code at CodePlex.",
    LeftButtonContent = "yes",
    RightButtonContent = "no"
};

messageBox.Dismissed += (s1, e1) =>
    {
        switch (e1.Result)
        {
            case CustomMessageBoxResult.LeftButton:
                // Do something.
                break;
            case CustomMessageBoxResult.RightButton:
                // Do something.
                break;
            case CustomMessageBoxResult.None:
                // Do something.
                break;
            default:
                break;
        }
    };

messageBox.Show();
    }

1 réponse

Messages postés
834
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
14 janvier 2017
29
Bonsoir

Difficile d'être formel sans connaitre avec précision le type CustomMessageBox

mais cela devrait être quelque chose comme:
Déclaration d'une variable messageBox
Private WithEvents messageBox As CustomMessageBox


Déclaration du gestionnaire d'évènements
c'est là ou il faut connaitre les types des arguments retournés par l'évènement
Private Sub messageBoxResult(sender As Object, e1 As CustomMessageBoxResultType) Handles messageBox.Dismissed
    Select Case e1.Result

        Case CustomMessageBoxResult.LeftButton
            ' Do something.
        Case CustomMessageBoxResult.RightButton
            ' Do something.
        Case CustomMessageBoxResult.None
            ' Do something.
        Case Else
    End Select

End Sub

Utilisation
messageBox = New CustomMessageBox()

messageBox.Caption = "Do you like this sample?"
messageBox.Message = "There are tons of things you can do using custom message boxes. To learn more, be sure to check out the source code at CodePlex."
messageBox.LeftButtonContent = "yes"
messageBox.RightButtonContent = "no"

messageBox.Show()


Bon code...