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

Posted 事件

篇首语:会当凌绝顶,一览众山小。本文由小常识网(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打造你的影音播放器[2]

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

知识大全 VB.net2008打造精美电子日历程序

VB.net2008打造精美电子日历程序  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  Visu

知识大全 用VB.net2008编写屏幕抓捕程序

用VB.net2008编写屏幕抓捕程序  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!VisualS

知识大全 用VB.net2008编写幻灯片程序

用VB.net2008编写幻灯片程序  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!VisualSt

知识大全 VB.NET中声音的播放

VB.NET中声音的播放  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 由VB升级为NET后有些人

知识大全 用vb.net实现闹钟提醒程序

  一个提醒程序最典型的就是闹钟程序网上有不少个性化的提醒程序下载但是大部分都是以时间为主的闹钟提醒我们也可以用来打造一个适合自己的提醒程序比如监控一个某个应用程序的变化然后发出声音提醒自己等等  一

知识大全 暴风影音不能直接播放只能在程序里边选择播放是怎么回事

暴风影音不能直接播放只能在程序里边选择播放是怎么回事那是因为你电脑里面安装有其它的视频播放软件,而你没有把暴风设置为视频默认打开程序,所以只能在专业程序里面选择暴风打开。设置默认程序,XP下需要用36

知识大全 VB.net2008精彩实例,窗体应用技巧

VB.net2008精彩实例,窗体应用技巧  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  本篇文

知识大全 VB.net2008精彩实例,窗体应用技巧[1]

VB.net2008精彩实例,窗体应用技巧[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  

知识大全 VB.net2008精彩实例,窗体应用技巧[2]

VB.net2008精彩实例,窗体应用技巧[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!