wmp.frm

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

VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form Form7 
   Caption         =   "Super Player"
   ClientHeight    =   4860
   ClientLeft      =   4995
   ClientTop       =   1485
   ClientWidth     =   5745
   Icon            =   "WMP.frx":0000
   LinkTopic       =   "Form7"
   ScaleHeight     =   4860
   ScaleWidth      =   5745
   Begin WMPLibCtl.WindowsMediaPlayer WMP 
      Height          =   5535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5775
      URL             =   ""
      rate            =   1
      balance         =   0
      currentPosition =   0
      defaultFrame    =   ""
      playCount       =   1
      autoStart       =   -1  'True
      currentMarker   =   0
      invokeURLs      =   -1  'True
      baseURL         =   ""
      volume          =   50
      mute            =   0   'False
      uiMode          =   "full"
      stretchToFit    =   0   'False
      windowlessVideo =   0   'False
      enabled         =   -1  'True
      enableContextMenu=   -1  'True
      fullScreen      =   0   'False
      SAMIStyle       =   ""
      SAMILang        =   ""
      SAMIFilename    =   ""
      captioningID    =   ""
      enableErrorDialogs=   0   'False
      _cx             =   10186
      _cy             =   9763
   End
   Begin VB.Menu meuPlay 
      Caption         =   "弹出菜单"
      Visible         =   0   'False
      Begin VB.Menu meuFullScreen 
         Caption         =   "全屏"
      End
      Begin VB.Menu meuNotFull 
         Caption         =   "退出全屏"
      End
      Begin VB.Menu meuStop 
         Caption         =   "停止"
      End
      Begin VB.Menu meuHelp 
         Caption         =   "帮助"
      End
      Begin VB.Menu meuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Form7.Caption = "Super Player"
End Sub

Private Sub Form_Resize()
   On Error Resume Next
   WMP.Width = Form7.Width
   Form7.Width = Form7.Height + 1000
   WMP.Height = Form7.Height + 550
   WMP.windowlessVideo = True
   WMP.stretchToFit = True          '调整适合大小
   If Form7.WindowState = 2 Then
      WMP.fullScreen = True
   End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Form1.meuPlayFile.Visible = False
  Set Form7 = Nothing
End Sub

Private Sub WMP_KeyPress(ByVal nKeyAscii As Integer)
   nKeyAscii = 0                                '锁住键盘
End Sub