如何在vb中加音乐

来源：百度知道 编辑：UC知道 时间：2024/05/27 16:50:32
想用VB编写一个游戏 想游戏开始是播放音乐 怎样添加音乐呢
我是新手 帮忙说的清楚些. 谢谢咯~~~~

1.可以用API:
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long

Private Sub Form_load()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV" '此处为路径
Result = sndPlaySound(SoundFile, 1)
End Sub
'
'
2.使用WINDOWS MEDIA PLAYER控件
'
在窗体添加一个WINDOWS MEDIA PLAYER,然后修改代码如下:
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "F:\赤道和北极.mp3"
WindowsMediaPlayer1.Controls.play
End Sub
'
'
3.使用Multimedia MCI控件,在窗体加入Microsoft Multimedia controls控件,修改代码:
'
Private Sub Form_Load()
MMControl1.Visible = False
MMControl1.FileName = "F:\赤道和北极.mp3"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub
&