Spille av gif animasjon

[Jonas]

Hallo

 

Noen som vet hvordan man kan spille av en gif animasjon i en vanlig form? Ingen av de jeg har funnet har virket..

[GeirGrusom]

Jeg tror ikke jeg har gjort det før, men jeg kan tenke meg at du må bruke Animation control som er i microsoft Common Controls-2 6.0

[Jonas]

Prøvde det, men fikk det ikke til.. Ble til at jeg lagra alle bildene for seg selv og loada de når jeg trengte. litt tungvindt da

[aadnk]

Dette er noe som jeg også har irritert meg over, men det kan løses. Last ned dette og legg det inn i ett prosjekt. Legg så dette inn i Formen:

 

Dim GIF As New AnimatedGIF

Private Sub Form_Load()

Dim Tell&

GIF.OpenFile App.Path & "\Ball.gif"
Show

Do

For Tell = 0 To GIF.TotalFrame
GIF.DrawFrame Tell, Me.hdc, 5, 5
GIF.Wait GIF.Interval(Tell)
Next

DoEvents
Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)

GIF.CloseFile
End

End Sub

 

GIF'ene blir desverre ikke transparente, men det skal jeg fikse i den senere versjonen. Du kan kanskje også oppleve å få hele C roota full av små filer. Disse skal egentlig bli slettet, men i noen OS unlater å gjøre dette. Dette skal jeg også fikse litt senere. Uansett, animasjonen virker!

[Jonas]

Men da må man jo ha med et bilde med .exe fila og det er ikke noe kul. Alle bildene skal liksom være med i programmet sånn som dette. Det blir kansje litt rot, men da kan ingen bare at bilder sånn ute videre (prnt scrn funker da..)

 

btw, vet du hvorfor alt stopper et millisekkund i det spillet jeg linker til når man trykker på en tast? jeg har brukt left og top kommando på bildene når man trykker ned en button, trykker man på en piltast bli den "nedtrykkinga" simulert.

[Rep]

Men da må man jo ha med et bilde med .exe fila og det er ikke noe kul. Alle bildene skal liksom være med i programmet sånn som dette. Det blir kansje litt rot, men da kan ingen bare at bilder sånn ute videre (prnt scrn funker da..)

Du kan legge bildefilen inn i exe filen med vb resource editor, og lagre den som en temp fil når programmet startes.

Er en bra veiledning her.

 

Burde se på GetTempPath og GetTempFileName funksjonene for plassering av filen.