如何在VB中加载flash?

加载flash格式的文件吗？
有个控件

解决方案 »

  1.   

    找一下有没有Swflash.ocx控件！
    然后在VB中引用，就可以用该控件提供的方法、属性、事件！
      

  2.   

    同意楼上的楼上的说法
    就是加上那个控件就可以了这个空间在flash的安装盘中可以找到
    或者在安装后的文件可以找到
    控件提供的方法、属性、事件与vb的mediaplay控件差不多
      

  3.   

    用VB编写FLASH动画播放器 
    　　 Flash4是MacroMedia公司出品的矢量动画创作专业软件，利用该软件制作的矢量动画具有文件体积小、带音效和兼容性好等特点。那么，你想不想在自己编写的程序中加入Flash动画，为自己的程序添加一道亮丽的色彩呢？
    　　一、编程原理
    　　本程序利用了Flash4本身自带播放Flash动画的控件Swflash.ocx。你可以通过以下途径获得该控件：1、安装Flash4；2、安装Windows98自带的Flash插件，方法：依次单击“开始”菜单－“设置”－“控制面板”－“添加/删除程序”－“Windows 安装程序”－“多媒体”－“详细资料”－选中“Macromedia Shockwave Flash”前的复选框确定即可。以上方法都会将该控件安装到Windows目录下的System\Macromed\Flash子目录下。
    　　二、示例程序
    　　下面就是一个用Swflash.ocx控件编写的Flash动画播放器。本程序可一次打开多个Flash动画文件，并可在播放过程中选择播放打开的文件、随时改变播放质量、画面大小等状态；在播放过程中可以随时对播放的当前帧数进行调整或者手动进行逐帧播放，在状态栏里有当前播放状态的相关说明。在实现以上功能时，几乎用全了Swflash.ocx控件的主要属性、方法。
    　　编程过程如下：
    　　1、窗体、界面设计。
    　　新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwave flash”、“Microsoft Common Dialog Control 6.0 (SP3)”、“Microsoft Windows Common Control 6.0 (SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个Status Bar控件。其中：
    　　将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。
    　　将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。
    　　将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1 － SldBelowRight”。
    　　将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。
    　　6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。
    　　在Status Bar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。
    　　　　进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。
    　　选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。
    　　最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。
    　　2、程序代码
    　　第一步：在Form1的代码窗口中添加以下代码：
    　　Dim FileNames() As String 注释：用于保存打开的文件名称。
    　　Dim PlayFileNum As Integer 注释：用于计算正在播放的文件序号。
    　　Dim TotalFile As Integer 注释：用于统计打开的文件总数。
    　　Private Sub cmdOpen_Click() 注释：打开
    　　On Error GoTo ExitOpen
    　　CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer
    　　CommonDialog1.FileName = ″"
    　　CommonDialog1.ShowOpen 注释：显示“打开”对话框。
    　　注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。
    　　FileNames() = Split(CommonDialog1.FileName, vbNullChar)
    　　If UBound(FileNames) = 0 Then 注释：用户只打开了一个文件。
    　　Form2!ShockwaveFlash1.Movie = FileNames(0)
    　　TotalFile = 1
    　　PlayFileNum = 0
    　　Else 注释：用户打开了多于一个文件。
    　　Form2!ShockwaveFlash1.Movie = FileNames(0) ＋ ″\″ ＋ FileNames(1)
    　　TotalFile = UBound(FileNames)
    　　PlayFileNum = 1
    　　End If
    　　StatusBar1.Panels(1).Text = ″共打开了″ ＋ Trim(Str(TotalFile)) ＋ ″个文件″
    　　cmdPlay_Click
    　　ExitOpen:
    　　End Sub
    　　Private Sub cmdPlay_Click() 注释：开始播放
    　　If TotalFile < 1 Then Exit Sub 注释：用户还没有打开文件。
    　　注释：显示Form2开始播放动画。
    　　Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″
    　　Form2.Show
    　　Form2!ShockwaveFlash1.Playing = True
    　　If TotalFile = 1 Then PlayFileNum = 0
    　　注释：显示状态条的信息。
    　　StatusBar1.Panels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″
    　　注释：显示滑动条的状态。
    　　Slider1.Max = Form2!ShockwaveFlash1.TotalFrames
    　　Label2.Caption = Str(Slider1.Max / 2) ＋ ″帧″
    　　Label3.Caption = Str(Slider1.Max) ＋ ″帧″
    　　End Sub
    　　Private Sub cmdPause_Click() 注释：暂停播放
    　　Form2!ShockwaveFlash1.Stop
    　　End Sub
    　　Private Sub cmdPre_Click() 注释：播放上一个文件
    　　If TotalFile <> 1 Then 注释：当用户打开多于一个文件时
    　　PlayFileNum = PlayFileNum － 1
    　　If PlayFileNum < 1 Then PlayFileNum = TotalFile
    　　Form2!ShockwaveFlash1.Movie = FileNames(0) ＋ ″\″ ＋ FileNames(PlayFileNum)
    　　End If
    　　注释：显示播放状态的信息。
    　　StatusBar1.Panels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″
    　　Slider1.Max = Form2!ShockwaveFlash1.TotalFrames
    　　Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″
    　　Label2.Caption = Str(Slider1.Max / 2) ＋ ″帧″
    　　Label3.Caption = Str(Slider1.Max) ＋ ″帧″
    　　End Sub
    　　Private Sub cmdNext_Click() 注释：播放下一个文件
    　　If TotalFile <> 1 Then 注释：用户打开多于一个文件时
    　　PlayFileNum = PlayFileNum ＋ 1
    　　If PlayFileNum>TotalFile Then PlayFileNum = 1
    　　Form2!ShockwaveFlash1.Movie = FileNames(0) ＋ ″\″ ＋ FileNames(PlayFileNum)
    　　End If
    　　注释：显示播放状态的信息。
    　　StatusBar1.Panels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″
    　　Slider1.Max = Form2!ShockwaveFlash1.TotalFrames
    　　Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″
    　　Label2.Caption = Str(Slider1.Max / 2) ＋ ″帧″
    　　Label3.Caption = Str(Slider1.Max) ＋ ″帧″
    　　End Sub
    　　Private Sub cmdPreFrame_Click() 注释：跳到动画的上一帧
    　　Form2!ShockwaveFlash1.Back
    　　End Sub
    　　Private Sub cmdNextFrame_Click() 注释：跳到动画的下一帧
    　　Form2!ShockwaveFlash1.Forward
    　　End Sub 
    　　Private Sub cmdExit_Click() 注释：退出程序
    　　End
    　　End Sub
    　　Private Sub Slider1_Scroll()
    　　注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。
    　　Form2!ShockwaveFlash1.FrameNum = Slider1.Value
    　　End Sub
    　　Private Sub mnuDisplay0_Click()
    　　注释：将画面大小设置为在控件内保持动画原来比例全部显示
    　　Form2!ShockwaveFlash1.ScaleMode = 0
    　　mnuDisplay0.Checked = True
    　　mnuDisplay1.Checked = False
    　　mnuDisplay2.Checked = False
    　　End Sub
    　　Private Sub mnuDisplay1_Click()
    　　注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化
    　　Form2!ShockwaveFlash1.ScaleMode = 1
    　　mnuDisplay0.Checked = False
    　　mnuDisplay1.Checked = True
    　　mnuDisplay2.Checked = False
    　　End Sub
    　　Private Sub mnuDisplay2_Click()
    　　注释：将画面大小设置为不理会动画原来比例缩放至控件大小
    　　Form2!ShockwaveFlash1.ScaleMode = 2
    　　mnuDisplay0.Checked = False
    　　mnuDisplay1.Checked = False
    　　mnuDisplay2.Checked = True
    　　End Sub
    　　Private Sub mnuLoopPlay_Click()
    　　注释：将播放方式设置为循环或不循环。
    　　mnuLoopPlay.Checked = Not mnuLoopPlay.Checked
    　　Form2!ShockwaveFlash1.Loop = Not Form2!ShockwaveFlash1.Loop
    　　End Sub
    　　Private Sub mnuQuality0_Click()
    　　注释：将画面质量设置为低分辨率
    　　Form2!ShockwaveFlash1.Quality = 0
    　　mnuQuality0.Checked = True
    　　mnuQuality1.Checked = False
    　　End Sub 
    　　Private Sub mnuQuality1_Click()
    　　注释：将画面质量
      

  4.   

    主題：如何在 VB 中撥放 Flash 的影片？ 
    來源：Gilb 
    版本：VB6 / VB5 --------------------------------------------------------------------------------
     最近，在 Internet 上 Flash 大放異彩，由於 Flash 的圖形是向量圖，向量圖的特點就是線條不會因為圖片放大縮小而產生鋸齒狀，所以很適合用在多媒體的製作上！現在，在 Internet 中比較常見到的運用有：動態網頁製作、遊戲、影片、電視節目、音樂、MTV、電子賀卡...等。          
    很多人都以為 Flash 是 Internet 上的產物，只是瀏覽器中 Plug-In 的一項功能，將 Flash 的檔案存檔之後，直接在 Windows 中執行並無法啟動。但其實不然，在 VB 中我們一樣可以撥放 Flash 的影片，要說得更廣義一點的話，應該說，這些可以在瀏覽器中 Plug-In 的功能，在 VB 中都可以拿來運用的！只要是 Windows 98 以後的版本，至少都附有 Flash 2.0 以上版本的 Flash 功能。現在，最新的版本是 4.0。如果您要下載最新的版本，您可以到 www.macromedia.com、www.Flash.com、www.shockwave.com 這些網站就可以找到了。不過，下載的是試用版本！您可以用它來製作 Flash 檔案，這些檔案您可以運用在網頁上，可以做出很花俏的網頁。您也可以透過它提功的 FS Command 在 VB 中來運用它！如果要使用 Shockwave Flash 控制項，必須先在【專案】【設定使用元件】加入【Shockwave Flash】。它在 ToolBox 中的樣子如下圖所示：   Shockwave Flash 控制項 如果您只是想在 VB 中撥放 Flash 影片，更是簡單，您只要指定 Flash 檔案名稱就可以了！步驟如下：1、設定使用元件：加入 ShockWave Flash 控制項。 (swflash.ocx)
    2、設定檔案名稱：將 ShockWave Flash 控制項加到 Form 中，在屬性表或程式中設定 Movie 屬性。好了，您已經完成一個簡單的 Flash 撥放程式了！當然，這個控制項還有一些屬性或事件，可以讓您加強它的功能！有點可惜的是，您在這個控制項上按 F1 時，並不會跑出 Help 的說明，因為它並不是專為 VB 而提供的。不過，如果您有興趣的話，在下面的網址中，您可以找到詳細的語法說明：Flash 語法說明網頁：http://www.macromedia.com/support/flash/ts/documents/activex_script.htm