vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück
Rubrik: Controls · Sonstiges   |   VB-Versionen: VB5, VB613.02.02
Farbige Befehlsschaltflächen II

Kein Scherz! Das CheckBox-Control als (farbige) Befehlsschaltfläche verwenden.

Autor:   Thomas BannertBewertung:     [ Jetzt bewerten ]Views:  14.677 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 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
 

Dieser Tipp wurde bereits 14.677 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel