VB6 @ VB.NET (Index)

Question

CaliceDeTabarnac

Dans VB6 il était possible de créer plusieurs boutton groupé (créer un boutton, le sélectionner, copié, coller et VB6 demande si on veut créer une table de controle) avec un index pour chacun. C'était très pratique pour une application tel qu'une calculatrice:

Private Sub Command1_Click(Index As Integer)
    IntNouveauChiffre = Index
End Sub

Est-ce encore possible de créer des tableaux de controles sur VB.NET?

cs_BFR · Answer

Salut
c'est possible mais de manière différente

exemple:

Private Sub Menus(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles mnuFichierEnregistrer.Click, _
                mnuFichierEnregistrerSous.Click, _
                mnuFichierFermer.Click, _
                mnuFichierImprimer.Click, _
                mnuFichierMiseEnPage.Click, _
                mnuFichierNouveau.Click, _
                mnuFichierOuvrir.Click, _
                mnuFichierQuitter.Click, _
                mnuEditionColler.Click, _
                mnuEditionCopier.Click, _
                mnuEditionCouper.Click, _
                mnuAide.Click, _
                mnuAProposDe.Click, _
                mcEditionCouper.Click, _
                mcEditionCopier.Click, _
                mcEditionColler.Click

        'Gestionaire de l'événement Click des différents menus

        'Menu Fichier
        If sender Is mnuFichierNouveau Then
            FichierNouveau()
        ElseIf sender Is mnuFichierOuvrir Then
            FichierOuvrir()
        ElseIf sender Is mnuFichierFermer Then
            FichierFermer()
        ElseIf sender Is mnuFichierEnregistrer Then
            FichierEnregistrer()
        ElseIf sender Is mnuFichierEnregistrerSous Then
            FichierEnregistrerSous()
        ElseIf sender Is mnuFichierMiseEnPage Then
            FichierMiseEnPage()
        ElseIf sender Is mnuFichierImprimer Then
            FichierImprimer()
        ElseIf sender Is mnuFichierQuitter Then
            'Fermer la fenêtre en déclanchant le gestionnaire de l'événement Closing
            Me.Close()
end if
        End Sub

c'est simplement une piste voir avec le source
http://www.vbfrance.com/code.aspx?ID=17380
qui n'est pas de moi mais qui m'a aider à comprendre.
A++ BFR

cs_calicedetabarnac · Answer

CaliceDeTabarnac

C'est cool
Merci

VB6 @ VB.NET (Index)

2 réponses

Discussions similaires