如果是由于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 S