Beacon, animated gif tutorial

[Jethro]

Ok the first one has the tutorial and the actual control.

[Jethro]

And the second one has the worlds simplest vb example of it working, drop into any directory and run.

[Beacon]

Noice very Noice!

Send me a copy of those pics too!

Title: How To Store Your Pornography!

[Jethro]

I didn't write the actual control. Comes from some dude in California, who is no longer at the email address he gives. See the about thing in the property box.

[Beacon]

ssshhh i thought i heard you say u didnt write the control!

nah but the tutorials cool. We need a tutorial page!
Have ya given this one to john?
I even get a mention

[Jethro]

Naw, thought l would leave it to Karl to knock something up. Apparently he is quite good at knocking things up

[Beacon]

The lone soldier!
heheh Knock up the lone soldier.
Who'd he knock up this time?

[Jethro]

Well James is noticably by his absence

[Nucleus]

Frans C pointed out a problem with this control,

See here:

http://161.58.186.97/showthread.php?s=&threadid=80497

Cander's example is good once you get it working.

[Jethro]

Is the problem with the registration? go to windows\system and execute regsvr32 as explained in the tutorial. WIll check out Candor's answer though.

[Nucleus]

No I think there is a problem displaying modern animated gifs. You would have to email Frans for the details, but I have no reason to doubt it, he usually has good info.

[Jethro]

Haven't run accross a "modern" gif it can't display. But maybe the ones we use are in older format or something. We email Frans for problem.

[Jethro]

Still haven't run across the problem

[Nucleus]

Hey Jello, cause of all the pesky problems I have with poxy gif controls, this is how I do it now and it works well.

Just extract all the frames from the gif using something like animation shop or you can download IrfanView from cnet for free.

Then just load the images into a imagelist and then add this code, courtesy of Aaron and it even works with transparent background gifs.

no external dependency + simple and easy to implement + you can control the speed of the animation at will via code + you can start and stop it at will.

Option Explicit
 
Private Sub Form_Load()
    ' Set the MaskColor to Black, because you're using Transparent GIF's
    ImageList1.MaskColor = vbBlack
End Sub
 
Private Sub Timer1_Timer()
    Static lFrame As Long
    
    Picture1.AutoRedraw = True
    Picture1.Cls ' Or Redraw BackGround
    ImageList1.ListImages(lFrame + 1).Draw Picture1.hDC, 0, 0, imlTransparent
    Picture1.AutoRedraw = False
    
    lFrame = (lFrame + 1) Mod ImageList1.ListImages.Count
End Sub

[Jethro]

Cool code....


The purpose of the tutorial is not to provide the world's best gif control, but too point out using third party controls, and how to get them on board a vb project....else would settle on the Blt thingy which am still mucking around with...


Cheers...