VB播放FLASH(转载)

神话

    大家一定都知道FLASH吧！它华丽的背景，优美的动作，而且占地很小，相信添加到应用程序
里一定锦上添花。VB怎麽来播放FLASH呢，我们来学习一下。

要播放FLASH，工具栏里面的工具是不够的，我们先来添加一个“shockwaveFlash”的控件

把这个控件放在要播放的位置上

添加以下代码：

    Private Sub Form_Load()    PlayFlashMovie App.Path & "\intro.swf"      End Sub
    Public Function PlayFlashMovie(Filename As String)
    With Flash1
    .Movie = Filename
    .Play
    End With
    End Function
注：FLASH的文件名是“intro”

realline

用的是FLASH.OCX编译后如果不安装FLASH播放器能放FLASH动画吗？

realline

效果还不错！

马甲005

很有用的东西，支持