永发信息网

用vb怎么编写音乐播放器?

答案:1  悬赏:80  手机版
解决时间 2021-05-10 17:10

能给我说一下用VB具体怎么编写音乐播放器吗(界面,代码)?

谢谢呢

最佳答案

1.如何加载WindowsMediaPlayer,控件:
在VB6.0D的菜单栏找到“工程”——“部件”,在弹出的菜单中,拉动滚动条找到WindowsMediaPlayer,将其前面的复选框选中,点击“应用”“确定”即可,然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。

2.如何播放音乐文件
只需要将WindowsMediaPlayer1.URL赋相应的值即可。
例如要在窗体加载时播放music.mp3这个文件,只要这样写代码。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
注意:其中的\music.mp3是一个相对路径表示当前目录下的文件,即你的工程所保存的位置。

3.如何暂停播放
在command按钮中加入如下代码,即可实现。
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub

4.如何在暂停播放之后继续播放
在command按钮中加入如下代码,即可实现。
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub
如果想实现音乐从头播放,只需要将第二条中播放音乐中代码再写一遍即可。
Private Sub Command5_Click()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub

5.停止播放的音乐(关闭播放器)
在command按钮中加入如下代码,即可实现。
Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub



----------------------------------------------


简单的话 一句话


Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.List(File1.ListIndex)
End Sub

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
谁帮我弄个好的QQ空间?高分送
想思考用英语咋说
洛奇要做主线任务要买什么服务
我的手机被我的同学摔坏了,我该做样做呢?叫
我换了张内存卡,再上手机QQ时显示“您的手机
装备模怎么得,初级或中级或高级的??
c++ 的那些事儿
N81如何还原成原来的版本
小熊梦工厂中,中级通告怎么完成?
手机短信发送失败,电话能打
2010快乐男声 三强
点解DNF更新还久个泡泡卡丁车
制作炫舞唯美图片。
求迈克尔杰克逊《HIStory》MV
求TXT小说下载地址(不需要注册,不需要回复
推荐资讯
美的微波炉透视玻璃门上,里层帖有一块塑料模
《锦衣三剑侠》主题歌
http://202.107.217.51/bbsftp/bd-tsyzn.mp3
同一种手机分几个品质等级
爲什麽有男人和女人
女人最幸福的时刻是那时?
上海的旅游景点有哪些?
爱是怎样的感觉
如何在邮箱下载文件,从QQ邮箱中怎样才能快速
顺德区佛山中国农业银行(顺德桂园支行)怎么去
为什么很想学习,却什么也记不住?
除了用防晒霜,吃什么也防晒(哪些蔬菜或保健
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?