Question

VB高手进

小菜本人正在学VB 学了几天想写个简单的浏览器玩玩。可是写出来之后在点击网页上连接的时候还是会调用IE来打开新的连接
请教一下要怎么写程序才会在VB这个浏览器中弹出新的连接？
请给一下源代码和尽可能详细点的步骤。谢谢各位高手了
能简单点写一下么？只要主要函数就行了？什么按钮什么的都不用 主要是怎样打开连接
主要是在本程序中打开新的连接而不去调用IE

Answer 1

1)在VB中新建一个新的项目(New Project)；
(2)在项目(Project)资源管理器窗口中，选定Form1窗体并按 鼠标右键，弹出菜单后，用删除窗体(Remove Form)命令删除Form1 窗体；
(3)选定项目Project1，单击鼠标右键，弹出菜单后选定添加 (Add)项，再选择添加窗体(Add Form)命令。弹出添加窗体(Add Form)对话框后，在其中选择浏览器(Browser)打开它；
如果VB提示：文件未找到:'c:\windows\sytem32ieframe.dll\1'解决方法请看：http://hi.baidu.com/hehaiwanghui/blog/item/ef0db7730e28eb1b8601b081.html
(4)在项目Project1的对象窗口中可以看到tbToolbar控件中已 经设置有Back（向后）、Forward（向前）、Stop（停止）、 Refresh（刷新）、Home（归位）、Search（搜索）等命令按钮， 还可以向tbToolbar控件中添加Open（打开）、Navigate（导 航）、Exit（退出）等命令按钮，其方法是：打开tbToolbar控件 的Properties（属性）页，在Button(按钮)选项卡中单击Insert Button按钮来插入按钮，在以上命令按? Caption属性项中输入 相应的按钮名称；
(5)由于新添加的Open（打开）、Navigate（导航）、Exit （退出）等命令按钮上没有相应的图标，故可以自行添加，其方法 是：找到名为ImlIcons的ImageList控件，打开其属性页，在 Images选项卡中插入自己喜欢的图标。然后在tbToolbar控件的 Properties（属性）页中设置相应的Index值；
(6)从工具箱中选出CommonDialog（通用对话框）控件添加到 浏览器窗体中，将其命名为brwCommonDialog，为编写Open按钮相 应的事件代码作准备；
(7)在frmBrowser窗体的属性窗口中，将MDIChild属性值设置 为False；
(8)在项目Project1的属性设置窗口中设置启动对象为 frmBrowser窗体；
(9)在tbToolbar控件的代码窗口中编写Open（打开）、 Navigate（导航）、Exit（退出）等命令按钮的代码；
(10)在其他对象的代码窗口中编写或修改相应的代码。

Option Explicit

Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
tbToolBar.Refresh
Form_Resize

cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15

If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
试图定位到起始地址
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If

End Sub

Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub

Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub

Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
brwWebBrowser.Navigate cboAddress.Text
End Sub

Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub

Private Sub Form_Resize()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub

Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
Me.Caption = "运行中..."
End If
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
On Error Resume Next

timTimer.Enabled = True

Select Case Button.Key
Case "Exit"
Unload Me
Case "Back"
brwWebBrowser.GoBack
Case "Forward"
brwWebBrowser.GoForward
Case "Refresh"
brwWebBrowser.Refresh
Case "Home"
brwWebBrowser.GoHome
Case "Search"
brwWebBrowser.GoSearch
Case "Open"
brwCommonDialog.ShowOpen
cboAddress.Text = brwCommonDialog.filename
Case " Navigate"
brwWebBrowser.Navigate cboAddress.Text
Case "Stop"
timTimer.Enabled = False
brwWebBrowser.Stop
Me.Caption = brwWebBrowser.LocationName
End Select

End Sub

Answer 2

'''''''实现你的功能仅仅需要一句,WebBrowser1_NewWindow2过程中添加

Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser1.Application
End If

Answer 3

WebBrowser控件就行啊！！！