訪問Internet并調(diào)用Explorer
1．實現(xiàn)方法和控件介紹
首先在VB 6菜單上點(diǎn)擊"工程/部件..."，彈出"部件"對話框，在對話框的控件卡中選中Microsoft Internet Controls控件，點(diǎn)擊"確定"按鈕后工具箱上增加一個WebBrowser圖標(biāo)，將它加到Form中。
該控件有以下幾個重要的方法和事件：
·GoHome：裝入IE設(shè)定的起始頁；
·Navigate：裝入頁面，如Object.Navigate url，其中url為URL地址，如http://www.microsoft.com；
·GoBack：返回上一個頁面；
·GoForward：進(jìn)入下一個頁面；
·Stop：停止載入頁面；
·BeforeNavigate Event：在每次裝入頁面前調(diào)用該事件；
·StatusTextChange Event：每次瀏覽器的操作狀態(tài)改變時調(diào)用該事件。
2．具體的訪問方法
將WebBrowser圖標(biāo)添加到Form中。并在Form上添加4個命令按鈕，Name屬性分別為：GoButton、BackButton、ForwardButton和StopButton，通過這4個命令按鈕可以實現(xiàn)對瀏覽器的操作。在Form上添加一個TextBox控件，用來輸入和顯示當(dāng)前的頁面地址。在Form上添加一個Label控件，用來顯示當(dāng)前瀏覽器操作狀態(tài)。
/＊載入Form＊/
Private Sub Form_Load()
/＊程序裝入后進(jìn)入IE設(shè)定的起始頁＊/
WebBrowser1.GoHome
End Sub
/＊改變Form尺寸＊/
Private Sub Form_Resize()
/＊改變窗口大小后同時改變控件的大?。?
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Height = Form1.ScaleHeight － 900
Label1.Width = Form1.ScaleWidth
Label1.Top = Form1.ScaleHeight － 300
End Sub
Private Sub BackButton_Click()
/＊返回上一個頁面＊/
WebBrowser1.GoBack
End Sub
Private Sub ForwardButton_Click()
/＊進(jìn)入下一個頁面＊/
WebBrowser1.GoForward
End Sub
Private Sub GoButton_Click()
/＊瀏覽輸入的頁面＊/
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub StopButton_Click()
/＊停止瀏覽＊/
WebBrowser1.Stop
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
/＊輸入地址后進(jìn)行瀏覽＊/
If KeyAscii = 13 Then
WebBrowser1.Navigate (Text1.Text)
End If
End Sub
Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
/＊將當(dāng)前顯示的頁面的URL地址顯示在Text1上＊/ Text1.Text = URL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
/＊Label1顯示當(dāng)前頁面裝入情況＊/
Label1.Caption = Text
End Sub
