www.pudn.com > tv_song > FRMXSCZ.FRM

VERSION 5.00 
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "msdxm.ocx" 
Begin VB.Form frmXSCZ  
   BackColor       =   &H00800000& 
   BorderStyle     =   0  'None 
   Caption         =   "Form1" 
   ClientHeight    =   960 
   ClientLeft      =   255 
   ClientTop       =   8490 
   ClientWidth     =   4080 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   960 
   ScaleWidth      =   4080 
   ShowInTaskbar   =   0   'False 
   Begin VB.Timer Timer1  
      Enabled         =   0   'False 
      Interval        =   1000 
      Left            =   360 
      Top             =   240 
   End 
   Begin VB.Timer Timer2  
      Interval        =   1000 
      Left            =   960 
      Top             =   240 
   End 
   Begin VB.Label Label3  
      BackColor       =   &H00FF0000& 
      BackStyle       =   0  'Transparent 
      Caption         =   "90" 
      BeginProperty Font  
         Name            =   "黑体" 
         Size            =   42 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H0000FFFF& 
      Height          =   852 
      Left            =   3000 
      TabIndex        =   1 
      Top             =   -40 
      Width           =   852 
   End 
   Begin VB.Image Image1  
      Height          =   945 
      Left            =   0 
      Picture         =   "frmXSCZ.frx":0000 
      Stretch         =   -1  'True 
      Top             =   0 
      Width           =   4080 
   End 
   Begin MediaPlayerCtl.MediaPlayer MP1  
      Height          =   372 
      Left            =   840 
      TabIndex        =   0 
      Top             =   120 
      Visible         =   0   'False 
      Width           =   1092 
      AudioStream     =   -1 
      AutoSize        =   0   'False 
      AutoStart       =   -1  'True 
      AnimationAtStart=   -1  'True 
      AllowScan       =   -1  'True 
      AllowChangeDisplaySize=   -1  'True 
      AutoRewind      =   0   'False 
      Balance         =   -50 
      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        =   "c:\tv_song\musicbj\1.mp3" 
      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 = "frmXSCZ" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Timer1_Timer() 
'===限时操作================ 
'===给总限时的秒数-1==== 
  Max = Max - 1 
'===给每屏限时的秒数-1==== 
  Mp = Mp - 1 
'===打印到屏幕上==== 
  Label3.Caption = CStr(Max) 
End Sub 
 
Private Sub Timer2_Timer() 
On Error Resume Next 
'===如果背景音乐播放完毕，再随机播放下一首================ 
  If MP1.PlayState = 0 And BuSy = 1 Then 
      MP1.FileName = App.Path + "\musicbj\" + Trim(CStr(Int(Rnd * mBjS))) + ".MP3" 
      MP1.Play 
    ElseIf BuSy = 0 Then 
      'TVsong.Hide 
      TVsong.TVsongTimer.Enabled = False 
      TVsong.CshTimer.Enabled = False 
      TVsong.ZfyTimer.Enabled = False 
      TVsong.GqLbTimer.Enabled = False 
      TVsong.XzGsTimer.Enabled = False 
      TVsong.XzGqTimer.Enabled = False 
      MP1.Pause 
  End If 
End Sub