知识大全用VB.net2008打造你的影音播放器

Posted 2022-07-17 事件

篇首语：会当凌绝顶，一览众山小。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB.net2008打造你的影音播放器相关的知识，希望对你有一定的参考价值。

用VB.net2008打造你的影音播放器 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　本篇文章的主要开发环境是Visual Studio Visual Studio系列产品一直以来都提供了强大的控件功能然而我们利用这些控件可以编写出功能强大的应用程序本文主要利用微软的最开发工具为大家展示一个应用程序的开发过程让大家对添加/引用控件更加熟悉很适开发工具的初学者具有一定的实用价值

　　打开 Visual Studio 在文件 (File) 菜单上单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中单击 Windows 应用程序(Windows Application) 单击确定 (OK)

　　由于我们需要以Windows Media Player作为播放控件所以我们需要将Windows Media Player的控件添加到我们的工具箱在此之前请安装最新的Windows Media Player SDK或者Windows Media Player播放器即可一般情况下系统都默认安装了这个播放器如果你确定已经安装了请搜索wmp dll这个文件（一般存在\\system \\wmp dll）如搜索完成后直接将此控件拖入我们的控件工具箱即可

　　拖入我们的工具箱

　　选择此控件拖入我们的Form 界面

　　选择Form 窗体在Form 窗体中添加如下控件 OpenFileDialog 控件 Timer 控件 MenuStrip SaveFileDialog FolderBrowserDialog ListBox 控件 HScrollBar 控件

　　个按钮控件分别为 Button Button Button 控件属性设置如下 Button Text: 打开 Button Text: 播放 Button Text: 停止 MenuStrip 添加菜单选项文件 MenuStrip 菜单选项打开 MenuStrip 菜单选项打开目录 MenuStrip 菜单选项关闭

　　进入Button _Click事件

　　 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click OpenFileDialog InitialDirectory = c:\\ OpenFileDialog Filter = mp 文件(* mp )|* mp |CD音频文件(* wav)|* wav| & 视频（* asf)|* asf|所有文件(* *)|* * If OpenFileDialog ShowDialog = Windows Forms DialogResult OK Then AxWindowsMediaPlayer URL = OpenFileDialog FileName ListBox Items Add(OpenFileDialog FileName) End IfEnd Sub

　　进入Button _Click事件

　　 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click If Button Text = 播放 Then AxWindowsMediaPlayer Ctlcontrols pause() Button Text = 暂停 Else AxWindowsMediaPlayer Ctlcontrols play() Button Text = 播放 End If End Sub

　　 Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System Object ByVal e As System EventArgs) Handles 打开ToolStripMenuItem Click Button _Click(sender e)End Sub

　　进入Button _Click事件

　　 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click AxWindowsMediaPlayer Ctlcontrols stop() 停止 AxWindowsMediaPlayer Ctlcontrols currentPosition() = 重新开始 AxWindowsMediaPlayer URL = End Sub

　　进入打开ToolStripMenuItem_Click事件进入打开目录ToolStripMenuItem_Click事件 Private Sub 打开目录ToolStripMenuItem_Click(ByVal sender As System Object ByVal e As System EventArgs) Handles 打开目录ToolStripMenuItem Click

　　 If FolderBrowserDialog ShowDialog = Windows Forms DialogResult OK Then Dim fi As IO FileInfo Dim dir As IO DirectoryInfo = New IO DirectoryInfo(FolderBrowserDialog SelectedPath) Dim file As String For Each fi In dir GetFiles( * mp ) file = fi FullName ListBox Items Add(file) Next End IfEnd Sub

　　进入关闭ToolStripMenuItem_Click事件

　　 Private Sub 关闭ToolStripMenuItem_Click(ByVal sender As System Object ByVal e As System EventArgs) Handles 关闭ToolStripMenuItem Click 关闭 If MessageBox Show( 请确定你要关闭吗？关闭 MessageBoxButtons OKCancel) = Windows Forms DialogResult OK Then Close() Else Return End If End Sub

　　进入Timer _Tick事件

　　 Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick HScrollBar Value = AxWindowsMediaPlayer Ctlcontrols currentPosition End Sub

　　进入HScrollBar _Scroll事件

　　 Private Sub HScrollBar _Scroll(ByVal sender As System Object ByVal e As System Windows Forms ScrollEventArgs) Handles HScrollBar Scroll 进度条 AxWindowsMediaPlayer Ctlcontrols currentPosition() = HScrollBar Value End Sub

　　进入ListBox _DoubleClick事件

　　 Private Sub ListBox _DoubleClick(ByVal sender As Object ByVal e As System EventArgs) Handles ListBox DoubleClick AxWindowsMediaPlayer URL = ListBox SelectedItem ToStringEnd Sub 代码已经输入完毕接下来我们需要运行程序进行测试

cha138/Article/program/net/201311/12359

知识大全 用VB.net2008打造你的影音播放器

知识大全用VB.net2008打造你的影音播放器