在VB中播放Flash动画

在VB中播放Flash动画

【字体：小大】

在VB中播放Flash动画

作者：- 文章来源：- 点击数：更新时间：2006-6-10

VB中SWFLASH控件能让用户在VB中播放Flash(swf格式)动画,我在一次作软件封面时,采用了Flash动画作欢迎画面,但是由于控件没有关于swf播放结束的事件,咱又不懂得FSCOMMAND,只好想了个别的办法,源程序如下:

控件:timer1,ShockwaveFlash1

Private Sub Form_Load()

'=========设置窗口属性===============

form1.BoederStyle=0

ShockwaveFlash1.Top = 0

ShockwaveFlash1.Left = 0

ShockwaveFlash1.Height = Me.ScaleHeight

ShockwaveFlash1.Width = Me.ScaleWidth

'=======设置swf文件的路径============

ShockwaveFlash1.Movie ="c:\welcome.swf"

ShockwaveFlash1.Play '播放

End Sub

Private Sub Timer1_Timer()

If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames -1 Then

ShockwaveFlash1.Stop

Unload Me

'=======显示你的程序主窗口=========

End If

End Sub

[1]

文章录入：enadd 责任编辑：enadd

最新热点		最新推荐		相关文章
				用VB编写DirectX7.0游戏（下… 用VB编写DirectX7.0游戏（上… 使用OLE DB和ADO调用返回记录… 使用VB调用Oracle程序包内的… VB中用ADO对象动态创建数据库… fffff 如何用MSComm Control传Bina… MultiLink的WinSock Server程… 用VB制作浏览器用VB编写网络寻呼机

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd