风流家族 lol下载:如果是由于xp的medioplayer的问题而看不清.重下载一个medioplayer有没有用啊
来源:百度文库 编辑:神马品牌网 时间:2024/05/02 18:26:58
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