Сообщество Чайников

Вопрос

Хотелось бы, чтобы при вводе текста в TextBox буквы там становились большими.

Пробовал
Private Sub TxtBox_KeyPress(KeyAscii As Integer)
TxtBox = UCase(TxtBox)
End Sub

Не работает.

Ответ

Можно так:

Private Sub TxtBox_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub

Savenger

Можно и так:

Private Sub Text1_Change()
Dim lngSelStart As Long
lngSelStart = Text1.SelStart
Text1.Text = UCase(Text1.Text)
Text1.SelStart = lngSelStart
End Sub

Артем Кривокрисенко

Первый способ всегда работает, а второй замудренный. Можно в первый способ переделать так:

Private Sub TxtBox_KeyPress(KeyAscii As Integer)
if KeyAscii<160 then KeyAscii=KeyAscii+32
End Sub

Работает только для русских букв:)

Sabbah