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