cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003
-
27 mars 2002 à 20:58
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003
-
1 avril 2002 à 12:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 1 avril 2002 à 12:08
théoriquement ma solution est plus rapide car se sont juste des tests, pas une grosse fonction vb.
enfin pour un petit programme les 2 marchent.
cs_Loner
Messages postés2Date d'inscriptiondimanche 10 mars 2002StatutMembreDernière intervention30 mars 2002 30 mars 2002 à 16:45
Merci a celiphane
J'ai corrigé un bug qui faussait le résultat en binaire et j'ai rajouté les lignes proposées par celiphane...
merci de signaler ce qui va pas...
celiphane
Messages postés466Date d'inscriptionsamedi 16 février 2002StatutMembreDernière intervention20 avril 2007 29 mars 2002 à 09:50
NON NON NON Shivan, pourri comme méthode ta simplification !
Loner, essaye plutot ceci :
Private Sub txtdec_KeyPress(KeyAscii As Integer)
If instr("0123456789",chr(keyascii))=0 Then KeyAscii=0
End Sub
Private Sub txtbin_KeyPress(KeyAscii As Integer)
If instr("01",chr(keyascii))=0 Then KeyAscii=0
End Sub
Voila, tu peux aussi rajouter " & Chr(vbKeyBack) " après les chaines contenant les valeurs possibles pour activer la possibilité de corriger les saisies ;) !
@+
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 27 mars 2002 à 20:58
pour ne pas se prendre la tete avec tes msgbox ki disent k'il faut metre les bons chiffres essaie ca :
Private Sub txtdec_KeyPress(KeyAscii As Integer)
If (KeyAsciiAsc("9")) And KeyAscii<>8 Then KeyAscii=0
End Sub
Private Sub txtbin_KeyPress(KeyAscii As Integer)
If KeyAscii<>Asc("0") And KeyAscii<>Asc("1") And KeyAscii<>8 Then KeyAscii=0
End Sub
1 avril 2002 à 12:08
enfin pour un petit programme les 2 marchent.
30 mars 2002 à 16:45
J'ai corrigé un bug qui faussait le résultat en binaire et j'ai rajouté les lignes proposées par celiphane...
merci de signaler ce qui va pas...
29 mars 2002 à 09:50
Loner, essaye plutot ceci :
Private Sub txtdec_KeyPress(KeyAscii As Integer)
If instr("0123456789",chr(keyascii))=0 Then KeyAscii=0
End Sub
Private Sub txtbin_KeyPress(KeyAscii As Integer)
If instr("01",chr(keyascii))=0 Then KeyAscii=0
End Sub
Voila, tu peux aussi rajouter " & Chr(vbKeyBack) " après les chaines contenant les valeurs possibles pour activer la possibilité de corriger les saisies ;) !
@+
27 mars 2002 à 20:58
Private Sub txtdec_KeyPress(KeyAscii As Integer)
If (KeyAsciiAsc("9")) And KeyAscii<>8 Then KeyAscii=0
End Sub
Private Sub txtbin_KeyPress(KeyAscii As Integer)
If KeyAscii<>Asc("0") And KeyAscii<>Asc("1") And KeyAscii<>8 Then KeyAscii=0
End Sub