Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not KeyAscii = vbKeyBack Then
If Not (IsNumeric(Chr(KeyAscii))) Then
KeyAscii = 0
End If
End If
End Sub
|
|
|
Private Sub myTextBox_KeyPress(sender As Object, e As KeyPressEventArgs)
' Steuerzeichen sind kleiner als 32 und müssen durchgelassen werden:
If e.KeyChar >= 32 AndAlso Not Char.IsDigit(e.KeyChar) Then
e.Handled = True;
End If
End Sub
|
|
|
