3个回答
展开全部
有四种方法:
第一:枣嫌如凳罩手果你仅仅是想播放WAV这样的背景音乐的话,可闷穗以使用API函数,不用添加控件,这样可以减少系统资源,方法如下:
在通用中声明:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
接着在form 的 load 事件中写如下代码:
Call PlaySound(App.Path + "音乐名字.wav", 0&, &H1)//必须在当前文件夹下
第二:添加Windows Media Player 控件
把Windows Media Player 控件visible 属性设置为false
url 属性设置为 音乐文件的绝对路径并且加上音乐文件名字
或者在load 事件中设置此属性
第三:添加 real player 控件
visible 属性设置为 false
注意,此时设置的是 source 属性为音乐文件而不是url属性
第四:microsoft multimedia control 6.0控件
设置相关属性
第一:枣嫌如凳罩手果你仅仅是想播放WAV这样的背景音乐的话,可闷穗以使用API函数,不用添加控件,这样可以减少系统资源,方法如下:
在通用中声明:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
接着在form 的 load 事件中写如下代码:
Call PlaySound(App.Path + "音乐名字.wav", 0&, &H1)//必须在当前文件夹下
第二:添加Windows Media Player 控件
把Windows Media Player 控件visible 属性设置为false
url 属性设置为 音乐文件的绝对路径并且加上音乐文件名字
或者在load 事件中设置此属性
第三:添加 real player 控件
visible 属性设置为 false
注意,此时设置的是 source 属性为音乐文件而不是url属性
第四:microsoft multimedia control 6.0控件
设置相关属性
展开全部
声明:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength
As Long, ByVal hwndCallback As Long) As Long
代码:
Dim returnstring As String
FileName As String
returnstring = Space(127)
FileName = "C:\团旦A1.avi"
erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
'记着关闭!
erg = mciSendString("close video", returnstring, 127, 0)
如果声音在资源文件内
假设这个声音文件的关键字为"HAHA",先定义一个API函敏李数:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, Byval uFlags As Long) As Long
注意:必须把的lpszSoundName类型设成Any,不能按照win32api.txt文件桥或迟中的定义
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
再输入如下代码:
Dim Toms() As Byte
Toms=LoadResData("HAHA","WAVE")
sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC
这样就OK了!
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength
As Long, ByVal hwndCallback As Long) As Long
代码:
Dim returnstring As String
FileName As String
returnstring = Space(127)
FileName = "C:\团旦A1.avi"
erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
'记着关闭!
erg = mciSendString("close video", returnstring, 127, 0)
如果声音在资源文件内
假设这个声音文件的关键字为"HAHA",先定义一个API函敏李数:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, Byval uFlags As Long) As Long
注意:必须把的lpszSoundName类型设成Any,不能按照win32api.txt文件桥或迟中的定义
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
再输入如下代码:
Dim Toms() As Byte
Toms=LoadResData("HAHA","WAVE")
sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC
这样就OK了!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Windows Media Player 控渣纯件雹梁册
WindowsMediaPlayer1.Url = "D:\音源宏乐.mp3"
WindowsMediaPlayer1.Controls.Play
WindowsMediaPlayer1.Url = "D:\音源宏乐.mp3"
WindowsMediaPlayer1.Controls.Play
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询