Как сделать такой 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы