cs_Sipat
Messages postés71Date d'inscriptionmardi 26 octobre 2004StatutMembreDernière intervention15 avril 2007
-
19 févr. 2005 à 18:15
K@zuya
Messages postés306Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention15 février 2016
-
19 févr. 2005 à 19:07
Bonjour à tous,
J'aimerai savoir comment je dois faire pour empêcher que l'on puisse saisir plusieurs fois la virgule (44) dans un TextBox
Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
select case keyascii
case 48 to 57: goto ok
case 46
keyascii = 44
goto ok
case 44: goto ok
end select
keyascii = 0
ok:
End Sub
Merci.
A voir également:
Comment empêcher que l'on puisse saisir plusieurs virgules?
K@zuya
Messages postés306Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention15 février 2016 19 févr. 2005 à 19:07
voila un code un peu plus propre (sans pretention)
Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then
If KeyAscii = 44 Then
If InStr(1, Text1.Text, ",") Then KeyAscii = 0
ElseIf KeyAscii = 46 Then
If InStr(1, Text1.Text, ",") Then
KeyAscii = 0
Else
KeyAscii = 44
End If
Else
KeyAscii = 0
End If
End If
End Sub
K@zuya
Messages postés306Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention15 février 2016 19 févr. 2005 à 18:43
dim Check as Boolean
Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
select case keyascii
case 48 to 57: goto ok
case 46
keyascii = 44
goto ok
case 44
if not Check then
Check = True
goto ok
else
keyascii = 0
goto ok
end if
end select
keyascii = 0
ok:
End Sub