Question

VB中如何在单击command按钮时播放一小段声音，类似于按键音的。

音频是本地文件而且是WAV格式，没网的时候也能有按键音，希望代码能简短些，非常感谢

Answer 1

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000

Private Sub Command1_Click()
PlaySound "e:\tmp\2.wav", 0&, SND_ASYNC + SND_FILENAME
MsgBox "听到声音了吗？"
End Sub

追问

声音是有了可是不受按键控制，只要进入那个页面不单击按钮声音也会出来

追答

你的播放命令是放在哪里的？能把代码放出来看看吗？

追问

我是对VB不怎么在行，所以您给的代码我是完全复制的，然后按键是插在一张图片上的。这个是否还需要插入其他控件？

追答

不知道你是什么个情况。我这边是完全正常的。

追问

前半段是放在通用段，如果去掉MSGbox会不会有影响呢？按键放在了frame里。

追答

播放声音的命令（PlaySound ...）一定要放在按钮的事件中（如Command1_Click）。
MsgBox可删掉，换成你自己的语句（就是按键后要处理的事情，不可能只是为了听声音吧？）

追问

那其他按钮要想发声的话，只需要播放声音的命令就可以了吗？

 

QAQ刚才还有声音，现在连声音都没有了，代码在下图，非常感谢~

Answer 2

Private Sub Command1_Click()
WindowsMediaPlayer1.Visible = False
On Error GoTo mp3
WindowsMediaPlayer1.URL = "c:\欢迎使用.mp3"
WindowsMediaPlayer1.Controls.Play
mp3:
End Sub

追问

系统提示说是无效路径