By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,952 Members | 1,686 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,952 IT Pros & Developers. It's quick & easy.

Show GIF or Flash animation on top of everything

P: 1
I want to use a VB script for this: Insert a flash or animated gif in my PC.

I want that the animation can appear on top of anything on the screen in that moment. For example an animation that appear on the right side of the screen and moves toward the left with a message that I can customize. Maybe somebody can make a script like that. It is to be used with windows XP. Or maybe tell me if there is a software that can do this.
Please post the answer here or write to.

[E-mail address removed by Moderator]

Please give me a hand.

Lots of thanks in advance.

Gerardo Lopez. From Costa Rica.
Jan 9 '08 #1
Share this Question
Share on Google+
2 Replies


daniel aristidou
100+
P: 491
I want to use a VB script for this: Insert a flash or animated gif in my PC.

I want that the animation can appear on top of anything on the screen in that moment. For example an animation that appear on the right side of the screen and moves toward the left with a message that I can customize.
This is very easy in vb08 im not sure about the other versions........

Get vb08....(express free if you dont have )
on the form properties you can set ontop = true
set the form border options = none
add the gif to your form
And use a timer to move the form around...
so simply add the gif to this.....
also if you want you also have the choice of making the form semitransparent.
Jan 16 '08 #2

P: 9
Save each picture of your gif as transparent. IE dove1.gif, dove2.gif .... dove14.gif.

place a timer set to 1000 and all of the individual pictures along with the animitaded gif original on top of each other. The animated gif file is called "picAnimate" in this example.

The example below is a dove flying across the screen from left to right.

Private Sub DoveTimer_Timer()

picAnimate.Top = 1 'set location from top of screen

Static currentpic As Integer
If currentpic = 14 Then currentpic = -1
currentpic = currentpic + 1
picAnimate.Left = picAnimate.Left + 55
If (picAnimate.Left) > ScaleWidth Then picAnimate.Left = -1000 ' orig -3600
picAnimate.Picture = imgDove(currentpic).Picture

End Sub
Jan 29 '08 #3

Post your reply

Sign in to post your reply or Sign up for a free account.