vb中我的程序按钮声音怎么只能响一次?

来源:百度知道 编辑:UC知道 时间:2024/05/30 07:41:02
vb中下面我的程序按钮声音怎么只能响一次(再点就不响了)?怎么能让它每次点击都响呢?代码是什么?
Private Sub Command1_Click()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.filename = "D:\Program Files\Microsoft Visual Studio\vb工程文件\图片及音频文件\folder.wav"

MMControl1.Command = "Open"
MMControl1.Command = "Play"
基础知识.Show

End Sub
------------------------------------------------------------
还有个问题: 为什么在编辑的时候把这段代码也加上后,只要点击一次
上边代码的按钮,就不能结束下面代码中的音乐了?怎么结束? 代码是什么?
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.filename = "D:\Program Files\Microsoft Visual Studio\vb工程文件\图片及音频文件\致爱丽丝.wav"

Private Sub Command1_Click()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.filename = "D:\Program Files\Microsoft Visual Studio\vb工程文件\图片及音频文件\folder.wav"

MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.Command = "Stop" '停止播放
基础知识.Show

End Sub