首頁 | 社區 | 博客 | 招聘 | 文章 | 新聞 | 下載 | 讀書 | 代碼
親,您未登錄哦! 登錄 | 注冊

用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

代碼已經輸入完畢,接下來我們需要運行程序進行測試。

好了程序運行成功,此播放器已經具備了最基本的功能。感興趣的朋友還可以向程序增加更多的功能。

本欄文章均來自于互聯網,版權歸原作者和各發布網站所有,本站收集這些文章僅供學習參考之用。任何人都不能將這些文章用于商業或者其他目的。( Pfan.cn )

編程愛好者論壇

本欄最新文章

黑龙江p62彩票开奖