简单IE浏览器的VB实现

’添加一个webbrowse控件和几个按钮，少量的代码，就可以实现简单的IE浏览器            (程序运行界面已上传至相册VB6)

 

Private Sub Command1_Click(Index As Integer)
 Select Case Index
   Case 0
trip:        WebBrowser1.Stop                                  '停止
   Case 1
      WebBrowser1.Refresh                                      '刷新
   Case 2
      WebBrowser1.GoHome                                       '主页
   Case 3
      On Error GoTo trip                                       ' 发生错误时，程序跳转至trip标号
      WebBrowser1.GoBack                                       '后退
   Case 4
      On Error GoTo trip
      WebBrowser1.GoForward
 End Select
End Sub

Private Sub Form_Load()
 WebBrowser1.GoHome                                      ' 程序载入时打开主页
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then               '输入网址完毕，按回车键时发生
     WebBrowser1.Navigate (Text1)
  End If
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
  Text1 = URL
End Sub