Plusieurs Combobox dans plusieurs panel évènemetRésolu

Question

Bonjour à tous,

J'ai une Form avec 35 Panel contenant chacun un label et un combobox. Je les ai remplit comme ceci:


        Do While SQLReader.Read
            tempPnl = CType(Controls("Panel" & i), Panel)
            tempLbl = CType(tempPnl.Controls("lblDate" & i), Label)
            tempCbox = CType(tempPnl.Controls("cboxHor" & i), ComboBox)

            tempLbl.Text = SQLReader.GetDateTime(0).Day
            tempCbox.Text = SQLReader.GetString(1)
         loop

J'aimerais savoir comment créer un évenement récupérant le texte du cbox et du label du Panel de n'importequel des 35 cbox qui a eu un changement de sélection sans avoir à créer 35 cboxHori.selectionCahnge....

Pouvez-vous m'aider s.v.p.?

Merci!

Utilisateur anonyme · Accepted Answer

Bonsoir,

Si ces contrôles sont créés dynamiquement tu peux t'abonner à un événement à l'aide de l'instruction AddHandler.
Par contre, si tu as créé tes contrôles graphiquement, il te suffit de rajouter l'instruction Handles nomcontole.evenement, autrecontrole.evenement, ....
à la fin d'une sub chargée de gérer tes événements.

Bonne soirée.

Labon90 · Answer

Merci beaucoup banana32! Ça me sauve beaucoup de temps!!!!

Labon90 · Answer

une dernière question si tu veux bien m'aider.... Comment je fais pour savoir lequel des controles a été déclenché?

Labon90 · Answer

Merci c'est ok je l'ai.... tempCbox = sender

Utilisateur anonyme · Answer

Petite remarque :
Si tu définit Option Strict On dans ton projet, avec tempCbox = sender , tu aura une erreur de liaison tardive.
Tu dois obligatoirement caster ton contrôle dans le bon type :
dim tempCbox as combobox = DirectCast(sender, combobox)
Et ainsi avoir accès aux propriétés, méthodes etc, du combobox qui à provoqué l'événement.
Au passage, tu constatera que l'intellisense de Visual Studio ne propose aucune de ces propriétés, méthodes etc sur l'objet sender.
Bonne soirée.

Plusieurs Combobox dans plusieurs panel évènemet

5 réponses

Votre réponse