Private Sub Text1_KeyPress(KeyAscii As Integer) '8 = Backspace 13=enterIf KeyAscii 8 Or KeyAscii 13 Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End Sub
Select Case KeyAscii Case 48 To 57, 8 Case 44, 46 Case Else KeyAscii = 0 End Select
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub txtannee_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtannee.KeyPress
Private Sub txtannee_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtannee.KeyPress
Private Sub txtannee_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtannee.KeyPress Select Case Asc(e.KeyChar) Case 48 To 57 ' chiffre de 0 à 9 Case 8 ' backspace Case 13 ' touche entrée Case Else e.Handled = True 'sinon marque rien End Select End Sub