能给我说一下用VB具体怎么编写音乐播放器吗(界面,代码)?
谢谢呢
能给我说一下用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