为什么每次用WebBrowser_NewWindow2新打开的网页都是一个小窗口。怎么能改变新打开的WebBrowser的尺寸大小

2017-01-06 10:00:49 1.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VC，webbrowser控件中弹出新网页窗口 VC，webbrowser控件中弹出新网页窗口控制阅读详情

Private Sub Form_Load()

  Form_Resize

  WebBrowser.Navigate ("www.baidu.com")

  WebBrowser.Silent = True

End Sub



Private Sub Form_Resize()

  On Error Resume Next

  WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight

End Sub



Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)

 Dim frm As frmWebBrowser

 Set frm = New frmWebBrowser

 frm.Visible = True

 Set ppDisp = frm.WebBrowser.Object

End Sub

...全文

Windows server Database 2025 安装 i225/i226 网卡驱动 Windows server Database 2025 安装 i225/i226 网卡驱动 windows这比坏得很，intel消费级网卡不准在服务器系统上安装。你要说他是异构不支持？他就纯粹恶心人。之前已经安装过一次，但是今天database预览版一更新，又给我把网卡驱动杀了，气死，写一篇教程。到这里就完成了，总之还是想辱骂windows，提供便捷的同时又人为制造困难，多少有点（隔壁linux内核直接自带全家桶了就一省心）并且近年Intel的新U安装显卡驱动和普通声卡驱动都不会出声阅读详情

lin_yuquan

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

舉杯邀明月 2017-01-19

打赏
举报

引用 5 楼 sysdzw 的回复:

明明可以啊，你复制下面代码测试看看：

Private Sub Form_Load()
  Form_Resize
  WebBrowser.Navigate ("www.baidu.com")
  WebBrowser.Silent = True
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
 Dim frm As frmWebBrowser
 Set frm = New frmWebBrowser
 frm.Move 0, 5000, 8000, 8000
 frm.Visible = True
 Set ppDisp = frm.WebBrowser.Object
End Sub

我在1楼说的方法，肯定是可以的。他偏偏说“没有效果”，我就只能说“呵呵……”了。本来就是很简单的事，楼主都消失了，还过问它干吗。

无·法 2017-01-17

打赏
举报

明明可以啊，你复制下面代码测试看看：

Private Sub Form_Load()
  Form_Resize
  WebBrowser.Navigate ("www.baidu.com")
  WebBrowser.Silent = True
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
 Dim frm As frmWebBrowser
 Set frm = New frmWebBrowser
 frm.Move 0, 5000, 8000, 8000
 frm.Visible = True
 Set ppDisp = frm.WebBrowser.Object
End Sub

赵4老师 2017-01-09

打赏
举报

修改iexplore.exe的属性？

lin_yuquan 2017-01-07

打赏
举报

引用 1 楼 Chen8013 的回复:

我觉得是因为你的‘窗口模板’就是一个小窗口吧！你可以在 frm.Visible = True 之前，加上设置frm大小的语句。

没有效果的。试了放在哪里都没用。

lin_yuquan 2017-01-07

打赏
举报

原来”NewWindow2 在创建新窗口以前激发“ ，所以得在“DocumentComplete 当整个文档完成是激发，刷新页面不激发” 后调整窗口，用了下面这一句就可以了。 Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, url As Variant) WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight End Sub 下面是WebBrowser 的事件 : BeforeNavigate2 导航发生前激发，刷新时不激发 CommandStateChange 当命令的激活状态改变时激发。它表明何时激活或关闭Back和Forward 菜单项或按钮 DocumentComplete 当整个文档完成是激发，刷新页面不激发 DownloadBegin 当某项下载操作已经开始后激发，刷新也可激发此事件 DownloadComplete 当某项下载操作已经完成后激发，刷新也可激发此事件 NavigateComplete2 导航完成后激发，刷新时不激发 NewWindow2 在创建新窗口以前激发 OnFullScreen 当FullScreen属性改变时激发。该事件采用VARIENT_BOOL的一个输入参数来指示IE是全屏显示方式(VARIENT_TRUE)还是普通显示方式(VARIENT_FALSE) OnMenuBar 改变MenuBar的属性时激发，标示参数是VARIENT_BOOL类型的。 VARIANT_TRUE是可见，VARIANT_ FALSE是隐藏 OnQuit 无论是用户关闭浏览器还是开发者调用Quit方法，当IE退出时就会激发 OnStatusBar 与OnMenuBar调用方法相同，标示状态栏是否可见。 OnToolBar 调用方法同上，标示工具栏是否可见。 OnVisible 控制窗口的可见或隐藏，也使用一个VARIENT_BOOL类型的参数 StatusTextChange 如果要改变状态栏中的文字，这个事件就会被激发，但它并不理会程序是否有状态栏 TitleChange Title有效或改变时激发

舉杯邀明月 2017-01-06

打赏
举报

我觉得是因为你的‘窗口模板’就是一个小窗口吧！你可以在 frm.Visible = True 之前，加上设置frm大小的语句。

为什么每次用WebBrowser_NewWindow2新打开的网页都是一个小窗口。怎么能改变新打开的WebBrowser的尺寸大小

相关推荐