大便流鲜血严重吗:谁会用vb 打开音乐

用MCI控件

你可以用API函数来实现播放声音，举个例子：
假设你要播放D盘下的sound.wav

在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub

在窗体中输入以下代码
Private Sub Form_Load()
PlaySound "D:\sound.wav"
End Sub

P.S.你还可以用MMControl控件来播放WAV格式的音频，不过反应时间比较慢，或者是WMP(Windows Media Player)控件也行，都很好用的。两三行代码就能搞定！

Dim path As String = Application.StartupPath + "\" + "xxx.mp3"
Process.Start(path)

注：先建立一个路径path，指定文件的位置，xxx.mp3是文件名
Process.Start(path) 是开始播放

希望能有帮助