Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как сделать чтоб с клавиатуры можно было вводит только цифры?

80K
14 марта 2012 года
konandoyl
1 / / 14.03.2012
Делаю калькулятор формат Form1.vb нужна помощь .
Как сделать чтоб с клавиатуры нельзя было вводить текст , а только цифры.!
297
14 марта 2012 года
koodeer
1.2K / / 02.05.2009
Не гавкай!

Используйте NumericUpDown.
394
15 марта 2012 года
MegaMozg
317 / / 18.03.2006
Если вы цифры вводите в TextBox, то у него должно быть свойство ( property ) вроде DigitOnly, ставьте его в true и оно само будет фильтровать ввод
275
15 марта 2012 года
pashulka
985 / / 19.09.2004
Если речь идёт о "чистом" VB, а не VB.NET который, по идее, должен обсуждаться в соседнем разделе, и в текстовое поле (Text1) действительно должны вводиться только цифры, то :

 
Код:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

или так, с применением "тяжелой артиллерии" :

Код:
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

P.S. И, разумеется, нужно удалить текст (свойство Text), который появляется при создании текстового поля.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог