PDA

Vollständige Version anzeigen : Befehlsschaltflächen


Bravestar
01.10.2002, 11:22
Hallo liebe Leute im Forum!
Kann man eigentlich auch den Befehlschaltflächen andere Farben zuweisen (anstatt dieses blöde grau)???

Scorefun
01.10.2002, 11:36
das thema hatten wir doch erst vor kurzem...

<a href="http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=76515" target="_blank">Umschaltflächen je nach Zustand farbig darstellen</a>

hier insbesondere der link von nouba

KHS
01.10.2002, 11:41
Oder hier:
<a href="http://www.access-home.de/dlfiles/dbs/97farbsf.zip" target="_blank">http://www.access-home.de/dlfiles/dbs/97farbsf.zip</a>
<a href="http://www.kraasch.de/downloads/beispiele/ClickLabel.zip" target="_blank">http://www.kraasch.de/downloads/beispiele/ClickLabel.zip</a>

Bravestar
01.10.2002, 12:36
Danke für die Links, aber es handelt sich dabei immer wieder nur um Bezeichnungsfelder ABER NICHT um Befehlsschaltflächen und deren Farbe. Wie kann man das denn dann so programmieren, das wenn ich im Startformular ein Bild eingebunden habe, die Click Buttons diesem Bild angepasst sind, so dass ich wirklich nur einen Rahmen und dessen Inhalt sehen kann?

KHS
01.10.2002, 13:25
Wenn ich das richtig verstehe:
Button in den Vordergrund und auf Transparent: Ja setzen.

Mit Effekt:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>
<span class="TOKEN">Private Sub</span> DeinButton_MouseDown(Button <span class="TOKEN">As</span> Integer, Shift <span class="TOKEN">As</span> Integer, X <span class="TOKEN">As</span> Single, Y <span class="TOKEN">As</span> <span class="TOKEN">Single</span>)
<span class="TOKEN">If</span> Button = 1 <span class="TOKEN">Then</span> <span class="REM">'Nur bei linker Maustaste</span>
DeinBildSteuerelement.SpecialEffect = 2 <span class="REM">'Dummybutton als geklickt darstellen (vertieft)</span>
Me.Repaint
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span><hr>
<span class="TOKEN">Private Sub</span> DeinButton_MouseUp(Button <span class="TOKEN">As</span> Integer, Shift <span class="TOKEN">As</span> Integer, X <span class="TOKEN">As</span> Single, Y <span class="TOKEN">As</span> <span class="TOKEN">Single</span>)
DeinBildSteuerelement.SpecialEffect = 1 <span class="REM">'Dummybutton als nicht geklickt darstellen (erhöht)</span>
Me.Repaint
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>