Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sTemplate As String
'Replace the '!@#$%^&*()_+=' какие символы игнорировать sTemplate = "!@#$%^&*()_+=" If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0 End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Запретить ввод определенных символов", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!