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

Posted 2022-07-16 菜单

篇首语：不要以为你的努力可以一劳永逸，权当做你始终一无所有。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB.net2008打造你的影音播放器[1]相关的知识，希望对你有一定的参考价值。

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

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

　　打开 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

cha138/Article/program/net/201311/14947

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

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