Question

vb中添加声音，怎么做？

Answer 1

rivate Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1

Private Sub Form_Load()
Call sndPlaySound("C:\1.wav", SND_ASYNC)
End Sub
更多有关添加声音的代码，请参阅我的博客：
http://hi.baidu.com/zgmg/blog/item/cdec2d7b37527bf80ad18784.html
http://hi.baidu.com/zgmg/blog/item/abf0b951e055052943a75b09.html
http://hi.baidu.com/zgmg/blog/item/527b7daf5d4a40f6fbed50a8.html

Answer 2

利用API中的sndplaysound函数，就可以解决，但是他只能播放wav格式的文件
在常数设置中，可以选择SND_ASYNC 或者SND_LOOP
如果不用API ，则可以用windowsmediaplayer，控件就可以了，还可以加一个列表框控件
windowsmediaplayer.URL = " "
那URL就可以用APP.PATH & "A"
A 就是歌曲的名字，加格式
APP.PATH & "A"
就是可以表示出完整的文件途径

Answer 3

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

调用
q = sndPlaySound(App.Path & "\sy\2.wav", &H1)

Answer 4

没学过API 就用WindowsMediaPlayer 控件
然后把控件设置为不可见，但是这样很浪费资源。

Answer 5

放一个播放控件在窗体上。设置进入窗口时自动运行。设置好播放的文件

Answer 6

是播放吧？看声音文件的格式了，可以用API，也可以用控件

追问

就是进去某个界面时播放一段音乐，我们没学api函数，用控件能说的详细点么？