利用VB实现对IE的调用与控制

Dim WithEvents ieView As InternetExplorer 

'在通用模块中定义Internet Explorer对象 

Private Sub Form_Load() 

cmdForward.Visible = False 

cmdBackward.Visible = False 

cmdCloseView.Visible = False 

'窗体调入时隐藏Internet Explorer控制按钮 

End Sub 

Private Sub cmdView_Click() 

Dim txtAddress As String 

On Error Resume Next '设置错误陷阱 

Set ieView = GetObject("", "InternetExplorer.Application") 

ieView.Visible = True 

'创建Internet Explorer对象的一个实例,并设为可见 

txtAddress = Trim(Text1.Text) 

ieView.Navigate txtAddress, navNoReadFromCache 

'按text1控件的内容进行浏览 

cmdView.Enabled = False 

cmdExit.Enabled = False 

cmdForward.Visible = True 

cmdBackward.Visible = True 

cmdCloseView.Visible = True 

'使浏览、退出命令钮无效，使IE控制命令钮可见 

End Sub 

Private Sub cmdForward_Click() 

On Error Resume Next '设置错误陷阱 

ieView.GoForward 

End Sub 

Private Sub cmdBackward_Click() 

On Error Resume Next '设置错误陷阱 

ieView.GoBack 

End Sub 

Private Sub cmdCloseView_Click() 

On Error Resume Next '设置错误陷阱 

ieView.Quit 

End Sub 

Private Sub ieView_OnQuit() 

Set ieView = Nothing 

'消除ieView对象 

cmdForward.Visible = False 

cmdBackward.Visible = False 

cmdCloseView.Visible = False 

cmdView.Enabled = True 

cmdExit.Enabled = True 

'恢复初始按钮状态 

End Sub 

Private Sub cmdExit_Click() 

End 

End Sub