Question

VB浏览器Web与窗口大小问题，高手请进！

我用VB做了个简单的网页浏览器，用时钟控件写了web是根据窗口的大小而改变的代码，但是当我点开网页中的链接弹出另一个我浏览器窗口后，web大小便固定了，不管怎么拉伸他都只有我点击链接之前web的大小。
不知道是不是弹窗代码问题：
Dim frm2 As New Form1
frm2.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frm2.WebBrowser1.object
frm2.Show
又或是其他？
请提供代码，谢谢！
下面是我关于问题的代码：

Private Sub Form_Load()
WebBrowser1.GoHome
End Sub
Private Sub Form_Resize()
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight
GOButton.Left = Me.Width - 1300
Command5.Left = Me.Width - 1900
Combo2.Left = Me.Width - 5000
Text1.Left = Me.Width - 4200
GifAni1.Left = Me.Width - 700
Label1.Left = 100
Combo1.Left = Label1.Width + 20
StatusBar1.Panels(1).Width = kxllq.Width / 2.2
StatusBar1.Panels(2).Width = kxllq.Width / 10
StatusBar1.Panels(3).Width = kxllq.Width / 15
StatusBar1.Panels(5).Width = kxllq.Width / 3
ProgressBar1.Top = Me.Height - StatusBar1.Height - 370
ProgressBar1.Left = kxllq.Width / 1.6
ProgressBar1.Width = 1600
If Me.WindowState <> vbMinimized Then
If Me.Height < 6000 Then
Me.Height = 6000
End If
If Me.Width < 12000 Then
Me.Width = 12000
End If
End If
End Sub

Answer 1

这个我刚好写过，在BeforeNavigate2事件里重设新开窗口的大小：
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Me.Width = 800
Me.Height = 600
End Sub
然后用动态改变WebBrowser1的大小：
Private Sub Form_Resize()
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight
End Sub

追问

还是一样的啊！

追答

我自己用的没问题，你的时间控件怎么写的？

追问

我照你的一样，时钟控件里的代码去掉了。换到Form_Resize事件里面来了，还是没用。。。
不知道是不是跟其他代码有冲突。。。
你有没有源码啊？多标签的也行？

追答

加了Form_Resize里的代码，web大小就会随Form大小变化而变化呀。
我新开窗口的大小都不一样，所以在WebBrowser1_BeforeNavigate2里定义各种窗口的大小，也能很好的实现。
要不你把代码贴出来我调试看看。

追问

上面就是我Resize事件的代码，好像也没冲突吧！
不知道为什么老是不行！
Dim frm2 As New Form1
frm2.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frm2.WebBrowser1.object
frm2.Show
上面这段弹窗代码貌似有用，就是说用户定义类型未定义。
我并没有加上option explicit
----------------------------------
你有其他的弹窗代码吗？或者是上面这段代码怎么不能运用到我程序里。。。

追答

应该这么写：
Dim frm2 As Form1
Set frm2 = New Form1
frm2.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frm2.WebBrowser1.object
frm2.Visible = True
另外，把Form_Resize里无关的代码先注释掉，留前两行试试看。

追问

成了，原来是我时钟控件里面也添加了同样的代码导致没用。。。
能有什么办法可以设置窗体最小长宽吗？
就是窗体在调整大小时可以完全看到而不是只有线条！

追答

可以啊，就是我前面贴的：
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Me.Width = 800
Me.Height = 600
End Sub
这里面做个判断，宽和高太小时重新定义一下。

Answer 2

当你点开网页中的链接弹出另一个我浏览器窗口后 web已被占用。。时钟控件没起作用。。
建议把把改变大小的代码 再添加到点击事件末就好了。。。