wisselknoppen van kleur veranderen

[Maartenvdb]

Ik zou graag de wisselknoppen in een formulier van kleur laten veranderen als ze ingedrukt worden.
Kan dit?

Maarten

 

[femda-punt-com]

Alleen de tekst op de knop:

Private Sub Wisselknop0_AfterUpdate()

If Me.Wisselknop0 Then
Me.Wisselknop0.ForeColor = 255 ' rood
Else
Me.Wisselknop0.ForeColor = 65535 ' geel
End If

End Sub

Zoek via het scherm Eigenschappen bij de optie Voorgrondkleur leuke kleurtjes uit. Je ziet dan de waarde van de kleur.

Als je meer kleur wilt, plaats dan een plaatje op de knop en vervang na het indrukken het plaatje.

 

[Maartenvdb]

Er is dus geen mogelijkheid om de wisselknoppen zelf van kleur te laten veranderen, enkel de tekst?