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

　　本篇文章的主要開發環境是Visual Studio Visual Studio系列產品一直以來都提供了強大的控件功能然而我們利用這些控件可以編寫出功能強大的應用程序本文主要利用微軟的最新net開發工具為大家展示一個應用程序的開發過程讓大家對添加/引用控件更加熟悉很適合net開發工具的初學者具有一定的實用價值

　　打開 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播放器即可一般情況下系統都默認安裝了這個播放器如果你確定已經安裝了請搜索wmpdll這個文件（一般存在\system\wmpdll）如搜索完成後直接將此控件拖入我們的控件工具箱即可

　　拖入我們的工具箱

　　選擇此控件拖入我們的Form界面

　　擇Form窗體在Form窗體中添加如下控件

　　OpenFileDialog控件Timer控件MenuStripSaveFileDialogFolderBrowserDialog ListBox控件HScrollBar控件

　　個按鈕控件分別為ButtonButtonButton
　　控件屬性設置如下
　　Button Text: 打開
　　Button Text: 播放
　　Button Text: 停止
　　MenuStrip 添加菜單選項 文件
　　MenuStrip 菜單選項 打開
　　MenuStrip 菜單選項 打開目錄
　　MenuStrip 菜單選項 關閉

　　進入Button_Click事件

     Private Sub Button_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ButtonClick
     
        OpenFileDialogInitialDirectory = c:\
        OpenFileDialogFilter = mp 文件(*mp)|*mp|CD音頻文件(*wav)|*wav| & 視頻（*asf)|*asf|所有文件(**)|**

        If OpenFileDialogShowDialog = WindowsFormsDialogResultOK Then
            AxWindowsMediaPlayerURL = OpenFileDialogFileName
            ListBoxItemsAdd(OpenFileDialogFileName)
        End If
End Sub

      進入Button_Click事件

     Private Sub Button_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ButtonClick
        If ButtonText = 播放 Then
            AxWindowsMediaPlayerCtlcontrolspause()
            ButtonText = 暫停
        Else
            AxWindowsMediaPlayerCtlcontrolsplay()
            ButtonText = 播放
        End If
    End Sub

 

     Private Sub 打開ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 打開ToolStripMenuItemClick
        Button_Click(sender e)
End Sub

　　進入Button_Click事件

     Private Sub Button_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ButtonClick

        AxWindowsMediaPlayerCtlcontrolsstop() 停止
        AxWindowsMediaPlayerCtlcontrolscurrentPosition() = 重新開始
        AxWindowsMediaPlayerURL =
End Sub

[]  []  

From:http://tw.wingwit.com/Article/program/net/201311/14947.html