Hej

Jag undrar om det går att få en label i VB6 att blinka
Kanske också att den vandrar med olika färger.

MvH Lennart

Hej,

Det finns ingen färdig funktion för att blinka med labeels i VB6, men därmed inte sagt att det inte går...

Vad du får göra är helt enkelt att använda en timer och varje gång denna triggas så får du själv byta färg på din label.


Lycka till!

// Johan

Tack för tippset...
Då får jag göra två timer en för blink och en för färg rätt eller fel

Hej igen,

Två timers är inte att rekommendera, då fins risken att du triggar bägge fuktionerna och att dessa kolliderar med varandra. Jag skulle nog rekommendera att hålla sig till en timer och en variabel som håller reda på vilken som är den aktiva funktionen (blikn eller färgändring).

// Johan

PS. Om problemet är löst så får du gärna stänga tråden.

Okej skall prova,,,
men jag tänkte att samtidigt som den blinkar med röd färg och blinka nästa gång med gul färg osv.

Hej igen,

Blink med flera olika färger ser inte jag som flera olika funktioner utan som en sekvens enligt följande exempel:

- Röd färg
- Släckt
- Gul färg
- Släckt
- etc

Om du har en sådan sekvens så kommer det alltid att bli korrekt.

Om du istället kör med två timers så kan dessa komma ur synk med varandra så att ett steg hoppas över eller blir dubbelt så långt på oregelbundnen basis. Som jag förstår din fråga så är inte det vad du vill åstadkomma?

// Johan

Sorry. Såg inte/tänkte inte på att det var dubbelpostat

Jovisst det skall lösas med en Timer och sedan Randomize Random
på 10 olika nyanser. Intervall ? 2 sek ,lätt att ändra .
Skall skruva ihop ett förslag under dagen.

SvenPon! Jag är intresserad av det exempel Du utlovade skulle komma under dagen, dvs den 4 mars.
Vore bra om Du kudne fixa det

Du behöver en Timer (Timer1) och en Label (Label1)

<code>Dim Nr As Single</Code>
<code>
Timer1.Interval = 500
Timer1.Enabled = True
</Code>

<code>
Private Sub Timer1_Timer()
Nr = Nr + 1
Select Case Nr Mod 2
Case 0: Label1.Visible = False ' jämt Nr
Case 1: Label1.Visible = True ' udda Nr
End Select

Select Case Nr Mod 10
Case 1: Label1.BackColor = RGB(255, 0, 0)
Case 3: Label1.BackColor = RGB(0, 255, 0)
Case 5: Label1.BackColor = RGB(255, 255, 0)
Case 7: Label1.BackColor = RGB(0, 0, 255)
Case 9: Label1.BackColor = RGB(0, 255, 255)
End Select
End Sub
</Code>

Självklart finns det både fiffigare och snyggare lösningar, men denna funkar, i a f.

ChristerGbg

>SvenPon! Jag är intresserad av det exempel Du utlovade skulle
>komma under dagen, dvs den 4 mars.
>Vore bra om Du kudne fixa det.

Flåååt Ahltzimmer Light Jag glömde. Ett förslag du kan fila på
Simpelt problem.
<code>
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Randomize
End Sub

Private Sub Timer1_Timer()
Dim bc As Long
bc = Int(Rnd * 16581374)
Label1.BackColor = bc
End Sub
</code>

Hittade ytterligare ett exempel i min nybörjarlåda.
<code>
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 500
Randomize
End Sub
Private Sub Timer1_Timer()
Dim bc As Long
bc = Int(Rnd * 15)
Label1.BackColor = QBColor(bc)
End Sub
</code>