如何在vb中打开gif动画图片??

我现在用vb做一个东东,form的背景图片想用一个gif动画图片。可试过好多办法都无法实现,请高人指点!
385762 ,可以用Image代替图片控件吗??

不行的,image没有句柄,如果你觉得这个效果不怎么好就去下载控件吧,比较好的就是Gif89.dll了

===============================

可以用控件实现,但是有些gif播放不出或者播放出的不是想要的效果,楼上的倒是个不错的方法

下面的有个无控件的方法,不过也是有点问题,你参考下吧,代码下载:

参考资料:http://www.symental.com/sfw?f=PicboxGif

温馨提示:内容为网友见解,仅供参考
第1个回答  2008-08-23
在窗体内加入webbrowser控件,并将勘置于底层,那么显示gif动画的代码如下:
webbrowser1.Navigate "c:\1.gif"

VB窗体中如何显示Gif动画文件?谢谢!在线等待...
你需要在vb中添加Microsoft internet controls控件,然后把你所要显示的gif图片放入网页页,在把网页的路径写入就可以播放gif图画。

如何於VB中显示动态GIF图
使用外挂式程式 Gif89.dll 1.首先在【专案】【设定使用元件】【控制项】页中使用浏览功能加入 Gif89.dll (最好将这个档案放在 c:\\windows\\system 目录下),之後在工具箱中就会出现 gif89a 的控制项。2.用法如下 :范例程式下载 (内含 Gif89.dll)3.备注 : 使用 gif89a 这个控制项的好处就是您可...

VB写的程序怎么加入gif动态图片啊?
在VisualBasic中,不能直接播放gif动画,但可以变通一下,用浏览器IE和WebBrowser控件播放。由于WebBrowser控件并不是VB的基本控件,因此在使用该控件之前必须先将其装入工具箱中。装入方法:在工具箱中点击鼠标右键→选中“部件”→复选MicrosoftInternetControls→然后点击“确定”键即可。2.选取WebBrowser控...

请问VB怎样显示GIF动画啊?
在窗体上添加一个WebBrowser1,一个image1 Private Sub Form_Load()image1.Picture = "D:\\.gif"image1.Visible = False WebBrowser1.Width = Image1.Width + 608 WebBrowser1.Height = Image1.Height + 503 WebBrowser1.Navigate "D:\\.gif"End Sub WebBrowser1虽然可以播放GIF,但是无法根据G...

@@如何在vb显示gif动画图片!!
在对GIF动画有了一定了解之后我们就来讨论一下如何在VB程序中实现GIF动画。第一种方法: 用图像框 (IMAGEBOX)按一定的时间,顺序循环加载图片。这种方法需要用到TIMER控件,因为TIMER控件不会影响FROM_LOAD等其他程序的运行,也不受其他程序的影响,所以为首选。图像框(IMAGEBOX)的STRETCH属性设置为TRUE使图片...

vb如何显示动态图片
这样你看行不.把动的图片截成几幅静止的图片,分别用PictureBox或image控件来存放,他们的位置都一样.用Timer控件来对他样显示与隐藏.这样也就达到了动画的效果! 或用一个图形控件与Timer控件来加载不同的图片.加载间隔时间用Timer控件控制.

vb中 怎么加载gif文件
比如添加一个Picture1,有两种方法进行加载:①.静态加载 在窗体设计时把GIF图片加载到Picture1,这里只要设置Picture1的[Picture]属性就可以了。②.动态加载 在代码里面把GIF图片加载到Picture1,这里可用LoadPicture函数实现:Picture1.Picture = LoadPicture("GIF图片路径")

VB怎么加入gif动图
首先、需要注册,注册方法:在工程中选中“引用”→引用项目ActiveMovie Control type Libray→然后点击“确定”键即可。其次、'在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以;在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1。

如何在vb显示gif动画图片
可以加在picturebox或image 控件中啊

VB如何实现调用动态的GIF动画??
把GIF分解成若干单桢的GIF,用时间控件一幅幅的加载 private sub timer1-timer()static a as imteger'假如有7张单张的GIF if a=8 then a=1'回到第一张的加载 else a=a+1'不断的加载下一幅GIF end if image1.picture=loadpicture(app.path+"\\dh"&a&".gif")end sub ...

相似回答