Blinkende billeder....

Prøv at skrive den kode, du bruger, her.

Jeg bruger en ganske almindelig Visible kommando...

billede1.visible = true
billede2.visible = false

og så er de to billeder skiftet, men det giver et stort blink... Det er nok fordi den først sletter det første og dernæst tegner det nye...

Det ville være meget lettere hvis den bare tegnede det nye oven i det gamle billede...

Men er der en der har en løsning???

/Specialty...

Prøv bare at lade det første billede være synligt hele tiden og nøjes med at skifte .visible på det andet billede - og lad selvfølgelig det andet billede ligge forrest. Så vil det første billede være dækket af det andet, når det andet bliver synligt.

Det har jeg prøvet men det blinker stadigvæk...

For at lave sådan et trick skal du bruge API kald der virker direkte i Windows\' indre kerne. Så går det ligeså stærkt som når Windoze \"tegner\" noget.

Problemet er bare at man skal have en picture box (eller en anden \'container\' med en .hDC property) til hvert billede og at disse _skal_ være synlige for at kunne bruge API\'erne.

Den API du skal have fat i hedder BitBlt.
Du kan finde eksempel og DECLARE forklaring+DECLARE linie på www.vbapi.com.

Jeg har selv prøvet at finde en løsning til hvordan man kan bruge det uden at de containere der indeholder de billeder man vil vise skal være synlige, men uden held. Det her skulle dog kunne få dig på rette vej...

Det her virker, jeg bruger det bl.a til et roterende blink ved seriel fejl i mine programmer:

opret en image list, med de billeder du har brug for det kan være 1- ???
kør en timer kontrol i den hastighed du ønsker at billederne skal skifte.

f.eks
Timer kontrol:

Billed = Billed + 1
If Billed > 14 Then Billed = 1
imgAlarm.Picture = imlAlarm.ListImages(Billed).Picture

image listen hedder her imlAlarm
picture boxen hedder = imgAlarm
Billed er en tæller for hvilket billed der vises her er det 14 forskellige.

-SCB

Kan man ikke bare sætte en timer op der ser sådan ud:
Private Sub Timer1_Timer()
If billede1.visible = true then
billede1.visible = False
billede2.visible = True
else
billede2.visible = False
billede1.visible = True
end if
End Sub

Prøv lad vær med at brug Image boxe, men PictureBoxe, der er stor forskel.... pictureboxe er bedre, prøv og se om de hjælper...

En lille oversættelse af mit script:
Private Sub Timer1_Timer()
If billede1.visible = true then
PictureBox1.visible = False
PictureBox2.visible = True
else
PictureBox2.visible = False
PictureBox1.visible = True
end if
End Sub

Jeg lukker spørgsmålet...

Hvorfor ?