实例117播放器设置

列表的序号还是有点子问题

Public Class Form1
    Dim paths() As String
    Dim i As Integer
    Dim fileName As String
    Dim path As String
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListView1.FullRowSelect = True
        Me.ListView1.MultiSelect = True
        Me.ListView1.HoverSelection = True '鼠标悬停表示选取
        Me.TrackBar2.Value = Me.AxWindowsMediaPlayer1.settings.volume
    End Sub

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        Dim strFileName As String
        Dim res As DialogResult
        With Me.OpenFileDialog1
            .Title = "打开"
            .CheckFileExists = True
            .CheckPathExists = True
            .Multiselect = True
            .Filter = _
                "视频文件(*.dat;*.avi;*.mp3;*.asf;*.mpg)" & _
                "|*.dat;*.mp3;*.avi;*.asf;*.mpg" & _
                "|音频文件(*.mp3,*.wav;*.mid;*.wma)" & _
                "|*.mp3,*.wav;*.mid;*.wma" & _
                "|所有文件(*.*)" & _
                "|*.*"
        End With
        res = Me.OpenFileDialog1.ShowDialog
        strFileName = Me.OpenFileDialog1.FileName
        If Len(strFileName) = 0 Or res = DialogResult.Cancel Then
            Exit Sub
        Else
            Me.AxWindowsMediaPlayer1.URL = strFileName
            btnPlay.Text = "播放"
            TextBox1.Text = AxWindowsMediaPlayer1.currentMedia.name
        End If

    End Sub

    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
        Dim strBtnText As String
        strBtnText = Me.btnPlay.Text
        Try
            If strBtnText.Equals("播放") = True Then
                Me.btnPlay.Text = "暂停"
                AxWindowsMediaPlayer1.Ctlcontrols.pause()
            Else
                Me.btnPlay.Text = "播放"
                Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Try
            Me.AxWindowsMediaPlayer1.Ctlcontrols.stop()
            Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0
            Me.btnPlay.Text = "播放"
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub btnFast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFast.Click
        Try
            AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub btnRev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRev.Click
        Try
            Me.AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim sFile As String
        Dim j As Integer
        Dim count As Integer
        With Me.OpenFileDialog1
            .Title = "打开"
            .CheckFileExists = True
            .CheckPathExists = True
            .Multiselect = True
            .Filter = _
                "视频文件(*.dat;*.avi;*.mp3;*.asf;*.mpg)" & _
                "|*.dat;*.mp3;*.avi;*.asf;*.mpg" & _
                "|音频文件(*.mp3,*.wav;*.mid;*.wma)" & _
                "|*.mp3,*.wav;*.mid;*.wma" & _
                "|所有文件(*.*)" & _
                "|*.*"
            If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
            paths = .FileNames
        End With
        i = paths.GetUpperBound(0)
        For j = 0 To i
            count = Me.ListView1.Items.Count
            sFile = paths(i - j).Substring(paths(j).LastIndexOf("\") + 1)
            Dim mitem As New ListViewItem(count + 1 + j)
            mitem.SubItems.Add(sFile)
            mitem.SubItems.Add(paths(i - j))
            Me.ListView1.Items.Add(mitem)
        Next
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Dim response As MsgBoxResult
        response = MsgBox("删除列表中的音乐，确定吗？", MsgBoxStyle.OkCancel, "警告")
        If response = MsgBoxResult.Ok Then
            Me.ListView1.Clear()
        End If
    End Sub

    Private Sub btnFull_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFull.Click
        Try
            AxWindowsMediaPlayer1.fullScreen = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click
        Me.Close()
    End Sub

    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Dim str As String
        fileName = Me.ListView1.SelectedItems.Item(0).SubItems(1).Text
        path = Me.ListView1.SelectedItems.Item(0).SubItems(2).Text
        AxWindowsMediaPlayer1.URL = path
        AxWindowsMediaPlayer1.Ctlcontrols.play()
        btnPlay.Text = "暂停"
        Timer1.Enabled = True
        str = fileName.Substring(fileName.LastIndexOf("."))
        fileName = fileName.Remove(fileName.Length - str.Length, str.Length)
        TextBox1.Text = fileName
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Me.AxWindowsMediaPlayer1.settings.volume = Me.TrackBar1.Value
    End Sub

    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = Me.TrackBar2.Value
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
            TrackBar2.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
            Exit Sub
        Catch
        End Try
    End Sub
End Class