| Вопрос: Реакция обьекта на нажатие "Enter" | Добавлено: 05.12.03 09:47 |
Автор вопроса:  volodiam
|
|
Подскажите начинающему.Как заставить обьект среагировать на нажатие "enter".Я понимаю,что событие должно быть Keypress или Keydown,но константы vbkeyenter как я понимаю нет,тогда наверное нужно подставлять в процедуру код ASCII,а какой он у "Enter"? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 05.12.03 10:36 |
|
vbKeyReturn |
||
|
Номер ответа: 2 Автор ответа:  volodiam Вопросов: 10 Ответов: 7 |
Профиль | | #2 | Добавлено: 05.12.03 10:49 |
|
Спасибо за ответ,но vbkeyreturn не срабатывает.Да я уже и сам разобрался Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyDown = vbEnter Then Cmd1.SetFocus End If End Sub |
||
|
Номер ответа: 3 Автор ответа: User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #3 | Добавлено: 05.12.03 10:52 |
|
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then MsgBox "Ещё как срабатывает End Sub |
||
"|
Номер ответа: 4 Автор ответа: volodiamВопросов: 10 Ответов: 7 |
Профиль | | #4 | Добавлено: 05.12.03 11:11 |
|
Да,действительно на msgboxе срабатывает.И на другом заработало: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text1.Text = "" Text1.SetFocus End If End Sub Спасибо,вопрос решён |
||
Страница: 1 |