当WebBrowser遇上window.close

Question

首先是给出代码:
以下是Form1中的代码:Form3只有一个WebBrowser控件,其他什么都没有了.
Private Sub Web_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim F3 As Form3
    Set F3 = New Form3
    F3.WebBrowser1.RegisterAsBrowser = True
    Set ppDisp = F3.WebBrowser1.Object
    F3.Visible = True
End Sub问题是这样的:
当打开一般网站,打开新页,他都能正常的在Form3显示出来,但遇到JS显示新窗体的时候就出现问题了.当遇到.OPEN的时候,弹出新的窗体里面会是空的(就只有一个窗体的灰色界面,什么都没了,连WebBrowser)都不见了.但放大一下(经过Form_Resize就会重新出现,我在Form_Resize写了些WebBrowser与Form尺寸代码)就会重新出现了.更怪的事就是,当WebBrowser遇到了windows.close的时候,Form上的WebBrowser不见了,但窗体还在~~~
在这里问问高手,这问题该如何解决?

Answer 1

Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
    Cancel = True
End Sub没测试，估计能解决windows.close的问题