Command button kleur geven

[patricw]

Beste allemaal,

Ik heb een formulier met diverse commando knoppen en die wil ik een kleur geven. Echter, de knop die dit kan doen is gegrijsd in mijn menu. Weet iemand hoe ik dit kan oplossen en/of op een andere manier de kleur kan toekennen aan een commando knop?

Alvast dank!

groet, patric

 

[OctaFish]

Als je niet voor wat werk weg loopt: Haal deze débé eens op...

 

[patricw]

Ga ik proberen!

Dank je wel.

 

[OctaFish]

Een alternatief, dat ik zelf gebruik en wat vrij simpel is te bouwen: maak gekleurde labels, en geef die een kleurtje. Wil je het helemaal mooi doen, dan maak je er twee, waarvaan één met Speciaal effect >Verhoogd>, en één met Speciaal effect <Verlaagd>. Daar zet je dan deze code op:

Private Sub lblHoog_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.lblHoog.Visible = False
    Me.lblLaag.Visible = True
    MsgBox "Dit is een actie Muis Omlaag"
    'Hier de overige actie die je wilt laten uitvoeren
End Sub

Private Sub lblHoog_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.lblHoog.Visible = True
    Me.lblLaag.Visible = False
End Sub

Hiermee suggereer je het effect van een knop die wordt ingedrukt.