Gif.FileName
=
App.Path
&
"\tuzi.gif"
加载GIF控件即可,使用裤拦袭上面一句代码衡简即胡兄可完成。
控件上QQ我发给你。
2种方法,第一种就是用flash控件,一楼说的,第二种就是利用webbrowser控件(工具栏鼠标右键->部件拿旁—>添加),把WebBrowser1.Navigate后的地址设置为弊腊图片的地址租敏滑即可,比如显示D:\test.gif图片,则就用WebBrowser1.Navigate"D:\test.gif"即可。
例子:利用WebBrowser控件'百度HI群_飞度编程学社岩枝1195277Private Sub Form_Load()WebBrowser1.Navigate "D:\111.gif"判纳
End Sub
添加Gif可以有以下几种方法
(1)利用第三方控件,如Gif89.但好用的一般要注册收钱.
(2)利用WebBrowser控件 在 部件->控件中 选中Microsoft Internet Controls 然后在代码中粗冲敏用WebBrowser1.Navigate xxx\xxx\xxx.gif加入要播放的Gif
(3)将Gif转换为Swf再用Flash播放器播放
这里先说这几种,其他的方法相信在你的学习应用中会发现的.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)