【编者按】：网学网VB类作品为您提供基于VB的媒体播放器的实现参考，解决您在基于VB的媒体播放器的实现学习中工作中的难题，参考学习。
4.2 系统基本功能 （1）【打开】 首先从本地电脑打开任意媒体文件（文件格式前以述及），然后点击【播放】，选中的媒体文件在主界面中显示，主界面下方显示文件路径，如图所示：
（2）【播放列表】 选择媒体文件以后，媒体信息列表下方显示该文件路径，点击添加，添加该媒体文件到播放列表中，此判断是否有相同的媒体，如果当前媒体已经存在，则不放入播放列表中提示该文件已经存在。 （3）【保存】主要是一个媒体文件的复制过程。当媒体文件正在播放时，点击保存，出现文件另存为对话框，选择要保存媒体文件的目录，在对话框中点击保存，提示媒体文件保存成功。
以上系统界面功能的相关代码如下： Option Explicit ''--------------------窗体移动 Dim intOldX As Integer Dim intOldy As Integer Dim boolMouseFlag As Boolean ''------------------------ Dim CurName As String ''当前的歌曲名称 Private Sub closeList(isShow As Boolean) ''当按钮不是选择播放时 隐藏播放列表 If isShow = False Then Me.Width = 8930 Else Me.Width = 11970 End If End Sub Private Sub btnBack_Click() ''当点击后退按钮时将当前播放文件的位置向前移动1个位置 closeList False If Me.WindowsMediaPlayer1.URL <> "" Then If Me.WindowsMediaPlayer1.Controls.currentPosition > 0 Then Me.WindowsMediaPlayer1.Controls.currentPosition = Me.WindowsMediaPlayer1.Controls.currentPosition - 1 End If End If End Sub Private Sub btnDown_Click() ''播放下一曲 closeList False Dim str As String str = getText(CurName) If str <> "" Then CurName = str Me.WindowsMediaPlayer1.Controls.stop Me.WindowsMediaPlayer1.URL = str Me.WindowsMediaPlayer1.Controls.play Me.Text1.Text = "当前的播放文件为" & CurName End If End Sub
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
