Prehliadač obrázkov (Active X control)

    V niektorých projektoch som sa stretol so situáciou, kedy mal užívateľ vybrať nejaký obrázok, avšak som nemal nikdy po ruke spôsob, ako mu zobraziť súbory a zároveň náhľady. Tak som si musel vyrobiť niečo podobné sám. Prehliadač obrázkov podporuje základné formáty súborov, ktoré je možné načítať do prvkov vo Visual Basicu (bmp, jpg, gif, dib, wmf, emf, ico, cur), zobrazuje stromovú štruktúru disku a náhľady obrázkových súborov v tom - ktorom adresári s názvom súboru.

    Stromovú štruktúru adresárov disku zobrazuje pomocou Treview, výber disku pomocou DriveListBox-u a obrázky sa zobrazujú v MSHFlexGrid-e. Počas načítavania obrázkov sa zobrazuje ukazovateľ priebehu s možnosťou prerušenia.

    Výber obrázku je možný alebo dvojklikom na náhľad, alebo stlačením pravého tlačítka myši a výberom "vybrať tento obrázok".  Samozrejme, že prehliadač nie je taký flexibilný ako iné - obvykle programované a kompilované v Céčku. Problémy nastávajú najmä s rozmernými súbormi - obrázky veľké ako stena v rozlíšení 600 dpi :). Ale na bežné veľkosti obrázkov stačí ! A teraz niečo k popisu prvku.

Vlastnosti (Proporties):

Title - (string) obsahuje nápis záhlavia okna prehliadača. Ak nie je zadaná hodnota pred otvorením prehliadača, tak je východzím nápisom okna text "Otvoriť obrázok". Táto hodnota sa musí nastaviť pred vyvolaním dialógu metódou ShowDialog.

Ďalšie vlastnosti sú klasika: index, name, object, parent, tag

Metódy (Methods):

ShowDialog (Path as String) - metóda, ktorou sa zobrazuje dialógové okno pre výber súboru s obrázkom. Hodnota Path je reťazcom, ktorý by mal obsahovať východziu zložku na prehľadávanie. Ak nebude zadaná táto hodnota, alebo bude zadaná hodnota neplatná, bude nastavený východzím adresárom adresár aplikácie. Ak bude Path neexistujúci adresár, budú postupne prehľadávané nadradené adresáre v hodnote Path, kým nebude nájdený existujúci adresár alebo disk, v opačnom prípade bude východzím adresárom adresár aplikácie.

Udalosti (Events):

Selected (FileSelected as String) - udalosť, ktorá je generovaná pri uzavretí dialógového okna. K udalosti môže dôjsť výberom súboru - v tom prípade bude premenná FileSelected obsahovať úplnú cestu k súboru, ktorú je možné následne využiť, napríklad načítaním obrázku do nejakého prvku príkazom LoadPicture, alebo pri uzavretí okna bez výberu obrázku - v tom prípade bude premenná FileSelected obsahovať prázdny reťazec.

Príklad zápisu:

Private Sub Command1_Click()
    PicExplorer1.Title = "Otvoriť súbor s obrázkom"
    PicExplorer1.ShowDialog ("C:\Temp")
End Sub
- otvorí dialógové okno s nápisom "Otvoriť súbor s obrázkom", pričom bude východzím adresárom pre prehľadávanie adresár "C:\Temp". Stromová štruktúra bude zobrazená na disku "C:\" až po uzol "C:\Temp" a v náhľadoch budú zobrazené všetky vyhovujúce súbory v tomto adresári.

Private Sub PicExplorer1_Selected(FileSelected As String)
    If FileSelected = "" Then Exit Sub
    Image1.Picture = LoadPicture(FileSelected)
End Sub
- do prvku Image1 bude načítaný obrázok, ktorý zodpovedá súboru FileSelected. Ak však premenná FileSelected bude prázdny reťazec, pravdepodobne došlo ku uzavretiu okna bez výberu alebo ku chybe.

Na stiahnutie:

- obsahuje skompilovanú komponentu, Visual Basic runtime, zdrojové kódy, súvisiace súbory