Controle de saisie
iples
Messages postés
16
Date d'inscription
lundi 21 juillet 2003
Statut
Membre
Dernière intervention
13 mai 2004
-
30 juil. 2003 à 09:34
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 30 juil. 2003 à 10:22
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 30 juil. 2003 à 10:22
2 réponses
Ickik
Messages postés
193
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
10 mars 2010
2
30 juil. 2003 à 09:59
30 juil. 2003 à 09:59
bonjour,
pour limiter les carcteres que l'on peut entrer dans une textbox:
dim point as boolean
point = false
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If (KeyAscii<48 and KeyAscii>57) or Keyascii<>46 Then
KeyAscii = 0
elseif keyascii=46 then
if point=true then
Keyascii = 0
endif
point=true
endif
End Sub
les codes acsii du pave numerique sont compris entre 48 et 57. Le point est le code ascii 46 (je crois).
pour limiter les nombres de points passe par une variable de type booleenne
je crois que c'est ce que tu cherches
A+
pour limiter les carcteres que l'on peut entrer dans une textbox:
dim point as boolean
point = false
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If (KeyAscii<48 and KeyAscii>57) or Keyascii<>46 Then
KeyAscii = 0
elseif keyascii=46 then
if point=true then
Keyascii = 0
endif
point=true
endif
End Sub
les codes acsii du pave numerique sont compris entre 48 et 57. Le point est le code ascii 46 (je crois).
pour limiter les nombres de points passe par une variable de type booleenne
je crois que c'est ce que tu cherches
A+
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
30 juil. 2003 à 10:22
30 juil. 2003 à 10:22
voila mais le point peu etre inscrit plusieur fois!!!
Private Sub Text1_KeyPress(KeyAscii As Integer)
mychar = Chr(KeyAscii)If mychar >0 And mychar < 10 Or mychar "." Then: Else KeyAscii = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
mychar = Chr(KeyAscii)If mychar >0 And mychar < 10 Or mychar "." Then: Else KeyAscii = 0
End Sub