永发信息网

VB中的WindowsMediaPlayer控件怎么播放在同一目录上的mp3文件啊?

答案:3  悬赏:50  手机版
解决时间 2021-05-11 03:02
.........
最佳答案

首先列出目录下的所有MP3文件并赋给某个数组变量,然后再播放。没时间帮你写,只能说一下方法了


Private Sub Command1_Click()
Dim file As String
file = Dir("C:\windows\*.mp3") '改成绝对路径,这个变量换成数组的,利用FOR来赋值,得到正确的文件路径后就再播放就可以了,自己完善一下吧
Do While file <> ""
Print file
file = Dir
Loop
End Sub

全部回答

WindowsMediaPlayer1.URL =App.Path & "\歌曲名.mp3"(相对路径的写法)

WindowsMediaPlayer1.Controls.play

你可以试试

Private Sub Command1_Click() WindowsMediaPlayer1.URL = "xxx.mp3" ' 这里换为歌曲 的路径 WindowsMediaPlayer1.Controls.play End Sub 同一目录下就是这样了,无需指定路径,直接xxx.mp3就行
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
谁有cs1.5作弊器
跑跑卡丁车金牌网吧奖励和隐身可以一起用吗
DNF亡灵邦腿和活力腰带各多少YXB还有属性加的
问道最快获得宝宝水的方法!别告诉我去收啊!
房子楼上隔音差怎么办,高层楼房隔音不好怎么
闫德利的博客地址
谁推荐个厉害点的免费杀毒软件啊??谢谢了``
谁知道行货N86和N96的价格 哪个比较好一点
一句特别感动的话送给爸爸
876399889这个号怎么样
男生女生金版怎么下载电子书
传世是什么时候开的啊
重庆黄鳝卖多少钱一斤?
DELL STUDIO1435Vista系统怎么改成XP系统
吉首大学的通知书咋还没来勒我都等的....#_#
推荐资讯
初三开学摸底考考什么?
我的电脑不知道是怎么了,网速太慢了,不是网
有没有像high歌这种类型的歌?好唱一点的
今想没恨爱为快你在世过有一乐好生我情不真忍
phbimage什么文件?
如何在家教育孩子?
qq农场经验有上限吗?
冻伤了 怎么快速好(送QQ会员)
质检部怎么翻译
你是谁的歌词?
爱情止损是什么意思,止损线和预警线代表什么
六年级上册数学 分数除法单元测试三答案
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?