flashing label

Article View: be.comp.programming

Article #13262

Back to be.comp.programming Previous Next

#13262

From: Tazmanian Devil
Date: Wed, 08 Aug 2001 03:43

25 lines
1654 bytes

Hallo allemaal

ik ben nu bezig met een flashing label, en dat lukt redelijk.

Private Sub Form_Timer()
    With Me.lblSomeLabel
        .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
    End With
End Sub

Private Sub Form_Current()
    If Me![SomeSubForm].Form.RecordsetClone.RecordCount > 3 Then
        Me.TimerInterval = 300
    Else
        Me.TimerInterval = 0
        Me.lblSomeLabel.ForeColor = vbBlack
    End If
End Sub

nu wil ik alleen er nog bij hebben dat zodra lblSomeLabel begint te
knipperen van kleur, ik het ook van groot naar klein wil zien knipperen.
Is er misschien iemand die me kan helpen.

bij voorbaat dank
Ed

Technical Details

Message-ID: <9kqc5m$2fv1h$1@reader01.wxs.nl>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!193.190.198.17!newsfeeds.belnet.be!news.belnet.be!news2.kpn.net!news.kpn.net!feeder02.wxs.nl!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,228ce6beabac44c8,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-08-07 20:42:12 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!193.190.198.17!newsfeeds.belnet.be!news.belnet.be!news2.kpn.net!news.kpn.net!feeder02.wxs.nl!not-for-mail
From: "Tazmanian Devil" <webmaster@tazman.tvheaven.com>
Newsgroups: be.comp.programming
Subject: flashing label
Date: Wed, 8 Aug 2001 05:43:42 +0200
Organization: Planet Internet
Lines: 27
Message-ID: <9kqc5m$2fv1h$1@reader01.wxs.nl>
NNTP-Posting-Host: ipd50aaf2f.speed.planet.nl
X-Trace: reader01.wxs.nl 997241846 2620465 213.10.175.47 (8 Aug 2001 03:37:26 GMT)
X-Complaints-To: abuse@wxs.nl
NNTP-Posting-Date: 8 Aug 2001 03:37:26 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400