当前位置: 源码素材网 » VB教程 » 详情页

VB调用Flash8.ocx播放swf文件

  •   时间:2019-04-04
  • 概述:Flash8.ocx

Vb实现的Flash播放功能,调用Flash8.ocx控件播放swf文件,没时还使用有Comdlg32.ocx,以下为运行截图: 

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash8.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Form1
   Caption         =   "播放Flash"
   ClientHeight    =   4110
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6330
   LinkTopic       =   "Form1"
   ScaleHeight     =   4110
   ScaleWidth      =   6330
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2
      Caption         =   "退出"
      Height          =   435
      Left            =   5265
      TabIndex        =   2
      Top             =   3570
      Width           =   1020
   End
   Begin VB.CommandButton Command1
      Caption         =   "打开"
      Height          =   435
      Left            =   4005
      TabIndex        =   1
      Top             =   3570
      Width           =   1020
   End
   Begin MSComDlg.CommonDialog CommonDialog1
      Left            =   1275
      Top             =   2640
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1
      Height          =   3405
      Left            =   45
      TabIndex        =   0
      Top             =   45
      Width           =   6240
      _cx             =   11007
      _cy             =   6006
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   -1  'True
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   -1  'True
      Base            =   ""
      AllowScriptAccess=   ""
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
      Profile         =   0   'False
      ProfileAddress  =   ""
      ProfilePort     =   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
    CommonDialog1.Filter = "Flash文件|*.swf|所有文件|*.*"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then Exit Sub
    Flash1.Movie = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
End
End Sub

    相关声明:

      若“VB调用Flash8.ocx播放swf文件”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。