VB 6.0: Tutorial, How to make a GIF in your application

**TcM** · 08-21-2006, 09:31 AM

Introduction/Problem
Well this is a common problem, VB does NOT support GIF's in the Applet, many of you ( I suppose ) make an array of pictureboxes and make still images loaded in them and then in a timer you make the still images to change and well its confusing even to say it, and much more confusing to make! it will take like 8 to 10 lines to just make an animation of 2 frames only! so imagine to make a long GIF! I found this 'secret' and all its going to take is 10 lines! and instead you can have a GIF with unlimited frames and make it with just 10 lines!!

Solution

Start a new Project and select "Standard EXE" as follows:-

Save your project somewhere
how?
see below:-

Add a Picturebox ( Picture1 ) and a web browser control.
HOW?
See this image below

a dialog box will be displayed scroll down till you find "Microsoft Internet Controls" tick it and press OK here is an image to explain better:-

and instead of WebBrowser1 rename it to Animation
and make a GIF image in the same directory where you saved the project and rename it to image.gif

Ok so now make the following code:-

Code:

Private Sub Form_Load()
Dim loc As String
Dim Source As String
loc = App.Path & "\image.gif"
Picture1.Visible = False
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(loc)
Animation.Width = Picture1.Width
Animation.Height = Picture1.Height
Source = "about:" & "<html>" & "<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll=no>" & "<img src=""" & loc & """></img></body></html>"
Animation.Navigate Source
End Sub

Code Explanation

Code:

Dim loc As String
Dim Source As String

Here we are declaring 2 variables loc will be the location of the gif and Source will be some HTML code, dont worry if you dont know HTML! you dont need to because I did it for you

Code:

loc = App.Path & "\image.gif"

Here we are asigning the varible loc to the image path, App.path is the location of the project/app and "\image.gif" is the name of the image

Code:

Picture1.Visible = False
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(loc)

Well here the code talks on its own
Here we are hiding the picturebox and making it to AutoSize (will take the size of the picture you load (image.gif)) and in the last step we are loading the picture

Code:

Animation.Width = Picture1.Width
Animation.Height = Picture1.Height

Here we are making the Webbrowser to take the height and width of the picture1, therefore the size of the GIF!

Code:

Source = "about:" & "<html>" & "<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll=no>" & "<img src=""" & loc & """></img></body></html>"

This is the HTML code that you will need to display the picture!

Code:

Animation.Navigate Source

here we are telling the Webbrowser to execute the Source code!

How does this work?
Simple Just place the browser control where you want to make the picture to appear

Complete Source Code:-
Well I included the FULL source code its an attachment, its the complete project just compile and have fun

IMPORTANT NOTE
With this way if you are going to distribute your application you NEED to distribute the picture TOO!!

Ending:-

If you have any questions/problems/feedback pls post here and I will sureley Help you!
So I'm waiting for your feedback
Ow and if you want me to make you some tutorials request what you want and I will see what I can do! I will be happy making some tuts here!

Tcm9669

**AfTriX** · 01-03-2007, 03:05 AM

Nice work buddy

**TcM** · 01-03-2007, 04:25 AM

Originally Posted by AfTriX

Nice work buddy

Thanks

Just a trick of the trade!

**AfTriX** · 01-03-2007, 04:34 AM

You are welcome!

Each thanks that is welcomed and recorded is a nest egg by the side of which more will be laid..... Juz

**oasisjoel** · 12-06-2007, 10:15 AM

I used your... And theres a bug everytime you try to load the form with GIF multiple time's there some kind of ERROR

**oasisjoel** · 12-06-2007, 10:17 AM

BTW your program has a bug RUN-Time Error -1

**juriani_rahul** · 03-02-2008, 12:08 PM

awesum

**simon8088** · 03-07-2008, 03:31 AM

great tutorial!

**MasterPerkins** · 03-09-2008, 02:35 PM

most def will try this out!

**witcherofhell** · 03-18-2008, 01:58 AM

great work man keep it up

Thread: VB 6.0: Tutorial, How to make a GIF in your application

LinkBack

Thread Tools

Search Thread

Display

VB 6.0: Tutorial, How to make a GIF in your application

HElp

Re: VB 6.0: Tutorial, How to make a GIF in your application

Re: VB 6.0: Tutorial, How to make a GIF in your application

Thread Information

Users Browsing this Thread

Similar Threads

How to make a DOS console application using PHP?

how to make setup of a windows application?

[ASK]Idea to make a reseach with java application

Make application translatable

Make application skinnable

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions