最后一炮是手游吗:如果是由于xp的medioplayer的问题而看不清.重下载一个medioplayer有没有用啊

wzh7890tao 2005-7-5 04:00

　　Private Declare Function GetDriveType Lib "kernel3

　　 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

　　Private Const DRIVE_CDROM = 5
　　Dim temp As Integer, hh As Integer, mm As Integer, ss As Integer
　　Dim MFile As String
　　Private Sub double_Click()
　　temp = 2
　　Form1.Height = 4125 * 2
　　Form1.Width = 5100 * 2
　　MediaPlayer1.Width = 4550 * 2 + 480
　　MediaPlayer1.Height = 3375 * 2 + 850
　　Label1.Left = MediaPlayer1.Left + MediaPlayer1.Width - Label1.Width
　　End Sub
　　Private Sub exit_Click()
　　End
　　End Sub
　　Private Sub fopen_Click()
　　CommonDialon1.ShowOpen
　　MFile = CommonDialon1.FileName
　　MediaPlayer1.FileName = MFile
　　MediaPlayer1.AutoStart = True
　　Label1.Caption = "00:00:00"
　　Timer1.Enabled = True

　　End Sub
　　Private Sub Form_Load()
　　Dim Drivename As String, I As Integer
　　temp = 1
　　hh = 0
　　mm = 0
　　ss = 0
　　Form1.Height = 4325
　　Form1.Width = 5100
　　MediaPlayer1.Top = 200
　　MediaPlayer1.Width = 4550
　　MediaPlayer1.Height = 3375
　　Label1.Left = MediaPlayer1.Left + MediaPlayer1.Width - Label1.Width
　　CommonDialog1.Filter = "影像文件(*.Avi;*.Mpg;*.Dat)|(*.Avi;*.MPG;*.DAT)"
　　On Error Resume Next
　　Drivename = ""
　　' 查找 CD_ROM的驱动器
　　For I = 65 To 90
　　If GetDriveType(Chr$(I) & ":/") = DRIVE_CDROM Then
　　Drivename = Chr$(I) & ":"
　　Exit For
　　End If
　　Next
　　If Drivename = "" Then
　　A = MsgBox("找不到 CD_ROM ! ", 0 + 6, "提示信息")
　　Else
　　MFile = Drivename + "/Mpegav/Music01.dat"
　　MediaPlayer1.FileName = MFile
　　MediaPlayer1.AutoStart = True
　　Label1.Caption = "00:00:00"
　　Timer1.Enabled = True
　　End If

　　End Sub
　　Private Sub Form_Resize()
　　If temp = 1 Then
　　Form1.Height = 4325
　　Form1.Width = 5100
　　MediaPlayer1.Width = 4550
　　MediaPlayer1.Height = 3375
　　Label1.Left = MediaPlayer1.Left + MediaPlayer1.Width - Label1.Width
　　Else
　　Form1.Height = 4325 * 2
　　Form1.Width = 5100 * 2
　　MediaPlayer1.Width = 4550 * 2 + 480
　　mediaplay1.Height = 3375 * 2 + 850
　　Label1.Left = MediaPlayer1.Left + MediaPlayer1.Width - Label1.Width
　　End If
　　End Sub
　　Private Sub full_Click()
　　If full.Checked = False Then
　　full.CheckMed = True
　　ediaPlayer1.EnableFullScreenControls = True
　　Else
　　full.Checked = False
　　MediaPlayer1.EnableFullScreenControls = False
　　End If
　　End Sub
　　Private Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
　　If NewState = 1 Then Timer1.Enabled = False
　　If NewState = 2 Then Timer1.Enabled = True
　　If NewState = 0 Then
　　Timer1.Enabled = False
　　hh = 0
　　ss = 0
　　mm = 0
　　End If
　　End Sub
　　Private Sub nommal_Click()
　　temp = 1
　　Form1.Height = 4125
　　Form1.Width = 5100
　　MediaPlayer1.Width = 4550
　　MediaPlayer1.Height = 3375
　　End Sub

　　Private Sub Timer1_Timer()
　　ss = ss + 1
　　If ss >= 60 Then
　　mm = mm + 1
　　ss = 0
　　If mm >= 60 Then
　　hh = hh + 1
　　mm = 0
　　End If
　　End If
　　Label1.Caption = Format$(hh, "00") + ":" + Format$(ss, "00")
　　End Sub