Masque de saisie
aziz benmbarek
Messages postés
6
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
6 octobre 2004
-
28 sept. 2004 à 12:19
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 28 sept. 2004 à 14:02
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 28 sept. 2004 à 14:02
1 réponse
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
28 sept. 2004 à 14:02
28 sept. 2004 à 14:02
Question déja traité plusieurs fois !!!!!
Dans l 'evenement Keypress du textbox tu n'autorise que les nombre et une seule fois le "."
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Existe As Boolean
Existe = False
If InStr(Text1, ".") <> 0 Then Existe = TrueIf Chr(KeyAscii) "." And Existe Then KeyAscii 0 Else Exit Sub
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
++
Dans l 'evenement Keypress du textbox tu n'autorise que les nombre et une seule fois le "."
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Existe As Boolean
Existe = False
If InStr(Text1, ".") <> 0 Then Existe = TrueIf Chr(KeyAscii) "." And Existe Then KeyAscii 0 Else Exit Sub
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
++