|
Платные хостинги
Раскрутка сайта
Книги по программированию
функция создания меню
- Хелло завсегтаи этого форума и не только они, пожалуйста помогите. Суть проблемы:Существует код сворачивающий форму в трей, при нажатии на значок в трее появляется меню - которое создается программно вот этим кодомКод Public Sub TrayMenu(frm As Form) Dim hMenu As Long, tMenu As Long Dim MP As POINTAPI GetCursorPos MP hMenu = CreatePopupMenu() If bTraySet Then AppendMenu hMenu, MF_STRING, 1000, "Восстановить" Else AppendMenu hMenu, MF_STRING Or MF_GRAYED, 1000, "Восстановить" End If AppendMenu hMenu, MF_STRING, 1020, "О прграмме" AppendMenu hMenu, MF_STRING, 1030, "Звонить" AppendMenu hMenu, MF_STRING, 1040, "Выход" AppendMenu hMenu, MF_SEPARATOR, 0&, 0& AppendMenu hMenu, MF_STRING, 1010, "Выход" tMenu = TrackPopupMenu(hMenu, TPM_NONOTIFY Or TPM_RETURNCMD, MP.x, MP.y, 0&, frm.hwnd, 0&) Select Case tMenu Case 1000 TrayRestore frm Case 1010 TrayRestore frm UnHook Unload frm Case Else 'do nothing End Select DestroyMenu hMenu End SubhighlightSyntax('vb0YWM3Z','vb'); Вопрос: Как описать свои действия в Case, например чтобы при нажатии на Звонить менялся Caption у формы, а лучше как можно заменить это меню тем которое создается с помощью Menu Editor но не менять остального кода, в том же Public Sub TrayMenu(frm As Form). Плиз хелп
- [quote]Вопрос: Как описать свои действия в Case, например чтобы при нажатии на Звонить менялся Caption у формы, а лучше как можно заменить это меню тем которое создается с помощью Menu Editor но не менять остального кода, в том же Public Sub TrayMenu(frm As Form). Плиз хелпА может быть делать пункты меню созданные редактором невидимыми и при выборе того или иного пункта из TrayMenu возвращать их (пунктов из редактора) сво-ву Visible значение True, и наоборот?Или может я че не понял в вопросе?
- Кто-нибудь поможет?????????? amt : не получится потому что в Case описывается нажатие на элемент меню - оно уже видимо
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
