用VB.net2008打造你的影音播放器

用VB.net2008打造你的影音播放器  

　　本篇文章的主要开发环境是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    代码已经输入完毕 接下来我们需要运行程序进行测试