Question

怎样编一个vb代码使其能播放一首歌

Answer 1

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0 '播 放WAV文件， 播放完毕后将控制转移回你的应用程序中。
Const SND_ASYNC = &H1 '播 放WAV文件，然后将控制立即转移回你应用程序中，而不管对WAV文件的播放是否结束。
Const SND_NODEFAULT = &H2 '不要播放缺省的WAV文件， 以免发生某些意外的错误。
Const SND_MEMORY = &H4
Const SND_ALIAS = &H10000
Const SND_FILENAME = &H20000
Const SND_RESOURCE = &H40004
Const SND_ALIAS_ID = &H110000
Const SND_ALIAS_START = 0
Const SND_LOOP = &H8 '环 播 放WAV 文 件。
Const SND_NOSTOP = &H10 '在开始播放其它的WAV文件之前,需要完成对本WAV文件的播放
Const SND_VALID = &H1F
Const SND_NOWAIT = &H2000
Const SND_validflags = &H17201F
Const SND_RESERVED = &HFF000000
Const SND_TYPE_MASK = &H170007

使用方法如下：
fullpath为地址
holdme.wav为歌曲文件
ReturnValue = sndPlaySound(fullpath + "holdme.wav", SND_ASYNC)

Answer 2

工程 - 部件
把microsoft multimedia control 6.0
控件添加进来。
使用这个控件就可以播放歌曲了。