ASTUCE .NET POUR APPELLER UN MÊME ÉVÊNEMENTS PAR PLUSIEURS CHAMPS DIFFÉRENT
TOM_KILLERz
Messages postés
37
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
4 mai 2005
-
16 juin 2004 à 19:54
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 16 juin 2004 à 22:41
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 16 juin 2004 à 22:41
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/23742-astuce-net-pour-appeller-un-meme-evenements-par-plusieurs-champs-different
https://codes-sources.commentcamarche.net/source/23742-astuce-net-pour-appeller-un-meme-evenements-par-plusieurs-champs-different
16 juin 2004 à 22:41
16 juin 2004 à 22:22
Ex :
Private Sub TextBox1(Index as integer)
[...]
End Sub
;)
16 juin 2004 à 20:10
je voulais le signaler, puisque c,est une différence avec VB6 qui est très appréciable
16 juin 2004 à 19:54
Couplé avec un selecte case c'est très efficace ;-)
Mais bon ca me parait un peu court pour une source, je ne note pas, un exemple aurait peut etre été utile.
Donc j'en met un ^^ :
Private Sub optTaille_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optTaille8.CheckedChanged, optTaille10.CheckedChanged, optTaille12.CheckedChanged
Select Case sender.name
Case "optTaille8"
lblMessage.Font = New Font(cboListePolices.Text, 8)
Case "optTaille10"
lblMessage.Font = New Font(cboListePolices.Text, 10)
Case "optTaille12"
lblMessage.Font = New Font(cboListePolices.Text, 12)
End Select
End Sub
Sorti directement d'un bouquin... j'avais la flemme de chercher ds mes sources ;-)