' Návrat prázdného pozadí
Me.BackgroundImage = Nothing
mnuItemPozadíFormuláře.Text = "Pozadí &formuláře"
End If
End Sub
Základní konstrukce If procedury je založena na hodnotě vlastnosti Text prvku nabídky. Je-li to původní
text, znamená to, že je pozadí prázdné a uživateli se zobrazí dialogové okno Otevřít. Je-li to jiný text, znamená
to, že na pozadí obrázek už je, takže se zlikviduje přiřazením Nothing a vrátí se původní text nabídky.
Před zobrazením společných dialogových oken máte možnost předem nastavit některé vlastnosti a přizpůsobit
tak vzhled daného společného dialogového okna svým konkrétním potřebám. Některé možnosti ukazuje
předchozí výpis:
Vlastnost InitialDirectory umožňuje nastavit výchozí složku, nejlépe nějakou, kde jsou obrázky.
Zapnutím vlastností CheckFileExists, resp. CheckPathExists se můžete vyhnout testování situací,
že uživatel místo toho, aby soubor pouze vybral, napíše do pole Název souboru nějaký nesmysl.
Viz obrázek dále v textu.
Vlastnost Filter umožňuje omezit obsah seznamu složek a souborů v dialogovém okně Otevřít jen
na ty, které explicitně uvedete. V našem případě jsme zařadili „gify“ a bitové mapy. První část (do
svislice) vždy udává text, který se zobrazí v rozvíracím seznamu Soubory Typu.
Vlastnost FilterIndex umožňuje volit výchozí filtr z těch, které byly zařazeny do vlastnosti Filter.
Výchozí index je 1, v naší ukázce jsme ji ale nastavili na 2, takže se po zobrazení dialogového okna
objeví soubory s příponou .BMP.
Nastavením vlastnosti MultiSelect na False jsme potlačili možnost výběru více souborů současně,
protože to v úloze nepotřebujeme (naopak by to vadilo, protože by to mohlo uživatele zbytečně
rozptylovat).