Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Как сделать чтоб с клавиатуры можно было вводит только цифры?
Как сделать чтоб с клавиатуры нельзя было вводить текст , а только цифры.!
Если вы цифры вводите в TextBox, то у него должно быть свойство ( property ) вроде DigitOnly, ставьте его в true и оно само будет фильтровать ввод
Код:
или так, с применением "тяжелой артиллерии" :
Код:
Private Declare Function GetWindowLong _
Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub Form_Load()
SetWindowLong Text1.hWnd, -16&, _
GetWindowLong(Text1.hWnd, -16&) Or 8192&
End Sub
Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub Form_Load()
SetWindowLong Text1.hWnd, -16&, _
GetWindowLong(Text1.hWnd, -16&) Or 8192&
End Sub
P.S. И, разумеется, нужно удалить текст (свойство Text), который появляется при создании текстового поля.