简介: 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("",cmdForward 向前 Command cmdBackward 向后 Command cmdCloseView 关闭浏览窗口 Command cmdExit 退出 对上述窗体添加如下代码即可实现对Internet Explorer的调用与控制,"InternetExplorer.Application") ieView.Visible = True '创建Internet Explorer对象的一个实例