Farbauswahl mit dem CommonDialog Steuerelement VB-Version:  VB5, VB6
	Views:  769

Sie möchten etwas Farbe in den grauen Alltag bringen und dem Benutzer Ihres Programms ermöglichen, sich z. B. die Hintergrundfarbe selbst auszusuchen? Warum nicht - mit dem CommonDialog Steuerelement ist dies ganz einfach zu realisieren.

Nehmen Sie ein neues Projekt und setzen Sie auf die Form einen CommandButton (cmdColor) sowie das CommonDialog Control, das Sie über "Komponenten hinzufügen" auswählen.

Private Sub cmdColor_Click()
  ' wird im "CommonDialog" auf "Abbrechen" geklickt,
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    ' Dialogfeld Farbe anzeigen
    .ShowColor
    If Err = 0 Then
      Form1.BackColor = .Color
    End If
  End With
End Sub

Mit der SaveSetting-Anweisung im Form_Unload-Ereignis können die Einstellungen beim Beenden des Programms gespeichert und mit GetSetting im Form_Load-Ereignis beim Neustart des Programms wieder ausgelesen werden.