有2个基础问题，vb中怎么播放声音文件

[hyq8848]

1
vb中怎么播放声音文件 连续播放多声音文件

2
csql = "Driver={SQL Server};Server=" & ser & ";Database=" & dbname & ";Uid=" & uid & ";Pwd=" & pwd & ";"
msgbox csql
输出的时候 只显示到 Driver={SQL Server};Server=" & ser 后面就没有拉 为什么呀 急死我拉

[hyq8848]

谢谢你 第一个问题 具体怎么用啊 我实在是不会呀
我想实现 连续播放多个文件
分全给你

[zou19820704]

Option Explicit
Private Const SND_APPLICATION = &H80 ' look for application specific association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

[VBToy]

'第一个问题
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim lFlags As Long
Dim lRet As Long
Dim sndName As String '声音文件名
Dim hInst As Long

hInst = App.hInstance
lFlags = SND_RESOURCE + SND_ASYNC + SND_NODEFAULT
lRet = PlaySound(sndName, hInst, lFlags)
第二个问题应该是csql字符串太长了的原因，可以将其改为csql = "Driver={SQL Server};Server=" & ser & vbcrlf & ";Database=" & dbname & ";Uid=" & uid & ";Pwd=" & pwd & ";"
也就是加回车换行符。