Символы.

[Roven]

Привет! Мне нужно чтобы в TextBox вводились только латинские
символы, как так сделать.

[Demonx]

http://bbs.vbstreets.ru/viewtopic.php?t=8815

[A.A.Z.]

Ты что, тут не то спрашивалось!
Если только английские буквы, даже без цифр и символов, то

Код: Выделить всё

Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < Asc("A")) Or (KeyAscii > Asc("Z") And KeyAscii < Asc("a")) Or KeyAscii > Asc("z") Then KeyAscii = 0
End Sub

А если только без русских, то

Код: Выделить всё

Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("А") Then KeyAscii = 0
End Sub

[GM]

Если все кроме цифр,то:

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(chr(KeyAscii)) Then KeyAscii = 0
End Sub