VS2010旗舰版的VB.NET数字操作系统FORM10程序代码

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

Public Class Form10
Dim openFileDialog As New OpenFileDialog

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    OpenFileDialog1.Multiselect = True
    OpenFileDialog1.Filter = "MP4 Files|*.mp4|AVI Files|*.avi|WMV Files|*.wmv|MOV Files|*.mov|MKV Files|*.mkv"


    If OpenFileDialog1.ShowDialog() <> Windows.Forms.DialogResult.OK Then Exit Sub
    For Each track As String In OpenFileDialog1.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.Click
    AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click
    Dim rand As New Random()
    ListBox1.SelectedIndex = rand.Next(0, ListBox1.Items.Count - 1)
    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString()
    AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click
    If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1
    Else
        ListBox1.SelectedIndex = 0
    End If
    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString()
    AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.Click
    AxWindowsMediaPlayer1.settings.setMode("loop", True)
End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button9.Click
    If ListBox1.SelectedIndex > 0 Then
        ListBox1.SelectedIndex -= 1
        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString()
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End If
End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button10.Click
    If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1
        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString()
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End If
End Sub

End Class