www.pudn.com > SkyMediaSongTool.rar > Form3.frm

VERSION 5.00 
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "msdxm.ocx" 
Begin VB.Form Form3  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "¸èÇúÊÔÌý" 
   ClientHeight    =   4500 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   4965 
   Icon            =   "Form3.frx":0000 
   LinkTopic       =   "Form3" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   4500 
   ScaleWidth      =   4965 
   StartUpPosition =   3  '´°¿Úȱʡ 
   Begin MediaPlayerCtl.MediaPlayer MPlayer  
      Height          =   4380 
      Left            =   60 
      TabIndex        =   0 
      Top             =   75 
      Width           =   4860 
      AudioStream     =   -1 
      AutoSize        =   0   'False 
      AutoStart       =   -1  'True 
      AnimationAtStart=   -1  'True 
      AllowScan       =   -1  'True 
      AllowChangeDisplaySize=   -1  'True 
      AutoRewind      =   0   'False 
      Balance         =   0 
      BaseURL         =   "" 
      BufferingTime   =   5 
      CaptioningID    =   "" 
      ClickToPlay     =   -1  'True 
      CursorType      =   0 
      CurrentPosition =   -1 
      CurrentMarker   =   0 
      DefaultFrame    =   "" 
      DisplayBackColor=   0 
      DisplayForeColor=   16777215 
      DisplayMode     =   0 
      DisplaySize     =   4 
      Enabled         =   -1  'True 
      EnableContextMenu=   -1  'True 
      EnablePositionControls=   -1  'True 
      EnableFullScreenControls=   0   'False 
      EnableTracker   =   -1  'True 
      Filename        =   "" 
      InvokeURLs      =   -1  'True 
      Language        =   -1 
      Mute            =   0   'False 
      PlayCount       =   1 
      PreviewMode     =   0   'False 
      Rate            =   1 
      SAMILang        =   "" 
      SAMIStyle       =   "" 
      SAMIFileName    =   "" 
      SelectionStart  =   -1 
      SelectionEnd    =   -1 
      SendOpenStateChangeEvents=   -1  'True 
      SendWarningEvents=   -1  'True 
      SendErrorEvents =   -1  'True 
      SendKeyboardEvents=   0   'False 
      SendMouseClickEvents=   0   'False 
      SendMouseMoveEvents=   0   'False 
      SendPlayStateChangeEvents=   -1  'True 
      ShowCaptioning  =   0   'False 
      ShowControls    =   -1  'True 
      ShowAudioControls=   -1  'True 
      ShowDisplay     =   0   'False 
      ShowGotoBar     =   0   'False 
      ShowPositionControls=   -1  'True 
      ShowStatusBar   =   0   'False 
      ShowTracker     =   -1  'True 
      TransparentAtStart=   0   'False 
      VideoBorderWidth=   0 
      VideoBorderColor=   0 
      VideoBorder3D   =   0   'False 
      Volume          =   0 
      WindowlessVideo =   0   'False 
   End 
End 
Attribute VB_Name = "Form3" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
    MPlayer.Stop 
    Unload Me 
End Sub