.net多功能网页浏览器

我用.net做的牛X网页浏览器,里面自带MP3播放器,网页历史记录,使你的上网变得更轻松更自由,能够边上网边

听歌!

更新代码后,自带歌词路径截取代码:

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        OpenFileDialog1.ShowDialog()
        Dim str2 As String = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("/"))
        Dim str1 As String = OpenFileDialog1.FileName
        Dim s As String = OpenFileDialog1.FileName.Remove(0, str1.Length - str2.Length + 1)
        If ListBox2.Items.Contains(s) Then
            ListBox2.Items.Remove(s)
        End If
        ListBox2.Items.Add(s)
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        Label2.Text = OpenFileDialog1.FileName.Remove(0, str1.Length - str2.Length + 1)
        Timer1.Enabled = True
    End Sub

效果是当运行歌曲时自动截取最后一个"/"之前的所有字符,只显示歌曲名,不显示歌曲路径,在ListBox中选用相同歌曲时自动删掉,保持ListBox中不会有同名歌曲出现 

继续改进后的代码用到数据结构中的知识 使得程序更加完善:

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Try

            OpenFileDialog1.ShowDialog()

            Static i As Integer = 0
            i += 1

            Dim str2 As String = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("/"))
            Dim str1 As String = OpenFileDialog1.FileName

            s = OpenFileDialog1.FileName.Remove(0, str1.Length - str2.Length + 1)

            If (hashtable1.ContainsValue(s & " ")) Then
                hashtable1.Remove(i)
                Dim j As Integer = i - 1
                hashtable1.Add(j, s & " ")
                ListBox2.Items.Add(hashtable1(j))
            Else
                hashtable1.Add(i, s & " ")
                ListBox2.Items.Add(hashtable1(i))
            End If

            Label2.Text = OpenFileDialog1.FileName.Remove(0, str1.Length - str2.Length + 1)
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            Timer1.Enabled = True

            If (hashtable2.ContainsValue(OpenFileDialog1.FileName)) Then
                hashtable2.Remove(i)
            End If

            hashtable2.Add(i, OpenFileDialog1.FileName)

        Catch ex As Exception

        End Try
    End Sub

因为哈希表的利用 大大提高了程序的利用率 做了两个哈希表主要一个装配进ListBox中 另一个解析歌曲名为文件路径

对于点击后可以直接播放文件