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

[lin_yuquan]

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

[舉杯邀明月]

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

[lin_yuquan]

原来”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有效或改变时激发

[lin_yuquan]

引用 1 楼 Chen8013 的回复:

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

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

[赵4老师]

修改iexplore.exe的属性？

[无·法]

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

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

[舉杯邀明月]

引用 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楼说的方法，肯定是可以的。 他偏偏说“没有效果”，我就只能说“呵呵……”了。 本来就是很简单的事，楼主都消失了，还过问它干吗。