Farbige Befehlsschaltflächen II Kein Scherz! Das CheckBox-Control als (farbige) Befehlsschaltfläche verwenden.
Autor:   Thomas Bannert	Bewertung:     [ Jetzt bewerten ]	Views:  16.777
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 33 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wir werden oft gefragt, wie sich denn die Texte oder auch der Hintergrund der Standard-Befehlsschaltflächen in einer anderen Farbe darstellen lassen. Eine BackColor-Eigenschaft ist ja vorhanden. Und wenn man Style = 1 - Grafisch festlegt, dann lässt sich auch eine beliebiger Hintergrundfarbe einstellen.

Warum aber nicht die Vordergrundfarbe?
Weil es keine ForeColor-Eigenschaft gibt!

Was VB nicht direkt kann, lässt sich ja meist mit Hilfe der entsprchenden Windows-API Funktionen realisieren. In diesem Fall aber brauchen wir das gar nicht - der Aufwand über das Win-API (Subclassing) steht hierzu in keinerlei Relation.

Warum? Weil es gibt ja noch das CheckBox-Control. Und genau dieses CheckBox-Control kann man auch als Schaltflächen-Control "missbrauchen". Das ist kein Scherz! Hierzu einfach die Style-Eigenschaft auf 1 - Grafisch setzen. Und dann? Dann wird aus einer CheckBox eine Schaltfläche - na sowas?

Und da das CheckBox-Control sowohl über die Eigenschaft BackColor als auch über die Eigenschaft ForeColor verfügt, ist unser Problem mit den farbigen Schaltflächen gelöst! Oder nicht?

Fast! Beim Klicken auf die "neue Schaltfläche" bleibt dieser leider niedergedrückt (es handelt sich ja eigentlich um eine CheckBox). Macht aber nichts. Ein paar Zeilen Code im Click-Event - und schon hat die CheckBox die Funktionsweise einer herkömmlichen Schaltfläche.

Private Sub Check1_Click()
  Static bProcess As Boolean
 
  ' Verhindern, dass die Funktion 2mal ausgeführt wird
  If bProcess Then Exit Sub
  bProcess = True
 
  ' Mach irgendwas
  Debug.Print "Aktion"
 
  ' Value auf "Unchecked" setzten, dadurch wird
  ' die Funktion allerdings erneut aufgerufen
  Check1.Value = vbUnchecked
  bProcess = False
End Sub

Voilà!
Und fertig ist ein "CommandButton" mit Fore & Back Color