Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Как сделать чтоб с клавиатуры можно было вводит только цифры?
Делаю калькулятор формат Form1.vb нужна помощь .
Как сделать чтоб с клавиатуры нельзя было вводить текст , а только цифры.!
Как сделать чтоб с клавиатуры нельзя было вводить текст , а только цифры.!
Если вы цифры вводите в TextBox, то у него должно быть свойство ( property ) вроде DigitOnly, ставьте его в true и оно само будет фильтровать ввод
Если речь идёт о "чистом" VB, а не VB.NET который, по идее, должен обсуждаться в соседнем разделе, и в текстовое поле (Text1) действительно должны вводиться только цифры, то :
или так, с применением "тяжелой артиллерии" :
P.S. И, разумеется, нужно удалить текст (свойство Text), который появляется при создании текстового поля.
Код:
или так, с применением "тяжелой артиллерии" :
Код:
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), который появляется при создании текстового поля.