当前位置:首页 » 程序代码 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号