|
Иногда требуется, чтобы в текстовое поле можно было вводить только определенные символы, например числа, в этом случае поможет следующий код:
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
| 
Главная 
