VB写浏览器遇到的问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 11:29:27
我参考了些其他的代码写了个浏览器 但太简单了 想多加些功能可自己又不知道怎么写,所以请教下以下几个问题 最好能详细写出代码 谢谢了
1.如何自定义设置默认主页(像IE这样)
2.如何添加后退,前进,刷新等功能
3.如何让地址栏里能保存历史记录
4.如何在自己写的浏览器里点联接时不跳到IE浏览器里?
下面是我的写的代码 希望能帮我补充 谢谢了

Private Sub enter_Click()
If Left(url.Text, 7) <> "http://" Then
url.Text = "http://" & url.Text
End If
Web.Navigate url.Text
url.AddItem url.Text
End Sub

Private Sub index_Click()
WebBrowser1.GoBack
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub

Private Sub url_Click()
Web.Navigate url.Text
End Sub

Private Sub url_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
If KeyCode = 13 Then
If Left(url.Text, 7) <> "http://" Then
url.Text = "http://" & url.Text
End If
Web.Navigate url.Text
End If
url.AddItem url.Text
End Sub

Pri

'(1)
Private Sub Form_Load()
a = GetSetting("Webbrowser", "Webbrowser", "Homepage")
Web.Navigate a
End Sub

Private Sub Save_Chick()
SaveSetting ("Webbrowser", "Webbrowser", "Homepage", url.Text)
End Sub

'(2)
Private Sub Back_Click() 'Go back
WebBrowser1.GoBack
End Sub

Private Sub Forward_Click() 'Go forward
WebBrowser1.GoForward
End Sub

Private Sub Stop_Click() 'Stop
WebBrowser1.Stop
End Sub

Private Sub Refresh_Click() 'Refresh
WebBrowser1.Refresh
End Sub

'(3)用ComboBox控件
Private Sub Form_Load()
h1 = GetSetting("Webbrowser", "Webbrowser", "History1")
h2 = GetSetting("Webbrowser", "Webbrowser", "History2")
h3 = GetSetting("Webbrowser", "Webbrowser", &quo