Farver / Animationer

Hvad med en funktion a la

Public Function SkiftFarve(Kontrol As Control, Farve As Long)
  Kontrol.BorderColor = Farve
End Function

Et kald til ovenstående funktion kunne være på knappens VedKlik procedure:

=SkiftFarve(Screen.Activecontrol;65280)

Beklager, jeg har sgu så meget kørende på maskinen, at alt går i 1/10 hastighed.....ovenstående virker ikke med knapper.....

Normally you can NOT change the colour (background) you can change the font colour and thats about it. Animations are not possible either!

I have a little dB with some examples which may help, do you have an email?

Please
johnb@vejenhs.dk

Farveskiftet i en kommandoknap kan du f.eks lave således:

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)

If Felt1 < "4" Then
Felt1.ForeColor = lngRed
Felt1.BackColor = lngWhite
Else
Felt1.ForeColor = lngYellow
Felt1.BackColor = lngBlack
End If

Farvens intensitet kan justeres ved at ændre på tallene i parantesen.

j30 did you get my mail?