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

Posted 事件

篇首语:努力一点,现在想要的以后你都会有。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 用VB.net2008打造你的影音播放器[2]相关的知识,希望对你有一定的参考价值。

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

  进入 打开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/14946

相关参考

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

用VB.net2008打造你的影音播放器[1]  以下文字资料是由(全榜网网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.net2008精彩实例,窗体应用技巧[2]

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

知识大全 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)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!