PDA

Vollständige Version anzeigen : Buttonfarbe


Benjamin
10.07.2001, 20:11
Hallo Leute,

kennt jemand einen Trick, um die Grundfarbe von Buttons in Formularen zu ändern?

Vielen Dank
Benjamin

A.S.
10.07.2001, 20:13
Hallo Benjamin,

die Farbe der Buttons selbst, kannst du nicht ändern.

Du kannst jedoch statt der Buttons ein Textfeld verwenden und im Ereignis "Beim Klicken" des Textfeldes die Eigenschaft "Spezialeffekt" des Steuerelementes auf "Vertieft setzen", die Aktionen ausführen welche durchzuführen sind und anschließend die Eigenschaft wieder auf "Erhöht" seten.

------------------
HTH

Arno

Benjamin
10.07.2001, 20:42
hallo Arno,

ja, muss ich dann wohl so machen...

Danke für die hilfe
Benjamin

Phillip-Berlin
10.07.2001, 23:26
ein kleines schmankerl möchte ich da doch noch aus der kiste holen *gg*
der button sieht ja nur aus wie ein button wenn man ihn auch eindrückt ...

Private Sub Rechteck1_Click() 'www.access-home.de

Dim tim As Single
Dim dauer As Single

' sekunden die die taste gedrückt bleibt
dauer = 0.15

' drücken simmulieren
Rechteck1.SpecialEffect = 2
Me.Repaint
tim = Timer + dauer
Do Until tim <= Timer
Loop
Rechteck1.SpecialEffect = 1

' meldung ausgeben
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmSerienBrief"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Rechteck1_Click:
Exit Sub

Err_Rechteck1_Click:
MsgBox Err.Description
Resume Exit_Rechteck1_Click

End Sub