Visual Studio 2010 旗舰版的 VB.NET音频播放器程序代码

Imports System.IO
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    OpenFileDialog.Filter = "MP3 Files|*.mp3|WAV Files|*.wav"
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    OpenFileDialog.Multiselect = True
    If OpenFileDialog.ShowDialog() <> Windows.Forms.DialogResult.OK Then Exit Sub
    For Each track As String In OpenFileDialog.FileNames
        ListBox1.Items.Add(track)
    Next
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString()
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Cli