[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Ввод в TextBox только цифр (Ввод в TextBox только цифр)
Ввод в TextBox только цифр
ilimДата: Среда, 09.11.2011, 22:26 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
'Пример 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
End If
End Sub

'Пример 2
'Работает Backspace

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

'Пример 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Ввод в TextBox только цифр (Ввод в TextBox только цифр)
Страница 1 из 11
Поиск: