vb中放歌

Private Declare Function mciSendString Lib "Winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal Callback As Long) As Long

private Sub PlaySound(FileName)
Dim Cmd As String
Call mciSendString("close MyMusic", 0, 0, 0)
Cmd = "open " & FileName & " alias MyMusic"
Call mciSendString(Cmd, 0, 0, 0)
Call mciSendString("play MyMusic", 0, 0, 0)
End Sub

private sub form_click()
path="c:\windows\media\ding.wav"
Call PlaySound(Chr(34) & path & Chr(34))
end sub

这个东西还可以播MP3和avi/wmv视频呢，只要把path的属性改成你的MP3/视频的全路径即可。快去试试吧~~呵呵

用API来放吧：
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags