ник: Maksimilian
Здравствуйте! Как можно автоматизировать ограничение вводимых знаков в поле формы?
Я делаю так:
Private Sub УдСопр_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57 ' <Backspace> и цифры
Case 44, 46 ' запятая (44) и точка (46)
If Len(УдСопр.Text) = 0 Then
' запятая не может быть первым сиволом
KeyAscii = 0
Else
If KeyAscii = 46 Then
' заменим точку запятой
KeyAscii = 44
End If
' проверим, введена ли запятая
If InStr(1, УдСопр.Text, ",") <> 0 Then
' запятая уже введена
' вторая не нужна
KeyAscii = 0
End If
End If
Case Else
' прочие символы запрещены
KeyAscii = 0
End Select
End Sub
|
Можно ли это все засунуть в одну функцию и потом ссылаться на нее из разных полей.
Просто если у меня 30 полей - для каждого поля писать такую "байду" - места много займет.