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

**TcM** · #1 (**permalink**) 08-21-2006, 11: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 · #2 (**permalink**) 01-03-2007, 05:05 AM

Nice work buddy

**TcM** · #3 (**permalink**) 01-03-2007, 06:25 AM

Quote:

Originally Posted by AfTriX

Nice work buddy

Thanks

Just a trick of the trade!

AfTriX · #4 (**permalink**) 01-03-2007, 06: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 · #5 (**permalink**) 12-06-2007, 12:15 PM

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 · #6 (**permalink**) 12-06-2007, 12:17 PM

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

juriani_rahul · #7 (**permalink**) 03-02-2008, 02:08 PM

awesum

simon8088 · #8 (**permalink**) 03-07-2008, 05:31 AM

great tutorial!

MasterPerkins · #9 (**permalink**) 03-09-2008, 04:35 PM

most def will try this out!

witcherofhell · #10 (**permalink**) 03-18-2008, 03:58 AM

great work man keep it up

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VB 6.0: Tutorial, Using the MsgBox	TcM	VB Tutorials	5	08-31-2008 01:14 PM
VB 6.0: Tutorial, Making a Port Scanner	TcM	VB Tutorials	80	08-30-2008 04:59 PM
VB 6.0: Tutorial, How to Make Glass2K!!	TcM	VB Tutorials	11	06-02-2008 02:08 PM
VB 6.0: Tutorial, Explaining the VB 6.0 GUI	TcM	VB Tutorials	1	05-18-2007 10:25 AM
John's Java Tutorial Index	John	Java Tutorials	0	01-11-2007 03:05 PM

John	........	223.00000
dargueta	........	168.00000
Xav	........	164.00000
LogicKills	........	20.00000
gaylo565	........	18.00000
WingedPanther	........	15.00000
\|pH\|	........	15.00000
Johnnyboy	........	3.00000
navghost	........	1.00000

CodeCall

Contest Stats

CodeCall Goal

Sponsors

Ads

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)