пробую так но вообще ничего не пишет
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 128 To 256
Case Else
KeyAscii = 0
End Select
End Sub
Qwertiy писал(а):32?
Qwertiy писал(а):А как он русские символы не игнорирует? И пробел так же.
u3er писал(а):
- Код: Выделить всё
Case 128 To 256
Case 32, 128 To 256
Mikle писал(а):А если будут копипастить текст?
Qwertiy писал(а):u3er писал(а):
- Код: Выделить всё
Case 128 To 256
Case 32, 128 To 256
Сейчас этот форум просматривают: Google-бот, Mail.ru [бот] и гости: 53