🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1062

Modifica colore testo con timer

#1062
From: Giorgio
Date: Sun, 14 Nov 2004 22:43
30 lines
1654 bytes
Per cortesia un aiuto.
>
> Avrei la necessit� di far cambiare se possibile il colore del testo di un
> etichetta
> per esempio da rosso a giallo ogni secondo di Timer, ma non trovo la
> soluzione.
>
> Premetto che nella propriet� Form_Timer ho due etichette che mi rilevano 
> la
> data e le ore.
>
> Presumo che serva un ciclo For.
>
> Grazie 1000 Giorgio

ho risolto con questo codice:

If Me.EtichettaTemp.ForeColor = vbRed Then
   Me.EtichettaTemp.ForeColor = vbYellow
ElseIf Me.EtichettaTemp.ForeColor = vbYellow Then
   Me.EtichettaTemp.ForeColor = vbRed
End If

ma mi interessava sapere se era possibile con un ciclo for

Grazie 1000

Saluti a tutti
Giorgio
>
Technical Details
Message-ID: <jcRld.170074$b5.8540236@news3.tin.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!news-out.tin.it!news-in.tin.it!news3.tin.it.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,d329a9032b008a0f,start
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!news-out.tin.it!news-in.tin.it!news3.tin.it.POSTED!not-for-mail
From: "Giorgio" <internetnostop@aliceposta.it>
Newsgroups: free.it.visual-basic
Subject: Modifica colore testo con timer
Lines: 32
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-RFC2646: Format=Flowed; Original
Message-ID: <jcRld.170074$b5.8540236@news3.tin.it>
Date: Sun, 14 Nov 2004 22:43:27 GMT
NNTP-Posting-Host: 80.183.13.150
X-Complaints-To: "Please send abuse reports to abuse@tin.it and technical notifications to newsmaster@tin.it"
X-Trace: news3.tin.it 1100472207 80.183.13.150 (Sun, 14 Nov 2004 23:43:27 MET)
NNTP-Posting-Date: Sun, 14 Nov 2004 23:43:27 MET
Organization: TIN