Common Dialog Control

Dialog Barvy
Tento dialog ze využít tehdy, pokud chcete dát uživateli Vaší aplikace možnost vybrat barvu ze systémových barev. Nejprve k některým nastavením:

Parametr Změny...
DialogTitle Titulek dialogového okna
Color Zvolená barva
Flags Uživatelská nastavení, jako například zakázání tlačítko pro tvorbu uživatelských barev
CancelError Generování chyby při stisku tlačítka Storno

Následující kód zobrazí dialog pro výběr barvy a pokud nějakou uživatel vybere, tak jí nastaví jako barvu pozadí formuláře:

CommonDialog1.DialogTitle = "Zvolte barvu ..."

CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlCCFullOpen
On Error Resume Next
CommonDialog1.ShowColor

If Err Then
   Msgbox "Výběr barvy stornován ..."
   Exit Sub
End If

Form1.Backcolor = CommonDialog1.Color

Zpět

Autor: The Bozena