|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
06.08.2003, 18:07
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
ПЛС! Хотелось бы, чтобы по "энтер" выполнялся код Private Sub SP2_KeyPress(KeyAscii As Integer) End Sub Где и как объяснять что нужен "энтер" ("еск","спейс" и т.д.) Geen ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:10
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
У ентера ascii то ли 13, то ли 10, то ли оба сразу :) У еск - 27, у спейс - 32 и т.д. А лучше обрабатывай KeyDown - там и шифт/цтрл/алт можно проверить и константы для всего в хелпе лежат. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:12
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
... и повторяться вызов миллион раз не будет, если пользователь забыл клавишу отпустить. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:13
|
|||
|---|---|---|---|
|
|||
По нажатию клавиши?:) |
|||
|
#18+
Событие KeyDown(KeyCode As Integer, Shift As Integer) в KeyKode - код клавиши ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:31
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
Private Sub SP2_KeyDown(13 As Integer, Shift As Integer) Тут же ошибка:( Geen ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:37
|
|||
|---|---|---|---|
|
|||
По нажатию клавиши?:) |
|||
|
#18+
> Private Sub SP2_KeyDown(13 As Integer, Shift As Integer) Ну конечно ошибка :-))) Желательно почитать теорию! Должно быть: Private Sub SP2_KeyDown(KeyKode As Integer, Shift As Integer) If KeyKode = 13 Then ' твои действия End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:41
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
Работает!:) А остальные при этом обрабатываются так как положено для контрола?:) Geen ЗЫ Спасибо:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:42
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
Охних. Ты хочешь, чтоб код по Enter выполнялся, или программно нажать Enter, или добиться устойчивой ошибки? :) Private Sub SP2_KeyDown(KeyСode As Integer, Shift As Integer) If KeyСode = 13 Then ' твои действия End If End Sub Только KeyCode я сравниваю не с 13, а с vbKeyReturn и т.п. - запоминать ничего не надо, и по тексту понятно, что делаешь. Не забудь еще поставить у формы "перехват нажатия клавиш". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:43
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
А остальные при этом обрабатываются так как положено для контрола?:) Да. И еще. После обработки напиши KeyCode=0 а то потом акцес ентер еще и своими силами обработает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:51
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
А перехват на кой, простите?:) Geen ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:54
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
А это если ты хочешь обрабатывать пресловутый Enter не для одного контрола, а для любого в форме. Иначе событие KeyDown будет возникать только в контроле, у которого фокус, а до формы не доберется. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:58
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
Так мне и нужно только для данного контрола:) Или энтер на остальных перестанет действовать?:( Где грабли?:) Geen ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2003, 18:59
|
|||
|---|---|---|---|
По нажатию клавиши?:) |
|||
|
#18+
А нет граблей. И если надо только для одного, то и перехваты никакие не нужны :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1680071]: |
0ms |
get settings: |
7ms |
get forum list: |
21ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
47ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
63ms |
get tp. blocked users: |
1ms |
| others: | 199ms |
| total: | 359ms |
| 0 / 0 |
