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 ;) !
@+
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.