如何在VB里加入声音?

在一个新建的窗体中，加入一个MMControl控掘吵件

控件在工具箱空白处点击右键--〉部件---〉Microsoft

Multimedia

Control

6.0

在窗体中添加下面这敏带段代码:

Private

Sub

Form_Load()

MMC.FileName

=

App.Path

+

"\*.mp3"

MMC.Command

=

"Open"

MMC.Command

=

"Play"桥散芦

End

Sub

例：Rem 添加三个控件，一脊亮个按钮Command，一个计时器Timer，一个文本框Text，自己在窗体添加

Private Sub Command1_Click()

Static flag As Boolean

If flag = True Then

Command1.Caption = "开始"

Timer1.Enabled = False

Else

Command1.Caption = "暂停"

Timer1.Enabled = True

End If

flag = Not flag

End Sub

Private Sub Form_Load()

Timer1.Interval = 10

Timer1.Enabled = False

Command1.Caption = "开始"

Text1 = ""

End Sub

Private Sub Timer1_Timer()

Randomize

Text1 = Int(351 * Rnd)

End Sub

大体意思是：0-350随机选择，开始，停止控制，在开始时添加声音，停止时声音停止。 解决方法：在面板添加一个MMControl1控件

在“开始”下漏渣面输入返野悄以下代码，开始播放

MMControl1.FileName = 播放音乐的绝对路径

MMControl1.Command = "open"

MMControl1.Command = "play"

在“停止”下面，输入

MMControl1.Command = "Close"

可以停止音乐播放

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

---