VB.NET版本视频播放器程序源代码QZQ

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

…
…
…
这款软件是影音视频播放器软件，基本功能都齐全完整。

精彩不容错过！新文章震撼登场，却因代码不全让人意犹未尽？别担心！我们为你准备了软件截图，让你先睹为快，感受其强大魅力。

✨如果你渴望解锁全部精彩内容，那么强烈建议你下载完整源代码。它将为你打开一扇通往编程新世界的大门，让你深入探索其中的奥秘，挖掘无限潜力。

源代码下载网址：[https://download.csdn.net/download/qq_32257509/89435585]。赶紧行动起来，下载完整源代码，开启你的编程之旅吧！