视频播放器程序源代码QZQ.zip

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