Ikony v menu
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Ikony v menuIkony v menu

 

Ikony v menu

Google       Google       10. 9. 2005       8 673×

Některé aplikace mají menu. Nemyslím popup menu, ale menu pod titulkem okna, třeba soubor, úpravy, okno atd. Ale u propracovanějších aplikací není menu úplně čistě textové, mají tam ikonky a my si v tomto díle seriálu povíme, jak je tam přidat.

Reklama
Reklama

Deklarujete si funkce a pak už stačí pár řádků kódu.


Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, _
                                                          ByVal nPosition As Long, _
                                                          ByVal wFlags As Long, _
                                                          ByVal hBitmapUnchecked As Long, _
                                                          ByVal hBitmapChecked As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _
                                                  ByVal nPos As Long) As Long

Private Sub Command1_Click()
    handleMenu = GetMenu(Form1.hwnd) 'Získám manipulátor menu
    handleSubMenu = GetSubMenu(handleMenu, 0) 'ze získám manipulátor submenu z manipulátoru menu a indexu menu
    Call SetMenuItemBitmaps(handleSubMenu, 0, &H400, Picture1.Picture, Picture1.Picture) 'zde vykreslím obrázek...
    'z Picture1 do první položky prvního submenu. Nula zde určuje index.
End Sub

To je snad vše, komentáře tam jsou. Ikony jsou myslím 16×16. a kód si upravte podle svých potřeb, tohle je jen ukázka.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Tagy:
1 názor  —  1 nový  
Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Dovozci baterií mění logistiku, letadlo nahrazuje námořní doprava

Dovozci baterií mění logistiku, letadlo nahrazuje námořní doprava

Dovozci baterií do mobilů či notebooků upouštějí od letecké přepravy zboží. V letošním roce plánují dovézt až 80 % produktů lodí. Přitom před 5 lety byla většina baterií do mobilních přístrojů dovezených do České republiky přepravována letadlem. Za proměnou způsobu transportu akumulátorů stojí zpřísnění pravidel pro leteckou přepravu, která přinášejí vyšší náklady i náročnou agendu.

Reklama
Reklama
Obrázek ke článku JIC otevírá největší digitální dílnu pro veřejnost v České republice

JIC otevírá největší digitální dílnu pro veřejnost v České republice

JIC otevírá první nonstop veřejně dostupnou digitální dílnu světového formátu s vybavením za 3 miliony korun. Dílnu může využívat po registraci kdokoliv. V  prostorách vzniknou prototypy produktů místních startupů, projekty kutilů a studentů i umělecká díla. Cílem dílny je zpřístupnit veřejnosti drahé přístroje a přitáhnout více podnikavých lidí k technickým oborům.

Obrázek ke článku Nový IT hráč na českém trhu

Nový IT hráč na českém trhu

V roce 2015 otevřela v Praze na Pankráci v budově City Tower své kanceláře společnost EPAM Systems (NYSE:EPAM), jejíž centrála se nachází v USA. Společnost byla založená v roce 1993 a od té doby prošla velkým vývojem a stále roste.

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032017 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý