A2K - possible to have fading colour effect on labels or textboxes?

[Deano]

Don't know if any of you chaps use www.basecamphq.com (a smart project
management tool) but when you post a message up the entire post is
highlighted in yellow, then fades until its disappears and you are left with
the normal black text on a white background.

It really is rather smart and I was wondering if something like that was
possible in Access. Probably not but it would be nice.

I've taken the liberty of posting up a very small video file at

http://www.gigashare.com/files/embed...h%20effect.avi

It's only 316k. And the quality isn't very good but you can just about see
what happens after the post is made the colour change comes into effect.

thanks
Martin

[rude person]

On Sun, 17 Jul 2005 18:21:22 +0100, "Deano" <de***@mailinat or.com> wrote:

Don't know if any of you chaps use www.basecamphq.com (a smart project
management tool) but when you post a message up the entire post is
highlighted in yellow, then fades until its disappears and you are left with
the normal black text on a white background.

It really is rather smart and I was wondering if something like that was
possible in Access. Probably not but it would be nice.

I've taken the liberty of posting up a very small video file at

http://www.gigashare.com/files/embed...h%20effect.avi

It's only 316k. And the quality isn't very good but you can just about see
what happens after the post is made the colour change comes into effect.

thanks
Martin

you could use a timer with a form containing code similar to that below

Option Compare Database
Option Explicit

Dim myred&
Dim mygreen&
Dim myblue&

Private Function fadecolour() As Long
myred = addone(myred)
mygreen = addone(mygreen)
myblue = addone(myblue)
fadecolour = RGB(myred, mygreen, myblue)
End Function

Private Sub setcolour(ByVal r&, ByVal g&, ByVal b&)
myred = r
mygreen = g
myblue = b
End Sub

Private Function addone(ByVal x&)
If x >= 255 Then
addone = 255
Else
addone = x + 1
End If
End Function

Private Sub Form_Timer()
Dim x&, y&
x = Text0.BackColor
y = fadecolour()
If x = y Then
Form.TimerInter val = 0
Else
Text0.BackColor = y
End If
End Sub

Private Sub Text0_AfterUpda te()
Text0.BackColor = RGB(255, 255, 0)
setcolour 255, 255, 0
Form.TimerInter val = 10
End Sub