Buttons Schöner Machen!

[TheLuCKer]

Hallo Leute,

kann mir ihrgentwer sagen, wie ich Buttons schöner gestalten kann, z.B. Regenbogenfarben oder wie ich es schaffe, dass wenn man auf den Button fähr, dass dann die schrift heller wird, einfach wie auf vielen Websiten. Danke im Vorraus!

Jonny

 

[JoKne]

Indem du jpge´s als Hintergrund benutzt und ein Mouseover Ereignis einführst welches z.B. die Fonteigenschaften veränder.

 

[flashscorpion]

hmmmmmmmmm..........

also das hört sich ja ganz interessant an.
@Jokne: gib ma bitte ein beispiel dazu an mit sourcecode.

thx
mfg scorpion

 

[Alex F.]

es gibt auch die Möglichkeit einfach andere Buttons zu nehmen zum Beispiel
diese hier
Gruß

bb

 

[JoKne]

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "MouseDown"

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "mousemove"
End Sub

Nur als Beispiel.
Genauso funktioniert das auch mit den restlichen befehlen wie fon,downpicture,backcolor,fontsize usw.

Ein Defaultbild für den Button könnt ihr über das Eigenschaftenmenü wählen unter dem Eintrag "Picture".

 

[TheLuCKer]

DANKE

Danke Leute,

is echt cool, vor allem des, mit den xp Buttons, is echt cool. DANKE. Des andere hab ich nicht gecheckt, wenn du zeit hast, kannst du mir ja den sourcecode mal genauer erklären. DANKE, super

Jonny

 

[flashscorpion]

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "MouseDown"

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "mousemove"
End Sub

Erst einmal thx an die Lösungsvorschläge auch von meiner seite aus.

@THELUCKER: ich erklär dir das ma. also gehen wir zum ersten beispiel:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "MouseDown"

Erste Zeile: Pivate Sub Command1_MouseDown(Button as Integer, Shift As Integer, X as Single, Y as Single)
Also hier wird erstmal die Funktion so deklariert das das unten geschriebene beim Mouseklick geschieht.
Command1.Caption = "MouseDown".Sagen wir du hattest vorher in diesem Button "bla" stehen. Wenn du jetzt mit der Maus raufklickst (nicht loslässt, das wäre dann "Command1_click"), dann ändert sich der Text in dem Button von "bla" auf "MouseDown"

mfg
scorpion