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

Ikony v menuIkony v menu

 
Hledat
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno
Laser Game Ostrava

Ikony v menu

Google       Google       10. 9. 2005       10 093×

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 Využití .htaccess na malém webu

Využití .htaccess na malém webu

V dnešní době existuje spoustu cms, které mnohdy ale vůbec nepotřebujeme a stačila by nám pouze základní funkčnost k úpravě url, přesměrování. K tomuto účelu je ideální .htaccess soubor, který nám se všemi těmato úpravami umí pomoct.

Reklama
Reklama
Obrázek ke článku Češi tlačí obce do otevřené komunikace – Mobilní Rozhlas si loni pořídilo dalších 171 měst a obcí

Češi tlačí obce do otevřené komunikace – Mobilní Rozhlas si loni pořídilo dalších 171 měst a obcí

Obyvatelé Česka se mnohem více zapojují do veřejného dění. Umožňují jim to přímo samosprávy, které stále častěji využívají nástroje takzvané chytré komunikace a participace. Dokládají to data za rok 2019 ekosystému Mobilní Rozhlas, lídra v oblasti chytré obecní komunikace. Zapojilo se do něj 171 nových měst a obcí, zaregistrovalo celkem 100 tisíc občanů a místní samosprávy jeho prostřednictvím rozeslaly třikrát více adresných zpráv než v roce 2018

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032020 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý