簡單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