flash.frm

两个VB播放器 两个VB播放器 两个VB播放器 两个VB播放器

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form5 
   Caption         =   "Flash播放器 "
   ClientHeight    =   5055
   ClientLeft      =   4425
   ClientTop       =   1575
   ClientWidth     =   6570
   Icon            =   "Flash.frx":0000
   LinkTopic       =   "Form5"
   ScaleHeight     =   5055
   ScaleWidth      =   6570
   Begin MSComDlg.CommonDialog CommonDialog2 
      Left            =   3720
      Top             =   240
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu meuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu meuOpen 
         Caption         =   "打开(&O)"
      End
      Begin VB.Menu meuExit 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu meuPlay 
      Caption         =   "播放(&P)"
      Begin VB.Menu meuPlayer 
         Caption         =   "播放(&P)"
      End
      Begin VB.Menu meuStop 
         Caption         =   "暂停(&S)"
      End
      Begin VB.Menu meulineq 
         Caption         =   "-"
      End
      Begin VB.Menu meuAll 
         Caption         =   "全频(&A)"
      End
      Begin VB.Menu meuAbout 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
   ' With Flash1
       '.Top = 0
       '.Left = 0
       '.Width = Form5.Width
      ' .Height = Form5.Height
    'End With
   ' Flash1.ScaleMode = 1
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  'Flash1.Width = Form5.Width
  'Flash1.Height = Form5.Height
End Sub

Private Sub meuAbout_Click()
   Dialog4.Show
End Sub

Private Sub meuAll_Click()
   Form5.Top = 0
   Form5.Left = 0
   Form5.Width = Screen.Width
   Form5.Height = Screen.Height
End Sub

Private Sub meuExit_Click()
  Unload Form5
End Sub

Private Sub meuOpen_Click()
  On Error Resume Next
   With CommonDialog2
      .FileName = ""
      .DialogTitle = "Flash文件"
      .Filter = "Flash(*.swf)|*.swf|All Files(*.*)|*.*|"
      .ShowOpen
    If Err.Number = cdlCancel Then Exit Sub
      'Flash1.Movie = .FileName
    End With
   ' Flash1.Playing = True
End Sub

Private Sub meuPlayer_Click()
 ' Flash1.Playing = True
End Sub

Private Sub meuStop_Click()
  ' Flash1.Stop
End Sub