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

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

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

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

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

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

HScrollBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition

End Sub

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