WebBrowser控件总是最大化显示页面

编程时遇到一个问题：WebBrowser控件加载添加收件人页面时（弹出页面），WebBrowser控件显示区域很小，导致无法看到全部页面，并且和最大化后的窗体之间留有很大的空白区域。

解决：

Private Sub Form_Resize() WebBrowser1.Left = Me.Left WebBrowser1.Top = Me.Top + 270 WebBrowser1.Width = Me.Width WebBrowser1.Height = Me.Height - 270 End Sub

 同样在Form_Load()事件中添加以上代码，结果只能手动在最大化窗体才可行。

以上代码测试失败！

 

最终解决方法：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Left = Me.Left WebBrowser1.Top = Me.Top + 270 WebBrowser1.Width = Me.Width WebBrowser1.Height = Me.Height - 270 End Sub