忽然有发现自己没发错了  

好的

我看看
 
我刚学的

有个问题想问问大侠  

怎么vb程序都那么小呢

想这样一个程序不过8k

程序打包发布的话，不会这么小的。

支持一下

O~~明白了

上面的哪些刷新等等怎么不做成toolbar
这样怪怪滴

自己去试试，不过我昨晚发现最小化就会出错！
需要加一句错误处理语句
'以下根据窗口的变换变换webbrowser控件的大小
Private Sub Form_Resize()
On Error GoTo c:
WebBrowser1.Width = Me.Width - 45
WebBrowser1.Height = Me.Height - 1400
c:
End Sub



这段代码里有毛病,不是BUG,是外观上的毛病.

测试的办法,运行这个程序,然后修改Windows 的样式,如经典和WINDOWS XP 之间切换一下,就可以看得出来.

Private Sub Form_Resize()
On Error Resume Next            '出现错误继续下一条命令
WebBrowser1.Width = Me.ScaleWidth - WebBrowser1.Left - WebBrowser1.Left
WebBrowser1.Height = Me.ScaleHeight - 64 - StatusBar1.Height - WebBrowser1.Top
End Sub

'Me.ScaleWidth 表示本窗体内可用的实际宽度
'Me.ScaleHeight 表示本窗体内可用的实际高度,不包括标题栏高度及菜单栏高度,只需计算自己的控件高度就是了.
在 windows 样式中,标题栏的高度是可以变的,菜单栏的高度也随着菜单字体的选择而会产生变化.

不错，不错。学习了！

WebBrowser1.Height = Me.ScaleHeight - 64 - StatusBar1.Height - WebBrowser1.Top
减去这64是干什么啊？没看明白啊，指点一下！