vb mmcontrol控件的低b问题.

来源：百度知道 编辑：UC知道 时间：2024/05/26 05:47:33
如何利用mmcontrol控件播放一段声音的代码.
还有就是mmcontrol.DeviceType的属性有那些.分别是播放什么格式的.?谢谢.

不要跟我说用api.我考试就是要用mmcontrol.

使用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 =