title image


Smiley Global nein, aber per VBA-Prozedur
So etwa:Im Deklarations-Teil des Moduls: Private const btSW as byte =0 Private const lngWeiss as long = 16777215public function ChangeColor(AnAus as string) if AnAus ="AN" then screen.activecontrol.backcolor=btSW screen.activecontrol.forecolor=lngWeiss else screen.activecontrol.backcolor=lngweiss screen.activecontrol.forecolor=btSW endifDann schreibst Du in jedes Textfeld, welches die Farbe wechseln soll bei Fokuserhalt, in das Ereignis "BeiFokuserhalt":="Changecolor("AN")und "BeiFokusverlust"):="ChangeColor("AUS")Obige Funktion wechselt mit den Farben Schwarz und weiss, die Farbkombination kannst Du ganz leicht verändern.Franscesca

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: