VB中添加什么控件可播放音乐文件,添加的代码是什么?

我已写好一小软件,想加点音乐,但对控件不熟,请高手帮忙,... 我已写好一小软件,想加点音乐,但对控件不熟,请高手帮忙, 展开
 我来答
feiyangqingyun
2008-11-08 · TA获得超过393个赞
知道小有建树答主
回答量:350
采纳率:0%
帮助的人:283万
展开全部
有四种方法:

第一:枣嫌如凳罩手果你仅仅是想播放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控件
设置相关属性
尼欧赵
2008-11-08 · TA获得超过823个赞
知道大有可为答主
回答量:1597
采纳率:0%
帮助的人:1210万
展开全部
声明:
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了!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zUfs6652
推荐于2016-12-05 · TA获得超过4217个赞
知道小有建树答主
回答量:1431
采纳率:0%
帮助的人:1283万
展开全部
Windows Media Player 控渣纯件雹梁册

WindowsMediaPlayer1.Url = "D:\音源宏乐.mp3"
WindowsMediaPlayer1.Controls.Play
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式