Rubrik: CommonDialog | 01.05.02 |
Farbauswahl mit dem CommonDialog Steuerelement VB-Version: VB5, VB6 | ||
Views: 11.786 |
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.