# Re: 请问如何能使VB内的音乐档不播放呢?

Posted by j on August 27, 1999 at 03:05:07:

In Reply to: 请问如何能使VB内的音乐档不播放呢? posted by 小朋友 on August 26, 1999 at 01:49:11:

: 如何能使内的音乐不断播放,程式码应如何写出呢?

: 而在可否播real audio 或 mp3呢?

: 谢谢!

小弟不知道如何播放Real Audio档案，Mp3档案可去
数位业林Visual Basic下载Mp3控制项或是使用IE 5
所附的Windows Media Player控制项播放

要使音效档连续播放的程式如下：

小弟只会使用 MMControl (Multimedia)控制项连续
播放，小弟只试过*.Wav档而已，其他就不清楚了!?

'在Form里面放置一个MMControl控制项

Private Sub Form_Load()
With MMControl1
.DeviceType = "WAVEAudio"
.FileName = "音效档路径"
.Command = "open"
.Command = "play"
End With
End Sub

Private Sub MMControl1_StatusUpdate()
With MMControl1
If .Mode = mciModeStop Then
.From = 0
.Command = "play"
End If
End With
End Sub

Follow Ups: