|
Leider ist es nicht möglich, bei einem CommandButton die
Textfarbe zu ändern. Die Hintergrundfarbe scheinen Sie ebenso wenig
ändern zu können. Letztere können Sie allerdings setzen, wenn Sie
die Eigenschaft Style auf 1 (= grafisch) einstellen (Command2 in der
Abbildung).
Wenn Sie eine Schaltfläche benötigen, bei der Sie die Textfarbe
wählen können, nehmen Sie eine CheckBox. Stellen Sie auch bei
dieser die Eigenschaft Style auf 1 (dann können Sie ebenfalls die
Hintergrundfarbe wählen). Damit die Schaltfläche der nun wie ein
Button aussehenden CheckBox wieder in die Standardlage
zurückspringt, setzen Sie im Click-Ereignis der CheckBox die
Eigenschaft Value wieder auf 0 (vbUnchecked).
Allerdings wird dadurch erneut das Click-Ereignis ausgelöst. Sie
verhindern dies mit der in  "Aller
guten Dinge ist eins" gezeigten Technik.
Private Sub Check1_Click()
Static InProc As Boolean
If InProc Then
Exit Sub
Else
InProc = True
End If
Check1.Value = 0
MsgBox "CheckBox als Button", , "ForeColor/BackColor"
InProc = False
End Sub
 |
Das Click-Ereignis einer zur Schaltfläche
umfunktionierten CheckBox bearbeiten Sie auf diese Weise
|
|