注册登录

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

时间:2016-02-24 16:45 来源: 我爱IT技术网作者:佚名

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【用VB.net2008打造你的影音播放器】，下面是详细的分享！

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

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

打开 Visual Studio 2008在文件 (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这个文件（一般存在\system32\wmp.dll），如搜索完成后直接将此控件拖入我们的控件工具箱即可。

拖入我们的工具箱

选择此控件拖入我们的Form1界面

选择Form1窗体，在Form1窗体中添加如下控件：
OpenFileDialog1控件、Timer1控件、MenuStrip1、SaveFileDialog1、FolderBrowserDialog1 ListBox1控件、HScrollBar1控件

3个按钮控件分别为：Button1、Button2、Button3
       控件属性设置如下：
       Button1 Text: 打开
        Button2 Text: 播放
        Button3 Text: 停止
        MenuStrip1 添加菜单选项文件
        MenuStrip1 菜单选项打开
        MenuStrip1 菜单选项打开目录
        MenuStrip1 菜单选项关闭

进入Button1_Click事件

以下为引用的内容：

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OpenFileDialog1.InitialDirectory="c:\"
        OpenFileDialog1.Filter="mp3 文件(*.mp3)|*.mp3|CD音频文件(*.wav)|*.wav|" & "视频（*.asf)|*.asf|所有文件(*.*)|*.*"

        If OpenFileDialog1.ShowDialog=Windows.Forms.DialogResult.OK Then
            AxWindowsMediaPlayer1.URL=OpenFileDialog1.FileName
            ListBox1.Items.Add(OpenFileDialog1.FileName)
        End If
End Sub

进入Button2_Click事件

以下为引用的内容：
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text="播放" Then
            AxWindowsMediaPlayer1.Ctlcontrols.pause()
            Button2.Text="暂停"
        Else
            AxWindowsMediaPlayer1.Ctlcontrols.play()
            Button2.Text="播放"
        End If
    End Sub

Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
        Button1_Click(sender, e)
End Sub

进入Button3_Click事件

以下为引用的内容：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        AxWindowsMediaPlayer1.Ctlcontrols.stop() '停止
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition()=0 '重新开始
        AxWindowsMediaPlayer1.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 FolderBrowserDialog1.ShowDialog=Windows.Forms.DialogResult.OK Then
            Dim fi As IO.FileInfo
            Dim dir As IO.DirectoryInfo=New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Dim file As String
            For Each fi In dir.GetFiles("*.mp3")
                file=fi.FullName
                ListBox1.Items.Add(file)
            Next
        End If
End 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

进入Timer1_Tick事件

以下为引用的内容：
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        HScrollBar1.Value=AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
    End Sub

进入HScrollBar1_Scroll事件

以下为引用的内容：

   Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        ''进度条
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition()=HScrollBar1.Value
    End Sub

进入ListBox1_DoubleClick事件

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
AxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToString
End Sub

代码已经输入完毕，接下来我们需要运行程序进行测试。

好了程序运行成功，此播放器已经具备了最基本的功能。感兴趣的朋友还可以向程序增加更多的功能。

以上所分享的是关于用VB.net2008打造你的影音播放器，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：哪个大婶告诉我QQ影音解码器在哪个文件夹呗，顺带...

　　答：系统Windows Media Player 全能格式视频播放器。直接下一步安装即可。麻花疼的解码器神马的不懂 >>详细

　　相关问题：大家推荐一款好用的影音播放器？

　　答：无广告、无插件，五星级的视听享受清爽的界面风格，绝无广告和插件的干扰，让您在影音娱乐的专属空间里，真正拥有五星级的视听享受！二、更孝更快、更流畅 QQ影音首创轻量级多播放内核技术，安装包孝CPU占用少、播放更加流畅清晰。三、专业... >>详细

　　相关问题：怎么使用百度影音播放器看视频，怎样下载想看的视频

　　答：首先下载百度影音客户端并安装，安装时选择一个盘符安装不要装在C盘，点击安装选项勾掉开机自动运行选项以免影响开机速度。安装完毕后打开百度影音，在主界面的搜索栏处搜索想要下载的视频。这里的搜索结果跟用百度影音浏览器的搜索结果一样都... >>详细

评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）

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

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

以上所分享的是关于用VB.net2008打造你的影音播放器，下面是编辑为你推荐的有价值的用户互动：

最新教程

相关教程