知识大全 用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] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 本
VB.net2008打造精美电子日历程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! Visu
用VB.net2008编写屏幕抓捕程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!VisualS
用VB.net2008编写幻灯片程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!VisualSt
VB.net2008精彩实例,窗体应用技巧[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
VB.NET中声音的播放 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 由VB升级为NET后有些人
一个提醒程序最典型的就是闹钟程序网上有不少个性化的提醒程序下载但是大部分都是以时间为主的闹钟提醒我们也可以用来打造一个适合自己的提醒程序比如监控一个某个应用程序的变化然后发出声音提醒自己等等 一
知识大全 暴风影音不能直接播放只能在程序里边选择播放是怎么回事
暴风影音不能直接播放只能在程序里边选择播放是怎么回事那是因为你电脑里面安装有其它的视频播放软件,而你没有把暴风设置为视频默认打开程序,所以只能在专业程序里面选择暴风打开。设置默认程序,XP下需要用36
VB.net2008精彩实例,窗体应用技巧 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 本篇文
VB.net2008精彩实例,窗体应用技巧[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!