VB游览器的问题

来源：百度知道 编辑：UC知道 时间：2024/06/09 17:12:55
我用WebBrowser和ComboBox控件做了个游览器,按有些连接就会弹出IE,我想按下就会弹出自己用VB做的那个游览器
还有地址栏里的网址怎么保存啊,我关掉就没有了
高手帮帮忙,有代码在加50分

窗体上放一个WebBrowser1,一个Combo1,一个Command1,一个Command2
代码如下,完全实现了你的两个要求
还多加了一个功能,就是点击Command2的时候,可以删除选中的那个网址

Option Explicit
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Const SplitWord = vbCrLf
Private Sub Command1_Click()
WebBrowser1.Navigate Combo1.Text
If Combo1.ListIndex < 0 Then
Combo1.AddItem Combo1.Text
End If
End Sub

Private Sub Command2_Click()
With Combo1
If .ListIndex >= 0 Then
If .ListCount > 1 Then
Combo1.RemoveItem .ListIndex
.ListIndex = 0
Else
MsgBox "至少应保留一个网址"
End If
End If
End With
End Sub

Private Sub Form_Load()
Dim s As String, ss() As String
Dim i As Integer
Set Web_V1 = WebBrowser1.Object
s = GetSetting("OldUrl", "OldUrl", "OldUrl", "")
If s <> "