Rubrik: Controls · Sonstiges | VB-Versionen: VB6 | 15.09.10 |
![]() Dieser Tipp zeigt, wie man dem Microsoft CommonDialog Control für die Farbauswahl eine Anfangsfarbe übergibt. | ||
Autor: ![]() | Bewertung: ![]() ![]() ![]() ![]() ![]() | Views: 10.511 |
https://www.tools4vb.com | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | ![]() |
Durch Setzen eines bestimmten Flags lässt sich ganz leicht die Auswahlfarbe bei Verwendung des Farbauswahldialogs vorbelegen:
On Error Resume Next With Me.CommonDialog1 .CancelError = True ' Anfnagsfarbe .Color = vbRed ' Wichtig: Flag cdlCCRGBInit muss hierzu gesetzt werden! .Flags = cdlCCFullOpen Or cdlCCRGBInit .ShowColor If Err.Number = 0 Then ' Neue ausgewählte Farbe Label1.BackColor = .Color End If End With On Error Goto 0