|
Тема |
Re: Taka [re: ToViDebne] |
|
Автор |
Щиpлиц (разузнавач) |
|
Публикувано | 24.07.04 18:13 |
|
|
Мне. Забрана за въвеждането още от клавиатурата може да се направи малко по-различно.
Const strSymbols As String = "0123456789."
Private Sub txtInput_KeyPress(KeyAscii As Integer)
If InStr(strSymbols, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Т.е. елиминираш всички знаци и символи, които не са описани в константата. Може да се прилага и за букви, смесено букви и цифри, само латиница, или кирилица и т.н. какво ти трябва.
|
| |
|
|
|