Question

VB怎么添加声音播放？

如题：我只要代码，因为我是个菜鸟。

Answer 1

例：Rem 添加三个控件，一个按钮Command，一个计时器Timer，一个文本框Text，自己在窗体添加

Private Sub Command1_Click()
Static flag As Boolean
If flag = True Then
Command1.Caption = "开始"
Timer1.Enabled = False
Else
Command1.Caption = "暂停"
Timer1.Enabled = True
End If
flag = Not flag
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Command1.Caption = "开始"
Text1 = ""
End Sub

Private Sub Timer1_Timer()
Randomize
Text1 = Int(351 * Rnd)
End Sub
大体意思是：0-350随机选择，开始，停止控制，在开始时添加声音，停止时声音停止。 解决方法：在面板添加一个MMControl1控件
在“开始”下面输入以下代码，开始播放
MMControl1.FileName = 播放音乐的绝对路径
MMControl1.Command = "open"
MMControl1.Command = "play"
在“停止”下面，输入
MMControl1.Command = "Close"
可以停止音乐播放