VB编程：播放gif，flash动画 代码

VB6.0本身没有带播放swf,gif格式的动画文件的控件，要播放gif动画或flash动画只能借助于VB带的浏览器控件,即WebBrowser控件，这个控件，要在菜单里，工程--部件，找到“Microsoft Internet Controls”，点确定添加。

先在窗体画一个WebBrowser控件，再添加4个按钮1,在程序的目录里，先准备两个动画文件，1个是名叫：1.gif,另一个名称是：2.swf

播放1.gif动画文件代码
Private Sub Command1_Click()
WebBrowser1.Navigate App.Path & "\1.gif"
End Sub

播放2.swf动画文件代码
Private Sub Command2_Click()
WebBrowser1.Navigate App.Path & "\2.swf"
End Sub

2.swf动画文件再播放一次
Private Sub Command3_Click()
WebBrowser1.Refresh
End Sub

如果想去掉浏览器的滚动条，用下面的代码可以去除。
Private Sub Command4_Click()
WebBrowser1.Document.Body.Scroll = "no"
End Sub

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：https://wb98.com/post/27.html