(急)
还有一个问题是给MDIForm1窗体添加背景音乐,我试用了很多方法都不行例如如下:
模块代码:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Function PlaySound(File As String)
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
wFlags% = SND_ASYNC Or SND_NODEFAULT
Svar = sndPlaySound(App.Path & "\" & File & ".wav", wFlags%)
End Function
窗体代码:
Private Sub Form_Load()
PlaySound "文件名(不带扩展名)"
End Sub
提示wFlags%为定义

还有一种方法是:
添加mmcontrol控件，在引用中Microsoft Multimedia Control 6.0(sp3)
load 中
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "D:\PlatformTicket\Windows 登录音.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
然后可以在定时器里
If MMControl1.mode = 525 Then '检查是否停止
MMControl1.Command = "Prev"
MMControl1.Command = "Play"
End If
进行循环播放
最后在unload中
MMControl1.Command = "Close"
关闭播放器

问题是怎么在MDIForm1窗体里添加mmcontrol控件

你知道那个API函数mciexecute的用法吗
它可以用来播发背景音乐 是专用的

我不知道这个API函数mcieXecute的用法！~
那你帮我用这个API函数mciexecute做一个在MDIForm1窗体里添加背景音乐的程序，好吧
我现在急用啊，谢谢了！~
用什么方法都行，只要能在MDIForm1窗体添加背景音乐就行，对了最好要可以连续的播放啊

http://tech.sina.com.cn/c/2035.html
这个网站有介绍在VB中如何制作背景音乐

还是用 sndplaysound 妥当，不过只能播放 wav 文件
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Function PlaySound(File As String)
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Svar = sndPlaySound(App.Path & "\" & File & ".wav", SND_ASYNC Or SND_NODEFAULT)
End Function

谢谢各位!~~

问题是解决了,可是新的问题又存在了,在放歌的时候不能操作MDIForm窗体,有什么办法可以边放歌边操作窗体啊,
还请大家帮忙指点啊

恩的确是不错 可行
但是只可以放一遍
如果要不断循环 怎么办？

要循环就加个常数
sndPlaySound App.Path & "\" & File & ".wav", SND_ASYNC Or SND_NODEFAULT Or SND_LOOP

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

　　Const SND_SYNC = &&H0

　　Const SND_ASYNC = &&H1

　　Const SND_NODEFAULT = &&H2

　　Const SND_MEMORY = &&H4

　　Const SND_ALIAS = &&H10000

　　Const SND_FILENAME = &&H20000

　　Const SND_RESOURCE = &&H40004

　　Const SND_ALIAS_ID = &&H110000

　　Const SND_ALIAS_START = 0

　　Const SND_LOOP = &&H8

　　Const SND_NOSTOP = &&H10

　　Const SND_VALID = &&H1F

　　Const SND_NOWAIT = &&H2000

　　Const SND_VALIDFLAGS = &&H17201F

　　Const SND_RESERVED = &&HFF000000

　　Const SND_TYPE_MASK = &&H170007

　　Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long

　　2、在窗中激活事件中加入以下代码：

　　Private Sub Form_Activate()

　　Dim ReturnValue As Long

　　ReturnValue = sndPlaySound("C:windowsMEDIATADA.WAV",SND_SYNC)End Sub


那位高手能帮我解释一下这段代码吗?小弟我实在读不懂啊!