大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
使用方法:
为蚌山等地区用户提供了全套网页设计制作服务,及蚌山网站建设行业解决方案。主营业务为成都网站设计、做网站、蚌山网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
Gif.FileName
=
App.Path
"\tuzi.gif"
加载GIF控件即可,使用上面一句代码即可完成。
控件上QQ我发给你。
只是picturebox支持而已...
把gif每帧都单独存成一张图片,加个timer不断更换treeview节点显示的图片,用来实现简单的动画是够了。
可以了,你在窗体上把WebBrowser控件放上,按钮上放上以下内容即可,大小自己设置。
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.write "img src='实际GIF位置\xxx.gif'/img"
WebBrowser1.Document.Close
img里,你按HTML格式可以设置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
这种方法需要用到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 = 1TIMER1.INTERVAL = 100END SUBPRIVATE 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动画时一般都有预览功能)因此建议大家使用这种方法。 以上是本人在编程中总结出的几点经验仅供大家参考,还望大家多揣磨、多实践总结出更好的方法
在VisualBasic中,不能直接播放gif动画,但可以变通一下,用浏览器IE和WebBrowser控件播放。
由于WebBrowser控件并不是VB的基本控件,因此在使用该控件之前必须先将其装入工具箱中。装入方法:在工具箱中点击鼠标右键→选中“部件”→复选MicrosoftInternetControls→然后点击“确定”键即可。
2.选取WebBrowser控件,添加到窗体的相应位置上。
3.设计相应代码:
Private Sub Form_Load()
Show
WebBrowser1.Navigate App.Path "\h.gif"
End Sub
可参阅我博客中的文章: