| Вопрос: Перевод из строчных в прописные и наоборот | Добавлено: 12.07.04 20:55 |
Автор вопроса:  ARGO
|
|
Ребята вопрос такой, понадобилось что-бы при вводе строки в TextBox каждая вводимая буква отображалась в верхнем регистре.
Выглядит это примерно так: Private Sub Text1_KeyPress(KeyAscii As Integer) strok = Text1.Text Text1.Text = UCase(strok) End Sub проблема в том что первая буква при это не изменяется, чего только не перепробовал! Может есть идеи? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 12.07.04 21:25 |
|
Уффф. как то я неудачно попал, только ответ хотел запостить, так сразу крупными буквами мне на пол-экрана:
Service Unavailable Я не растерялся и подождал, поэтому все-же запостил что-то 
А вот собствено и ответ: Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub У меня так очень хорошо работает... А твой предыдущий вариант не годился из-за того что во время события KeyPress, символа еще нет в тектовом поле... вот... |
||
|
Номер ответа: 2 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #2 | Добавлено: 13.07.04 11:01 |
|
Это всё не правда. Попробуйте вставить что-нибудь из буфера...
Я делаю так: Private Sub Text1_Change() Dim SelStart As Long SelStart = Text1.SelStart Text1 = UCase(Text1) Text1.SelStart = SelStart End Sub |
||
Страница: 1 |