编程时遇到一个问题: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