1. Kan man på något sätt ha en variabel när man hämtar tex. en bild som man har någonstans ?
Ex. load.... ("d:\mapp\i.jpg") i är variabeln.

2. Fördröjning ? tex. ovanstående problem med med tex. bilder - nästa variabel i , innan filen laddas ska det vara tex. 1 sek fördröjning

//E

Hej vill du ha ett bildspel ?

Image1.Picture = "d:\mapp\i.jpg"
eller
Picture1.Picture = LoadPicture("d:\mapp\i.jpg")

Laddningen kan du styra med en Timer som byter bild varje sek
Lite kort tid tycker jag.
/Sven

Ja det är ett bildspel jag vill göra men får inte till variabeln i koden om jag testar bara med en bild (100.jpg) så fungerar det.

Min kod:

Private Sub Form_Load()

For i = 100 To 200
Picture = LoadPicture("d:\vb bilder\testar\i.jpg") ' här fastnar det med en variabeln i

Next i

End Sub

Mina kunskaper är mycket bristfälliga så Timern får jag inte till heller, ska en sub eller liknande anropas från koden ovan (skriv gärna exempel kod) (har sökt på gamla frågor och svar men fastnat åndå)

//E

Hej lite osäker får filnamn börja med siffra ?
Koden får inte ligga i Form_Load, börja med att lägga den i en knapp för test.
Funkar det, så testa att lägga koden i Form_Activate

I Formens General
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim tmpF As String,i As Long
For i = 100 To 200
tmpF = CStr(i)
DoEvents
Picture = LoadPicture("d:\vb bilder\testar\" & tmpF & ".jpg")
Sleep 1000
Next 'i
End Sub

Får du detta att funka kan du byta Sleep mot en Timer
/Sven

Nu fungerar det , tack SvenPon.


//E

Skulle det inte var bättre at ha en timmer här? Annars kommer man ju inte kuna sänga eller agera med programmet innan animationen är klar.

Till Andreas som svara bara för svarandets egen skull. "kuna sänga"var dagens bidrag.

>Får du detta att funka kan du byta Sleep mot en Timer
Skrev jag
Har också med ett DoEvents för att kunna inaktivera
/Sven