vb6.0 webbrowser控件做的浏览器,怎样解决ie打开新窗口问题
2012-02-21 16:32
656 查看
方法一:
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text 点击Command1打开Text1的网址
End Sub
Private Sub Form_Resize()
If Me.WindowState <> 1 Then WebBrowser1.Width = Me.ScaleWidth: WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top 让Webbrowser1适应窗口大小
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
If Option1.Value = True Then 如果单选框Option1(在当前窗口打开)
Set ppDisp = WebBrowser2.Application
WebBrowser2.ZOrder
在Webbrowser2中打开,请跳到WebBrowser2_BeforeNavigate2看
Else 如果选择了在新窗口中打开
Dim NewForm As New Form1
NewForm.Show 弹出一个新的Form1窗口
Set ppDisp = NewForm.WebBrowser1.Application
NewForm.WebBrowser1.ZOrder
在新弹出的Form1窗口打开
End If
End Sub
Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
WebBrowser2.Stop Webbrowser2停止
WebBrowser1.Stop Webbrowser1停止
WebBrowser1.Navigate URL Webbrowser1打开网址
End Sub
方法二:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub
方法三:
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "www.sina.com"
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub
注意 这句Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
放在通用代码里
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text 点击Command1打开Text1的网址
End Sub
Private Sub Form_Resize()
If Me.WindowState <> 1 Then WebBrowser1.Width = Me.ScaleWidth: WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top 让Webbrowser1适应窗口大小
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
If Option1.Value = True Then 如果单选框Option1(在当前窗口打开)
Set ppDisp = WebBrowser2.Application
WebBrowser2.ZOrder
在Webbrowser2中打开,请跳到WebBrowser2_BeforeNavigate2看
Else 如果选择了在新窗口中打开
Dim NewForm As New Form1
NewForm.Show 弹出一个新的Form1窗口
Set ppDisp = NewForm.WebBrowser1.Application
NewForm.WebBrowser1.ZOrder
在新弹出的Form1窗口打开
End If
End Sub
Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
WebBrowser2.Stop Webbrowser2停止
WebBrowser1.Stop Webbrowser1停止
WebBrowser1.Navigate URL Webbrowser1打开网址
End Sub
方法二:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub
方法三:
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "www.sina.com"
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub
注意 这句Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
放在通用代码里
相关文章推荐
- 4:上网时只能打开一个IE窗口..不能打开第二个..怎样解决这个问题?
- 解决WebBrowser中打开链接调用IE窗口问题
- 解决ajax返回打开新窗口被浏览器拦截问题
- 解决WebBrowser控件打开本地页面报安全提示的问题
- VB.NET章鱼哥出品—怎样解决MDI子窗口被父窗口中的控件覆盖的问题
- 解决ie下载excel文件直接在浏览器打开的问题(tomcat,web项目)
- 解决IE不能打开新窗口的问题
- 解决WebBrowser控件打开本地页面报安全提示的问题
- 解决Selenium Webdriver执行测试时,每个测试方法都打开一个浏览器窗口的问题
- IE和其他浏览器用JS新窗口打开的问题
- 在WebBrowser控件打开的网页链接后直接打开而不新弹出IE窗口来打开
- IE9 浏览器打开总是有两个窗口的解决办法
- chm文件转换成html文件,解决chm文件无法使用浏览器打开的问题
- markdown===在新窗口中打开网址的解决办法,以及其他遗留问题!
- ie8此加载项无法恢复&网站还原错误问题解决=lr成功打开ie成功录制脚
- 关于在webbrowser控件里面打开word文档的问题
- VS2005控件WebBrowser控件的问题解决办法
- Delphi控件IE窗口打开网页
- 自编的CHtmlView浏览器,怎么截获超连接,不让新窗口在IE中打开
- 解决美化后的文件上传控件(type=file),IE和firefox不兼容的问题