Как сделать такой TextBox, куда можно было бы вводить только определенные символы? - VB
Формулировка задачи:
Как сделать такой TextBox, куда можно было бы вводитьтолько определенные символы? Например, только числа или только буквы?
Спасибо
Решение задачи: «Как сделать такой TextBox, куда можно было бы вводить только определенные символы?»
textual
Листинг программы
- Public Function KeyFilter(i As Integer, s As String) As Integer
- Select Case i
- Case 48 To 57 '' Числа от 0 до 9
- KeyFilter = i
- Case 8 '' Клавиша Backspace
- KeyFilter = i
- Case 44 '' Клавиша запятой с проверкой ее предыдущего ввода
- If InStr(1, s, ',') = 0 Then
- KeyFilter = i
- Else
- Beep
- KeyFilter = 0
- End If
- Case 9
- KeyFilter = i
- Case Else
- Beep
- KeyFilter = 0
- End Select
- End Function
- Private Sub Text1_KeyPress(KeyAscii As Integer)
- KeyAscii = KeyFilter(KeyAscii, Text1.Text)
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
