【原】vs2010旗舰版的vb.net视频播放器软件代码

​Imports System.IO

Imports System.Drawing

Imports System.Windows.Forms

Public Class Form1

    Dim openFileDialog As New OpenFileDialog

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        OpenFileDialog.Filter = "MP4 Files|*.mp4|AVI Files|*.avi|WMV Files|*.wmv|MOV Files|*.mov|MKV Files|*.mkv"

    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.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