Конференция VBStreets

**Calvin** » 30.07.2003 (Ср) 10:51

Подскажите пожалуйста, как это делается?

спасибо, сейчас попробую :roll:

**Aleksej** » 30.07.2003 (Ср) 11:06

'Функция вызова меню из SysTray
'X,Y - координаты мыши
'Forma - передача формы
'Menu - передача меню в функцию
'Вызов из процедуры: Form_MouseDown
'*************************************************************
Public Function Menu_Show(X As Single, Y As Single, forma As Form, _
Menu As Menu)
If Y = 0 Then
Select Case x
Case 517 * Screen.TwipsPerPixelX
forma.PopupMenu Menu
End Select
End If
End Function

**Calvin** » 06.08.2003 (Ср) 16:29

Честно говоря я не совсем понял, что за функция SysTray, но кое-как через поиск на VBStreets я все-таки нашел решение, да и то через ссылку, а не в чьем-то ответе (мож я чегой-то не понимаю, но по-моему реального ответа там так и не было :roll:

). А вот по ссылке я нашел, что нужно вначале создать через Menu Editor меню верхнего уровня, сделать его невидимым, а потом добавить в него нужное количество подменю (для них Visible=True) и задавать для них нужные действия. А потом уже вызывать меню на иконке в Трэе по нужному событию

Form1.PopupMenu [Имя "верхнего" меню]

ЗЫ Может хоть это поможет таким непонятливым как я не задавать подобного вопроса :wink: