TextBox en VB6

Résolu
Signaler
Messages postés
12
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
25 février 2006
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Débutant en VB6 ,
Je cherche le moyen de savoir si l'on peut limiter une valeur numériquedans une TextBox
Ex: Ne pas pouvoir entrée une valeur supérieure à 80
Merci d'avance

1 réponse

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
Salut,

Il faut tester le nombre entré :

Private Sub Text1_KeyPress()

Dim sNombre as string
sNombre = Text1.Text & Asc(KeyAscii)
If Not IsNumeric(sNombre) Then
KeyAscii = 0
exit sub
end if
If Val(sNombre) > 80 Then
KeyAscii = 0
exit sub
end if

End Sub

_
Avant de poster dans le forum,
Prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci