之前在EH论坛上面有人询问怎样控制点击的网页始终限制在WebBrowser控件中显示,这里介绍一个方法,需要用到NewWindow2事件和StatusTextChange事件。定义一个模块级字符串变量strURL用来保存新窗口的网 址。NewWindow2事件里的Cancel=True取消使用外部IE程序打开网页。
Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End Sub
|
欢迎加入AccessQQ群交流学习 群号:41208985