form1.frm

是一个播放器 是一个播放器我操劳过度,

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.Slider Slider1 
      Height          =   315
      Left            =   2670
      TabIndex        =   6
      Top             =   2520
      Width           =   1725
      _ExtentX        =   3043
      _ExtentY        =   556
      _Version        =   393216
      LargeChange     =   10
      SelectRange     =   -1  'True
      TickFrequency   =   20
      TextPosition    =   1
   End
   Begin VB.CommandButton Command1 
      Caption         =   "放大"
      Height          =   585
      Left            =   2850
      TabIndex        =   2
      Top             =   1260
      Width           =   1155
   End
   Begin VB.CommandButton cmdPlay 
      Caption         =   "播放"
      Height          =   615
      Left            =   1680
      TabIndex        =   1
      Top             =   1260
      Width           =   825
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1500
      Top             =   2580
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Filter          =   "all files(*.*)|*.*|(*.swf)|*.swf|"
   End
   Begin VB.CommandButton cmdOpen 
      Caption         =   "打开"
      Height          =   495
      Left            =   660
      TabIndex        =   0
      Top             =   1170
      Width           =   825
   End
   Begin VB.Label Label3 
      Caption         =   "Label3"
      Height          =   345
      Left            =   270
      TabIndex        =   5
      Top             =   1860
      Width           =   2895
   End
   Begin VB.Label Label2 
      Caption         =   "Label2"
      Height          =   255
      Left            =   180
      TabIndex        =   4
      Top             =   600
      Width           =   3105
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   315
      Left            =   210
      TabIndex        =   3
      Top             =   90
      Width           =   2985
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
  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()
':     将画面质量设置为高分辨率
    Form2!ShockwaveFlash1.Quality = 1
    mnuQuality0.Checked = False
    mnuQuality1.Checked = True
    End Sub
    Private Sub mnuZoomIn_Click()
':     放大画面。
    Form2!ShockwaveFlash1.Zoom (50)
    End Sub
    Private Sub mnuZoomOut_Click()
':     缩小画面。
    Form2!ShockwaveFlash1.Zoom (200)
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    End '：结束程序
    End Sub

    Private Sub Timer1_Timer()
':     在状态栏和滑动条上显示当前播放的帧。
    Form1!StatusBar1.Panels(5).Text = Str(ShockwaveFlash1.FrameNum)
    Form1!Slider1.Value = ShockwaveFlash1.FrameNum
    End Sub