Padashto menu
10 отговора
509 прегледа
Padashto menu
Kak se pravi padashto menu v forma. Naprimer varhu dbgrid kato se natisne desen klavish da izliza menu s niakakvi vazmojnosti.
Ми не е по силите ти
Ти те първа има да учиш що е то кирилица, маймуница и как се задава въпрос
Bеer? Moooorrre?
Bеer? Moooorrre?
Re: Padashto menu
Това с отрязък от :[линк]
Дано да ти свърши работа. Въпреки че въпроса ти е непълен и неясен.
HMENU hMenu = LoadMenu (NULL, MAKEINTRESOURCE (IDR_MENU));
HMENU hPopupMenu = GetSubMenu (hMenu, 0);
POINT pt;
SetMenuDefaultItem (hPopupMenu, -1, TRUE);
GetCursorPos (&pt);
SetForegroundWindow (hWnd);
TrackPopupMenu (hPopupMenu,
TPM_LEFTALIGN, pt.x, pt.y, 0, hWnd, NULL);
SetForegroundWindow (hWnd);
DestroyMenu (hPopupMenu);
DestroyMenu (hMenu);
Just a human.
Дано да ти свърши работа. Въпреки че въпроса ти е непълен и неясен.
HMENU hMenu = LoadMenu (NULL, MAKEINTRESOURCE (IDR_MENU));
HMENU hPopupMenu = GetSubMenu (hMenu, 0);
POINT pt;
SetMenuDefaultItem (hPopupMenu, -1, TRUE);
GetCursorPos (&pt);
SetForegroundWindow (hWnd);
TrackPopupMenu (hPopupMenu,
TPM_LEFTALIGN, pt.x, pt.y, 0, hWnd, NULL);
SetForegroundWindow (hWnd);
DestroyMenu (hPopupMenu);
DestroyMenu (hMenu);
Just a human.
Ауууу колко се тъпи
Хеле пък я:)))
Човекът иска падащи менюта.
Наредени.
Ама не казва с какво ще ги отстрелва.
Слага си менятата на редичка и ги стреля с въздушна пушка.
Ще падат - гарантирам.
Ако ги уцели де.
Bеer? Moooorrre?
Човекът иска падащи менюта.
Наредени.
Ама не казва с какво ще ги отстрелва.
Слага си менятата на редичка и ги стреля с въздушна пушка.
Ще падат - гарантирам.
Ако ги уцели де.
Bеer? Moooorrre?
Не бе абсолютен смотаняк
ама хем пиша на кирилица, хем знам колко не знам.
Само не знам колко бира мога да изпия за единиза време :)))))
Bеer? Moooorrre?
Само не знам колко бира мога да изпия за единиза време :)))))
Bеer? Moooorrre?
E ... Dobre de
Stava vapros za slednoto.
Iskam vav VB6 i v dadena forma s dadena kontrola(naprimer s niakakav grid) kato cakna desnia klavish niakade vatre v neia da izleze menu s niakakvi opcii. Te tova e vsichko.
Е в CBuilder
си има нещо наречено popup меню - колкото менюта ти трябват толкова си правиш.
След това на всяка (визуална) контрола може да и бъде присвоено popup меню.
Ама как е във VBто не знам.
Bеer? Moooorrre?
След това на всяка (визуална) контрола може да и бъде присвоено popup меню.
Ама как е във VBто не знам.
Bеer? Moooorrre?
Re: E ... Dobre de
Аз съм правил такива менюта във VB 3.0 pro (не съм и ползвал нови версии).
Научих се как се правят, защото имаше много хубави примерни програмки (директория SAMPLES или нещо подобно). Потърси в примерните програмки на VB 6.0, пък може и да намериш. VB не ми е под ръка (на няколко стотин километра) и не мога да помогна повече.
Научих се как се правят, защото имаше много хубави примерни програмки (директория SAMPLES или нещо подобно). Потърси в примерните програмки на VB 6.0, пък може и да намериш. VB не ми е под ръка (на няколко стотин километра) и не мога да помогна повече.
Re: E ... Dobre de
тъй, значи за VB идело реч...
добре, не е много лесно да се измилси, но пък и не е трудно да се направи
ето линк, ако се оправяш с енгилизкия, ще ти свърши работа:
[линк]
ето и малко от мен:
popup-ите се правят (както и mainmenu-то) от Menueditor-а, съвсем стандартно, нареждаш си итемите който искаш, йерархично, със шорткъти и тн.
викането е малко по-особено - на обработчика на MouseUp се закача код, който да покаже менюто (код за VB6, може да работи и на 4 или 5):
ако има нещо неясно - питай, ако може на кирилица, ако може - с обмислен текст.
не е задължително, но помага :-)
Am I evil?
Yes I am.
добре, не е много лесно да се измилси, но пък и не е трудно да се направи
ето линк, ако се оправяш с енгилизкия, ще ти свърши работа:
[линк]
ето и малко от мен:
popup-ите се правят (както и mainmenu-то) от Menueditor-а, съвсем стандартно, нареждаш си итемите който искаш, йерархично, със шорткъти и тн.
викането е малко по-особено - на обработчика на MouseUp се закача код, който да покаже менюто (код за VB6, може да работи и на 4 или 5):
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu moEdit
End If
End Sub
ако има нещо неясно - питай, ако може на кирилица, ако може - с обмислен текст.
не е задължително, но помага :-)
Am I evil?
Yes I am.
Редактирано от Hateras на