Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перехват клавиш в VB 6 / 5 сообщений из 5, страница 1 из 1
17.07.2005, 06:19:53
    #33170148
IcyCool
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват клавиш в VB 6
Привет!
Все происходит в VB6.
На форме имеется ActiveX експлорера. По нажатию на Cntr-N он отрывает експлорер. Так вот нужно это нажатие проследить и открывать свое окно.
Пробовал KeyPreview=true на форме - не помогло.
Пробовал зделать меню с Ctrl-N - тоже работает только при выборе меню.
Что делать?
...
Рейтинг: 0 / 0
05.08.2005, 04:18:39
    #33202951
SashaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват клавиш в VB 6
Попробуй задействовать event KeyDown на форме, может поможет.
...
Рейтинг: 0 / 0
05.08.2005, 11:48:27
    #33203661
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват клавиш в VB 6
Пробуй !!!

Private Sub txt_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox Shift
MsgBox KeyCode
...
Рейтинг: 0 / 0
05.08.2005, 12:18:27
    #33203795
Перехват клавиш в VB 6
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode =  78  _
      And Shift = acCtrlMask Then
        MsgBox "Вы нажали CTRL+N"
        KeyCode =  0 
    End If
End Sub
...
Рейтинг: 0 / 0
06.08.2005, 15:13:05
    #33205286
Ennor Tiegael
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват клавиш в VB 6
Событие Form_KeyDown() в сочетании со свойством формы KeyPreview = True. Правда, учти, что некоторые шибко умные контролы могут не отдавать форме превью на свои события (таков, например, MS(H)FlexGrid).
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перехват клавиш в VB 6 / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]