'五个按钮控件数组,一个WebBrowser控件
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
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