advanced history [webbrowser]
Posted: Tue Aug 03, 2010 2:23 am
i need a history so it catergorizes it by the site name and not the url
Sharing, Teaching and Supporting coders of all ages and levels since 2009
https://www.codenstuff.com/forum/
Dim uris As List(Of Uri) = New List(Of Uri)
Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
ListBox1.Items.Add(ListBox1.Items.Count & ". " & WebBrowser1.Document.Title)
uris.Add(WebBrowser1.Url)
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
WebBrowser1.Url = uris(ListBox1.SelectedIndex)
End Sub
mandai wrote:Try:Code: Select allThough it is hardly advanced.Dim uris As List(Of Uri) = New List(Of Uri) Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating ListBox1.Items.Add(ListBox1.Items.Count & ". " & WebBrowser1.Document.Title) uris.Add(WebBrowser1.Url) End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged WebBrowser1.Url = uris(ListBox1.SelectedIndex) End Sub