gillardg
Messages postés3275Date d'inscriptionjeudi 3 avril 2008StatutMembreDernière intervention14 septembre 20142 21 juil. 2008 à 13:43
Dim
num
As
Boolean
Dim
x
As
Int32
Private
Sub
TextBox1_KeyPress(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.KeyPressEventArgs)
Handles
TextBox1.KeyPressnum =
False
For
x = 0
To
9
If
e.KeyChar = x.ToString
Then
Beep()
num =
True
End
If
Next
x
End
Sub
Private
Sub
TextBox1_TextChanged(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
TextBox1.TextChanged
If
num =
False
Then
SendKeys.Send(
"{BACKSPACE}"
)
End
If
If
TextBox1.TextLength = 5
Then
Button1.Focus()
End
If
End
Sub
'simple et rapide mais pas très propre si tu entres autres chose qu'un chiffre c'est éffacé, sinon ça beep quand il y a 5 chiffres ça donne le focus à un bouton appelé button1
Au contraire des chasseurs qui ne sont pas des lapins, les pollueurs, eux, sont des ordures