vb中如何设置把一个gif图片作为一个窗口的背景？（gif是动态的）

@@如何在vb显示gif动画图片！！~

在VB6.0中实现GIF动画的几种方法

888ai444


是否觉得你的程序有些死气沉沉?加一个小动画试试吧,它也许会给你的程序增色不少呦!
用VB实现的动画并不象大家想象中的那种声光效果极佳,人物、事物动感十足的动画。用VB实现的动画可以说成是会动的图画，简单的说就是把一堆图片依次的、循环的、按一定的速度连续显示出来,从而产生一种会动的感觉。当然这一堆图片不一定是GIF格式的,只不过GIF文件的压缩比大一般称为”无损压缩文件”,文件较小更适合于动画,如果你高兴也可以使用BMP、JPG等格式的文件。
在对GIF动画有了一定了解之后我们就来讨论一下如何在VB程序中实现GIF动画。
第一种方法: 用图像框 (IMAGEBOX)按一定的时间,顺序循环加载图片。这种方法需要用到TIMER控件，因为TIMER控件不会影响FROM_LOAD等其他程序的运行,也不受其他程序的影响,所以为首选。图像框(IMAGEBOX)的STRETCH属性设置为TRUE使图片大小适应控件大小,将准备好的图片依次命名为1.GIF、2.GIF、3.GIF……TIMER的INTERVAL属性设置为100(视情况而定)。在TIMER1_TIMER()中加入以下代码：
PRIVATE SUB TIMER1_TIMER()
DIM FILENAME AS STRING
STATIC INT AS INTEGER
INT = INT + 1
FILENAME = “ C:\WINDOWS\DESKTOP\” & INT & “.GIF” ‘路径应视情况而定
IMAGE1.PICTURE = LOADPICTURE(FILENAME)
IF INT >= 5 THEN INT = 0 ‘条件INT到底应大于几应视情况而定
END SUB

第二种情况：用PICTURECLIP控件实现。
PICTURECLIP控件要在“部件”中添加，并且要与PICTURE和IMAGE控件配套使用。右键单击PICTURECLIP使用属性中的”自定义”—加载图片—”通用属性”—定义”行,列”值(行,列值在此例中暂定为18)。程序代码如下：
DIM A AS INTEGER
PRIVATE SUB form_LOAD ()
PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(1)
A = 1
TIMER1.INTERVAL = 100
END SUB

PRIVATE SUB TIMER_TIMER ()
A = A + 1 ：IF A = 18 THEN A = 0
PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(A)
END SUB
此种方法是将一张图片分割为几行、几列然后依次将每一部分显示出来，所以准备的这一图片最好是每隔一定行距列距有一个独立的内容的图案，如果是一个连续的、整体的图案那么出来的效果就只会”动”而不成”画”了。
第三种方法：现在市面上有很多制作GIF动画的软件，如有一个叫GIF CONSTRUTION SET 的 SHAREWARE (32位)可以很容易得制作出动态的GIF图形文件，我们可以用VB中的ANIGIF控件来”播放”已做好的GIF图片。其属性设置位要播放的GIF文件名，在程序运行时控件会自动播放GIF动画。当然ANIGIF控件要在”部件”里添加后才能使用。此种方法不用很多的代码而效果也不错(因为在制作GIF动画时一般都有预览功能)因此建议大家使用这种方法。

WebBrowser1控件即能打开GIF，也能放FLASH：

工程----部件----添加 Microsoft Internet Controls


------------------------------------
Private Sub Form_Load()


WebBrowser1.Navigate "f:\aa.gif"

End Sub



以上是本人在编程中总结出的几点经验仅供参考，还望你自己多揣磨、多实践总结出更好的方法。

有个控件
我有这个
AniGIF.ocx2.46的原文件及破解补丁.rar
你留个邮箱什么的，我可以发给你

VB不支持这种方案
你可以用一个TIMER不停地切换窗口背景，不会的话追问，gif也是不停地切换画面

---

宜春市18316019349： vb中如何设置把一个gif图片作为一个窗口的背景?(gif是动态的) - ？
时阅立灵： VB不支持这种方案 你可以用一个TIMER不停地切换窗口背景,不会的话追问,gif也是不停地切换画面

宜春市18316019349： VB中如何插入GIF动画到窗体作为背景? - ？
时阅立灵： vb的picture控件只能加载jpg,bmp格式图片.ie可现实动态图片.我认为有两种方案,1. 将gif图分解为单个的bmp文件,通过timer计时器将单个的图片逐一加载实现动画.这本来也是gif实现动画的原理.分解图片较多时做起来可能比较麻烦.2. 将webbrowser控件引入,再加载本地gif文件,美观度显然没有方法一好.因为需要对控件进行其他设置.毕竟是要作为背景的,其麻烦程度可想而知.综上.选第一种方法是很靠谱的.建议优化gif,再做.效果杠杠的.

宜春市18316019349： VB窗体如何放置GIF格式的动态图片 - ？
时阅立灵： 因为VB的局限性,目前只有两种方法可以使用GIF图片.第一:用WebBrowser打开本地或网络上的GIF,然后用其他控件将WebBrowser的边缘遮盖,只显示图片部分 第二:使用收费控件,这个也有免费的不过不大好找,而且使用也不是很方便...

宜春市18316019349： VB窗体背景放GIF文件!怎么放? - ？
时阅立灵： VB里的窗体背景不支持GIF动画,你可以使用其它图像控件来代替窗体背景

宜春市18316019349： VB中如何加入GIF动画、 - ？
时阅立灵： 这种方法需要用到TIMER控件,因为TIMER控件不会影响FROM_LOAD等其他程序的运行,也不受其他程序的影响,所以为首选.图像框(IMAGEBOX)的STRETCH属性设置为TRUE使图片大小适应控件大小,将准备好的图片依次命名为1.GIF...

宜春市18316019349： VB中如何加入GIF动画、？
时阅立灵： 第一种方法: 用图像框 (IMAGEBOX)按一定的时间,顺序循环加载图片.这种方法需要用到TIMER控件,因为TIMER控件不会影响FROM_LOAD等其他程序的运行,也不受其他程序的影响,所以为首选.图像框(IMAGEBOX)的STRETCH...

宜春市18316019349： VB里面插入gif动画图片,怎么让她在执行的时候动起来? - ？
时阅立灵： 在工程,部件里,找,Microsoft Internet control 前面打钩,就可以用webbrower这个控件了,调用方式是,webbrower1.navegate (),括号里填路径就可以了

宜春市18316019349： 如何在VB中播放音乐,添加FLASH以及GIF图片? - ？
时阅立灵： 播放音乐可以在 部件->控件 中选中Windows Media Player,然后在其属性栏中的URL中加入要播放的音乐的地址即可 播放Flash可以在 部件->控件中 选中shockwave flash控件,然后在代码中用shockwaveflash1.movie=xxx\xxx\xxx.swf加入要播放...

宜春市18316019349： VB写的程序怎么加入gif动态图片啊? - ？
时阅立灵： 在VisualBasic中,不能直接播放gif动画,但可以变通一下,用浏览器IE和WebBrowser控件播放.由于WebBrowser控件并不是VB的基本控件,因此在使用该控件之前必须先将其装入工具箱中.装入方法:在工具箱中点击鼠标右键→选中“部件...

宜春市18316019349： vb中插入的背景图片能不能有动画效果?怎样设置呢? - ？
时阅立灵： 不能直接动!但可以把一个动画图片(GIF)分解成几张图片,有Timer控件中编写代码,依次显示图片,也可以达到动画的效果!