Jens Vestergaard skrev:
> Ja, det kunne jeg godt, men lader sig praktisk ikke gøre i dette tilfælde,
> da der er temmelig mange, og da der er mange billeder, der kan være
> aktuelle.
>
> Lad os sige, der er 10 images.
> img1 skifter måske mellem A.bmp og Ax.bmp
> img2 skifter måske mellem C.bmp og Cx.bmp
> img3 skifter måske mellem B.bmp og Bx.bmp
> osv.osv.
>
> Jeg har lavet det i en timer-event, hvor koden ser nogenlunde sådan her
ud.
>
> Private Sub Timer1_Timer()
> Static v As Boolean
> Dim i As Image
> For Each i In myImages
> If v Then
> i.Picture = LoadPicture(PresentPic & "x.bmp")
> Else
> i.Picture = LoadPicture(PresentPic & ".bmp")
> End If
> Next
> v = Not v
> End Sub
>
> Uanset, om jeg bruger Refresh eller ej, giver det ind imellem en lille
smule
> flimmer i Image'rne.
> Det er det, jeg gerne vil undgå.
Jeg tror det er rimelig dumt at loade billederne fra en bestemt fil hver
eneste gang - det er muligvis derfor det flimrer.
Man har mulighed for at sætte en property Index til en værdi - f.eks. kan du
have to Images der begge hedder myImage, men med to forskellige
Index-værdier (f.eks. 0 og 1). De kan så kaldes ved at skrive myImage(0) og
myImage(1).
Det du gør er at du laver en usynlig (Visible = False) Image-control for
hvert billede du vil bruge (ud over dem, hvor du viser billederne i) - du
kalder dem alle sammen det samme, f.eks. myImage, men giver dem forskellige
Index-værdier fra 0 til ?? (det kommer an på hvor mange billeder der er).
Herefter kan du, når du vil vise et billede, skrive: i.Picture =
myImage(EtTal) ... hvor EtTal angiver Index-værdien på billedet. Så kan du
f.eks. lave et system med at billedet med "x" i altid har en index-værdi der
er én større end billedet uden. Så kan du, hvis PresentPic ellers var et tal
(det bliver det næsten nød til), skrive: myImage(PresentPic * 2 - v) ...
det vil virke da v ud over at være en Boolean også er et tal, som er -1 for
True og 0 for False. Når man så skriver 'minus v', vil der blive lagt 1 til
PresentPic * 2, hvilket vil vise billedet med 'x' i filnavnet.
Det sidste blev måske noget dårlig forklaret, men jeg håber du forstår
alligevel ... ellers må du jo bare spørge.
Ovenstående skulle virke, men om det fjerner flimmeret, tja ... jeg håber
det gør!
Mvh. Bjarke