| Вопрос: Как сделать, чтобы фокус с комбобокса .... | Добавлено: 05.03.07 10:49 |
Автор вопроса:  Willa
|
| ... перескакивал на текстбокс после выбора значения в комбобоксе? Нифига не получается :( |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  Willa Вопросов: 16 Ответов: 18 |
Профиль | | #1 | Добавлено: 05.03.07 11:05 |
|
И если никто не знает, тогда как сделать, чтобы когда что-то пишешь на клаве, буковки автоматически писались в текстбоксе. Если делать так:
Private Sub form_keypress(KeyAscii As Integer) txtBox.SetFocus End Sub То пропадает 1-я буква, как ее вернуть? 
|
||
|
Номер ответа: 2 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 05.03.07 11:39 |
|
Private Sub Combo1_Click()
Text1.SetFocus End Sub |
||
|
Номер ответа: 3 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #3 | Добавлено: 05.03.07 12:51 |
Так пробовала - не работает 
|
||
|
Номер ответа: 4 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #4 | Добавлено: 05.03.07 13:01 |
| Да, странно... Если пробовать в отдельном проекте - работает, а в моем - фиг... | ||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 05.03.07 13:04 |
|
Пиши новый проект
|
||
|
Номер ответа: 6 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #6 | Добавлено: 05.03.07 13:24 |
Очень приятно, спасибо 
Мож на второй вопрос подскажите лучше ответ? Тогда и мучаться не буду
|
||
|
Номер ответа: 7 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #7 | Добавлено: 05.03.07 14:17 |
|
Ну попробуй так:
Text1.SetFocus 'ставим фокус
SendKeys "{END}" 'встаем в конец строки Text1.Text = Text1.Text & Chr(KeyAscii) 'отсылаем нажатую букву Так я не понял: SetFocus работает, или нет? |
||
|
Номер ответа: 8 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #8 | Добавлено: 05.03.07 14:19 |
| Это в процедуре Private Sub Form_KeyPress(KeyAscii As Integer)... | ||
|
Номер ответа: 9 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #9 | Добавлено: 05.03.07 14:56 |
|
SetFocus прикрутила, но криво, зато работает Если просто в процедуре написать SetFocus - выдает ошибку, а если поставить условие, например, если такой-то элемент видим (а он естественно видим) - то SetFocus. Так работает. А с чем бред такой связан я так и не поняла
За буковку спасибо
|
||
|
Номер ответа: 10 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #10 | Добавлено: 05.03.07 15:00 |
|
Гы! Буква не только отсылается, но еще и приплюсовывается )) Например, если на клавиатуре набрать "пирог", то в текстбоксе появляется "гориппирог"
|
||
|
Номер ответа: 11 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #11 | Добавлено: 05.03.07 15:04 |
|
Гы! Буква не только отсылается, но еще и приплюсовывается
)) Например, если на клавиатуре набрать "пирог", то в текстбоксе появляется "гориппирог"
Ну да. Это я в расчете, что у тебя эта процедура один раз только выполнится и фокус перейдет на текстбокс...
|
||
|
Номер ответа: 12 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #12 | Добавлено: 05.03.07 15:06 |
|
SetFocus прикрутила, но криво, зато работает
Если просто в процедуре написать SetFocus - выдает ошибку, а если поставить условие, например, если такой-то элемент видим (а он естественно видим) - то SetFocus. Так работает. А с чем бред такой связан я так и не поняла
У тебя в тексбоксе наверное TabIndex=0. У меня чего-то похожее было, но уже не помню... |
||
|
Номер ответа: 13 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #13 | Добавлено: 05.03.07 15:13 |
|
Ну все равно никак не получается. Не понимаю, почему у меня текстбокс 1-я буква нормально отсылается, курсор переходит в конец, а потом какая-то хрень - буквы появляются по две штуки и перед 1-й буквой
|
||
|
Номер ответа: 14 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #14 | Добавлено: 05.03.07 15:56 |
|
Работает нормально тока без txtBox.SetFocus
Единственное что не нравится - если ошибся в написании буквы стереть ее можно тока del... Мож есть какие-нить условия, что если не буква и не цифра - то не вписывать, а использовать
|
||
Страница: 1 |