vb编程入门 用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.pauseEnd Sub4.如何在暂停播放之后继续播放在command按钮中加入如下代码，即可实现。Private Sub Command3_Click()WindowsMediaPlayer1.Controls.playEnd Sub如果想实现音乐从头播放，只需要将第二条中播放音乐中代码再写一遍即可。Private Sub Command5_Click()WindowsMediaPlayer1.URL = VB.App.Path & "music.mp3"End Sub5.停止播放的音乐（关闭播放器）在command按钮中加入如下代码，即可实现。Private Sub Command1_Click()WindowsMediaPlayer1.CloseEnd Sub ----------------------------------------------简单的话 一句话Private Sub File1_DblClick()WindowsMediaPlayer1.URL = File1.Path & "" & File1.List(File1.ListIndex)End Sub

vb编程入门 vb入门 vb教程从入门到精通

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。