所需物件：PictureBox(1),Label(6),CommandButton(2),CommonDialog(1),MMControl(1)。Const INTERVAL = 1000Dim CurVal As DoublePrivate Sub CmdEnd_Click()MMControl1.Command = "stop"MMControl1.Command = "close"EndEnd SubPrivate Sub CmdOpen_Click()MMControl1.Command = "stop"MMControl1.Command = "close"Close #1On Error GoTo errhandlerCMDlg.Filter = "音效档(*.wav;*.mid) |*.wav;*.mid"CMDlg.FilterIndex = 1CMDlg.Action = 1Open CMDlg.filename For Input As #1If Right$(CMDlg.filename, 3) = "wav" ThenMMControl1.DeviceType = "waveaudio"ElseMMControl1.DeviceType = "sequencer"End IfMMControl1.filename = CMDlg.filenameMMControl1.Command = "open"CurVal = 0#MMControl1.UpdateInterval = 0errhandler:Exit SubEnd SubPrivate Sub Form_Load()Label1.Caption = "音效档名："Label2.Caption = "总共时间："Label3.Caption = "目前位置："MMControl1.UpdateInterval = 0End SubPrivate Sub Form_Unload(Cancel As Integer)Const MCI_MODE_NOT_OPEN = 524If Not MMControl1.Mode = MCI_MODE_NOT_OPEN ThenMMControl1.Command = "close"End IfEnd SubPrivate Sub MMControl1_PauseClick(Cancel As Integer)MMControl1.UpdateInterval = 0CurVal = CurValEnd SubPrivate Sub MMControl1_PlayClick(Cancel As Integer)MMControl1.UpdateInterval = INTERVALEnd SubPrivate Sub MMControl1_PrevClick(Cancel As Integer)CurVal = 0#End SubPrivate Sub MMControl1_StatusUpdate()MMControl1.TimeFormat = 0CurVal = CurVal + MMControl1.UpdateInterval + 54Now_position = CurValNow_Min = Int(Now_position / 1000 / 60)Now_Sec = Int(Now_position / 1000) Mod 60Total_Min = Int(MMControl1.Length / 1000 / 60)Total_Sec = Int(MMControl1.Length / 1000) Mod 60Label4.Caption = MMControl1.filenameLabel5.Caption = Format(Total_Min, "00") + ":" + Format(Total_Sec, "00")Label6.Caption = Format(Now_Min, "00") + ":" + Format(Now_Sec, "00")If MMControl1.PlayEnabled = False And Now_Min = Total_Min And Now_Sec = Total_Sec ThenCurVal = 0#MMControl1.UpdateInterval = 0MMControl1.Command = "prev"MMControl1.Command = "stop"End IfEnd SubPrivate Sub MMControl1_StopClick(Cancel As Integer)CurVal = 0#MMControl1.UpdateInterval = 0MMControl1.Command = "prev"End Sub--------------------------------------------------
评论