Link to home
Start Free TrialLog in
Avatar of sivajish
sivajish

asked on

How to place animated gif's on forms

Dear Sir,
   I am not able to keep animated gif pictures on my form.Whenever i place a image box on my form and make its picture property point to an animated gif file , it doesn't work.The animated gif does not animate on the VB form. Can u please suggest me a way to animate the gif image on my form.
          I would be very grateful..
                Thanking You.
                       Sivajish.
ASKER CERTIFIED SOLUTION
Avatar of Éric Moreau
Éric Moreau
Flag of Canada image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<img src='c:\gif.gif'>"
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of mquiroz
mquiroz

Hi Sivajish,

THIS IS VERY, VERY EASY.

Just a few days ago I did what you need now, just go to www.gamani.com and download their software (you have a free functional trial) and dissasemble the gif file on various still pictures (after all animated gifs are nothing more than sets of multiple still gifs).

Once you have your picture files, insert a matrix of picture control (you know picture(x).visible... blah, blah, blah...)

And then just to make it work put a timer control and do a loop to make visible each of the pictures while the others are kept hidden.

here's a piece of my code...

I use a gif of then pics, and my image control is named my_image.

i call this function from a timer with an interval of +/- 200 miliseconds...

Private Sub animation()
            If counter = 1 Then
              my_image(10).Visible = False
              my_image(1).Visible = True
              counter = counter + 1
            Else
              If counter <= 10 Then
                my_image(counter - 1).Visible = False
                my_image(counter ).Visible = True
                counter = counter + 1
              Else
                counter = 1
              End If
            End If
End Sub

Hope this code helps!

SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Plain and Simple

Add a text box (Text1), a Listbox (List1), label (Label1), three command buttons (Command1, Command2, Command3), and a Timer (Timer1) to a  form. Add an image control, and set its Index property to 0 to create a control array. Add the following code to the form, then save the project and place some animated GIFs in the same folder as the project - it looks in the local folder as coded (see bottom of this page for a few to test with).

*** code removed at the request of its author by Netminder, Site Admin ***
*** to view the code, click the link in the post above, as that site is this post's source ***
sivajish, are you aware that you need to close your questions when you get your answer? You do this by accepting a comment (by clicking the Accept button on the gray bar that splits comments).

Please maintain:

Questions Asked 3
Last 10 Grades Given  
Question Grading Record 0 Answers Graded / 0 Answers Received
sivajish:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
My recommandation: split points between : emoreau, TimCottee, DocM, JackOfPH
Moderator, my recommended disposition is:

    Split points between: emoreau and TimCottee and DocM and JackOfPH

DanRollins -- EE database cleanup volunteer