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

Imports WMPLib

Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
OpenFileDialog1.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
    OpenFileDialog1.Multiselect = True
    If OpenFileDialog1.ShowDialog() <> Windows.Forms.DialogResult.OK Then Exit Sub
    For Each track As String In OpenFileDialog1.FileNames
        ListBox1.Items.Add(track)
    Next
    Button2.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString()
    AxWindowsMediaPlayer1.Ctlcontrols.play()
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

提示:本软件由VS2010旗舰版的VB.NET版本编写,对于其他VS2019或者VS2020都可能无法正常使用。请先确认VS2010旗舰版的VB.NET能正常使用。
有需要

可以在下面这个地址下载源代码文件。
https://download.csdn.net/download/qq_32257509/89435583

  • 16
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

EYYLTV

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值