How do I..................

New Question

How do i add combo history

and so it does not add 2 of the same site.

Code:

    On Error Resume Next
    Dim I As Integer
    Dim bFound As Boolean
    Me.Caption = WebBrowser1.LocationName & " - X-Zero Explorer"
    For I = 0 To Text1.ListCount - 1
        If Text1.List(I) = WebBrowser1.LocationURL Then
            bFound = True
            Exit For
        End If
    Next I
    mbDontNavigateNow = True
    If bFound Then
        Text1.RemoveItem I
    End If
    Text1.AddItem WebBrowser1.LocationURL, 0
    Text1.ListIndex = 0
    mbDontNavigateNow = False

^
VB 6 code |

 

If you are using a listbox, it should be similar to this:

I just got a new computer, so I'm installing VS now, but it should be like this:

Code:

Me.Caption = WebBrowser1.DocumentTitle & " - X-Zero Explorer" 
'DocumentTitle might be DocumentName
If Me.ListBox1.Items.Contains(WebBrowser1.URL.ToString) Then _
    Me.ListBox1.Items.Remove(WebBrowser1.URL.ToString)

Me.ListBox1.Items.Add(WebBrowser1.URL.ToString)

 

*jaw drops* and I was trying to do that the complicated way XD
There have been so many posts by me with an "XD" in it in the last 5 minutes, extremely weird.

Ah well, thanks for showing me the "easy" way

 

is this for making a combobox remember sites?

 

yes this is for saving history
put it under Webbrowser1_progress

 

the me.caption thing says it's not declared?

thx

 

change it to me.text or delete that part

 

ok thx