.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中 另一個解析歌曲名爲文件路徑

對於點擊後可以直接播放文件