Появилась задача: Вставлять в текстовое поле толе русские символы или только английские символы в возможностью ввода пробела
|
1 2 3 4 5 6 7 8 |
Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress ' для ввода русских букв и пробела If Not e.KeyChar Like "[А-ЯЁа-яё ]" And Not e.KeyChar = vbBack Then e.Handled = True ' для ввод английских букв без пробела If Not e.KeyChar Like "[A-Za-z]" And Not e.KeyChar = vbBack Then e.Handled = True End Sub |