Россия

Ввод в TextBox только определенных символов

Дата публикации: 04.01.2016

Иногда требуется, чтобы в текстовое поле можно было вводить только определенные символы, например числа, в этом случае поможет следующий код:

Function OnlyMySymbols (Symbol As Integer, Pattern as string) as Integer
If InStr (Pattern & Chr (8), Chr (Symbol)) > 0 Then 
OnlyMySymbols = Symbol
Else 
OnlyMySymbols = 0 
End If 
End Function

Применяется код так, если в поле Textbox1 необходимо разрешить введение только чисел:

Private Sub Textbox1_KeyPress (KeyAscii As Integer) 
KeyAscii = OnlyMySymbols (KeyAscii, “0123456789.») 
End Sub