CRÉATION DYNAMIQUE D'OBJET AVEC GESTION DES EVENEMENTS (VB6)
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
9 déc. 2006 à 14:10
Utilisateur anonyme - 13 févr. 2007 à 13:55
Utilisateur anonyme - 13 févr. 2007 à 13:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40648-creation-dynamique-d-objet-avec-gestion-des-evenements-vb6
https://codes-sources.commentcamarche.net/source/40648-creation-dynamique-d-objet-avec-gestion-des-evenements-vb6
13 févr. 2007 à 13:55
10/10
12 déc. 2006 à 05:08
11 déc. 2006 à 12:51
"AddHandler".Elle ne figure ni dans le MSDN VB, ni dans les API!
Est-ce une fonction que tu as inventée?
@+
9 déc. 2006 à 15:41
9 déc. 2006 à 14:53
Tu met une "," juste avant le addressof et sa marche nickel
9 déc. 2006 à 14:24
Peut-etre que je me trompe mais je tapote du VB6 que depuis hier soir donc sorry si je fais fausse route.
9 déc. 2006 à 14:10
utilise AddHandler, ces largement plus simple =:0)
Synataxe: AddHandler NomDuBouton.evenementrécupéré, addresseof procédureQuiRécuperelévénement
evenementrécupérpeut égaller par exemple .click, .mouseup
Voici un etit exemple pour expliquer:
private sub clickmoiSVP()
Dim Button1 As New Button
Puis écrire la gestion de l'évènement.( L'évènement Button1.click doit déclencher la procédure dont l'adresse est BouttonClique)
AddHandler Button1.Click, AddressOf BouttonClique
(ne pas oublier la virgule avant AddressOf)
Enfin on écrit la sub qui 'récupère ' l'évènement:
Private Sub BouttonClique (sender As Object, evArgs As EventArgs)
End Sub
private sub BouttonClique()
msgbox("HAAAAAAAA qui ma cliqué dessu???")
end sub
J'espere que ce commentaire te sera utile =:0)