Rubrik: Controls · Sonstiges | VB-Versionen: VB5, VB6 | 13.02.02 |
Farbige Befehlsschaltflächen II Kein Scherz! Das CheckBox-Control als (farbige) Befehlsschaltfläche verwenden. | ||
Autor: Thomas Bannert | Bewertung: | Views: 16.796 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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