showfrm.frm

毕业设计

VERSION 5.00
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
Begin VB.Form Showfrm 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   90
   ClientLeft      =   45
   ClientTop       =   4170
   ClientWidth     =   720
   Icon            =   "Showfrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   90
   ScaleWidth      =   720
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin MediaPlayerCtl.MediaPlayer Media1 
      Height          =   4395
      Left            =   0
      TabIndex        =   0
      Top             =   -360
      Width           =   4425
      AudioStream     =   -1
      AutoSize        =   -1  'True
      AutoStart       =   0   'False
      AnimationAtStart=   -1  'True
      AllowScan       =   -1  'True
      AllowChangeDisplaySize=   -1  'True
      AutoRewind      =   0   'False
      Balance         =   0
      BaseURL         =   ""
      BufferingTime   =   5
      CaptioningID    =   ""
      ClickToPlay     =   0   'False
      CursorType      =   0
      CurrentPosition =   -1
      CurrentMarker   =   0
      DefaultFrame    =   ""
      DisplayBackColor=   0
      DisplayForeColor=   16777215
      DisplayMode     =   0
      DisplaySize     =   4
      Enabled         =   -1  'True
      EnableContextMenu=   0   'False
      EnablePositionControls=   -1  'True
      EnableFullScreenControls=   0   'False
      EnableTracker   =   -1  'True
      Filename        =   ""
      InvokeURLs      =   -1  'True
      Language        =   -1
      Mute            =   0   'False
      PlayCount       =   1
      PreviewMode     =   -1  'True
      Rate            =   1
      SAMILang        =   ""
      SAMIStyle       =   ""
      SAMIFileName    =   ""
      SelectionStart  =   -1
      SelectionEnd    =   -1
      SendOpenStateChangeEvents=   -1  'True
      SendWarningEvents=   -1  'True
      SendErrorEvents =   -1  'True
      SendKeyboardEvents=   -1  'True
      SendMouseClickEvents=   -1  'True
      SendMouseMoveEvents=   -1  'True
      SendPlayStateChangeEvents=   -1  'True
      ShowCaptioning  =   0   'False
      ShowControls    =   0   'False
      ShowAudioControls=   0   'False
      ShowDisplay     =   0   'False
      ShowGotoBar     =   0   'False
      ShowPositionControls=   0   'False
      ShowStatusBar   =   0   'False
      ShowTracker     =   0   'False
      TransparentAtStart=   0   'False
      VideoBorderWidth=   0
      VideoBorderColor=   0
      VideoBorder3D   =   -1  'True
      Volume          =   -2000
      WindowlessVideo =   0   'False
   End
End
Attribute VB_Name = "Showfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Unload(Cancel As Integer)
StartM = False
End Sub

Private Sub Media1_DblClick(Button As Integer, ShiftState As Integer, X As Single, Y As Single)
If Button And 1 Then  '双几恢复为原始窗口大小
   Media1.DisplaySize = mpDefaultSize
   Showfrm.Height = Media1.Height
   Showfrm.Width = Media1.Width
   Centerform Me
   Media1.Play
End If
End Sub

Private Sub Media1_MouseDown(Button As Integer, ShiftState As Integer, X As Single, Y As Single)
If Button And 2 Then '鼠标启动活动菜单
  If Media1.FileName <> "" Then
     MenuBar.MenuBar.Visible = True
     PopupMenu MenuBar.MenuBar
  End If
End If
End Sub

Private Sub Media1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
PlPa = Not PlPa '状态控制
 If PlPa Then
        Controlfrm.PlayPic(1).Picture = LoadPicture(App.Path + "\icon\pause.ico")
     Else
        Controlfrm.PlayPic(1).Picture = LoadPicture(App.Path + "\icon\play.ico")
 End If

End Sub