There you go ^.-
Code:
Public Class Form1
Private Sub savecb()
My.Settings.history.Add(Combobox1.text)
My.Settings.Save()
My.settings.reload()
End Sub
Private Sub Combobox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Combobox1.KeyDown
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(Combobox1.Text)
While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
End While
Try
Additem()
Catch
MsgBox(ErrorToString)
End Try
End If
savecb()
End Sub
Private Sub Additem()
If Not Combobox1.items.contains(Combobox1.Text) Then
Combobox1.items.add(Combobox1.Text)
end if
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim hist As String = ""
For Each history As String In My.Settings.history
hist &= history & vbCrLf
Next
Combobox1.items.add(hist)
End Try
End Sub
Private Sub cmdremoveselected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremoveselected.Click
ComboBox1.Items.Remove(ComboBox1.SelectedItem)
savecb()
End Sub
Private Sub cmdclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclear.Click
Combobox1.Items.Clear()
savecb()
End Sub
Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Combobox1.Text = WebBrowser1.Url.AbsoluteUri
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Webbrowser1.navigate(Combobox1.Text)
End Sub
End Class