Как сделать такой 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д