Aleksei

проблема состоит в следующем:
размещая иконку в трею, по правому клику открываю контекстное меню.
далее хотелось перемещаться по пунктам меню с клавиатуры, но - не работает. Закрыть меню клавишей Esc - тоже не работает. Все тольно с мышки
Это же меню открываю по правому клику на форме - работает все: и с мыши и с клавиатуры.

Помогите, кто может ....

Messir

Дело в том, что в VB это ккоманды обрабатываются контейнером (т.е. формой). А когда оного нету, то естественно, что и никакие клавиатурные команды работать не будут. Поэтому надо использовать менюхи искличительно через API - PopupMenu здесь не помощник...

Aleksei

Да, но форма есть (она скрыта), иконку и меню создаю и вызываю через API
TrackPopupMenu(lngMenu, 2 Or &H100, Pos.X, Pos.Y, -1, Me.hwnd, 0)
но результат тот-же

Возможно, это связано с описанием иконки в трее:
nid.uCallBackMessage = WM_MOUSEMOVE

если привязать событие на иконке к WM_KEYDOWN
то, по меню можно перемещаться с клавиатуры, но не получается определить какое событие произошло в трее: левый/правый клик, перемещение мыши и т.д. ?????

@pl

Попробуй
nid.uCallBackMessage = WM_MOUSEMOVE Or WM_KEYDOWN

0

Aleksei

Событие на иконке отлавливается, но оно определяется по параметру X,
например, на движение мыши в форме есть параметр X:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Обработка мышиных событий, которые возникают на этой иконке
Dim msg As Long
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
ShowPopUpMenu ' здесь создается и вызывается контекстное меню
Case WM_RBUTTONUP
Case WM_RBUTTONDBLCLK
End Select
End Sub

на нажатии клавиши в форме такого параметра нет? и как быть я не знаю???
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

?????