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