Rendre visible ou invisible un label

cs_SANFER Messages postés 16 Date d'inscription lundi 3 novembre 2003 Statut Membre Dernière intervention 23 février 2004 - 5 nov. 2003 à 10:54
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 5 nov. 2003 à 11:26
:shy) ogp2
Comment rendre visible ou non un label en fonction d'un nombre entré, par exemple si 1 est tapé dans zone de texte 1 alors label1 doit etre visible et pas label2 ni label3

1 réponse

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 nov. 2003 à 11:26
Private Sub Text1_Change()
   Select Case Text1.Text
        Case "1":
             Label1.Visible = True
             Label1.Visible = False
             Label1.Visible = False
        Case "2":
             Label1.Visible = False
             Label1.Visible = True
             Label1.Visible = False
        Case "3":
             Label1.Visible = False
             Label1.Visible = False
             Label1.Visible = True
        Case Else:
             Label1.Visible = False
             Label1.Visible = False
             Label1.Visible = False
   End Select
End Sub


Le mieux serait de placer tes labels dans un groupe de controles :

Private Sub Text1_Change()
   Dim i as byte , T1 as byte
   T1 = CByte ( Text1..text )
   For i = 0 to Label1.count -1       Label1(i).visible ( i T1 )
   Next i
End Sub


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)
1
Rejoignez-nous