Как можно заставить пользователя вводить в поле, скажем название фирмы только большими буквами?
Заранее благодарен.
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub Text1_Change()
Dim tmp As Long
tmp = Text1.SelStart
Text1.Text = StrConv(Text1.Text, vbProperCase)
Text1.SelStart = tmp
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 1