Question

form1中有4个mmcontrol，五个cmdbtn，我想单击一个按钮播放一个音乐，点击stop停止音乐，要怎样写？

如题

Answer 1

private sub command1_click() '播放
mmcontrol..Command = "play"
end sub
private sub command2_click() '停止
mmcontrol..Command = "stop"
end sub

追问

我这里有4个按钮，我想单击一个按钮播放一个音乐，实现点唱功能。
提示未找到方法或数据成员。
这行变黄：Private Sub Option1_Click()
“.filename=" 被选中：MMControl1.FileName = "D:\1m.wav"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Private Sub Option2_Click()
MMControl2.FileName = "D:\5m.wav"
MMControl2.Command = "open"
MMControl2.Command = "play"
End Sub

追答

Private Sub Option1_Click()
MMControl1.FileName = "D:\1m.wav"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

追问

还是不行

追答

这个绝对行！否则就是你写的问题了
Private Sub Option1_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
MMControl1.FileName = "D:\2.avi"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub