使用MMControl控件播放媒體文件

本例設計了一個多媒體播放器，它能夠播放WAV、MIDI和AVI文件。

Private Sub Check2_Click()
    If Check2.Value = 1 Then
        '關閉AVI文件的聲音
        MMControl1.Silent = True
    Else
        '打開AVI文件的聲音
        MMControl1.Silent = False
    End If
End Sub

Private Sub ComClose_Click()
    MMControl1.Command = "close"
End Sub


Private Sub ComPlay_Click()
    MMControl1.Command = "close"
    DiaOpen.Filter = "Wav文件|*.wav|MIDI文件|*.mid|AVI文件|*.avi"
    DiaOpen.ShowOpen
    MMControl1.FileName = DiaOpen.FileName
    MMControl1.Command = "open"
    MMControl1.Command = "play"
    LabFile.Caption = DiaOpen.FileName
End Sub


Private Sub Form_Load()
    '初始化
    MMControl1.Visible = False
    MMControl1.Notify = True
    MMControl1.Shareable = False
    MMControl1.TimeFormat = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MMControl1.Command = "close"
End Sub

Private Sub MMControl1_StatusUpdate()
    '計算文件總長度，單位為秒
    LabLen.Caption = MMControl1.Length / 1000
    '動態(tài)顯示當前的播放位置
    LabPlay.Caption = MMControl1.Position / 1000
End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
    '如果文件播放結束
    If MMControl1.Position = MMControl1.Length Then
        '倒回止文件的起點
        MMControl1.Command = "prev"
        '如果選擇了自動重復播放
        If Check1.Value = 1 Then
            MMControl1.Command = "play"
        End If
    End If
End Sub