TextBox en VB6
Résolu
MICHELBLANVALET
Messages postés
12
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
25 février 2006
-
10 févr. 2006 à 07:04
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 10 févr. 2006 à 07:40
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 10 févr. 2006 à 07:40
A voir également:
- Vb6 textbox
- Vb6 ✓ - Forum Visual Basic 6
- Vb6 decompiler - Forum Visual Basic 6
- Textbox vba ✓ - Forum Visual Basic 6
- Vb6 wait ✓ - Forum Visual Basic 6
- Vb6 mid ✓ - Forum Visual Basic
1 réponse
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
129
10 févr. 2006 à 07:40
10 févr. 2006 à 07:40
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
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
