[请教]窗体大小随内容大小而改变？

[cnzfq2008]

请教：

窗体大小随内容的改变而变化

内容是一张调用的网页。

懂的朋友帮忙下，谢谢你。

[zhufenghappy]

你就根据你的内容大小计算需要窗体的长宽
Private Sub Form_Resize()
Me.Height = aa 'aa 是你需要的高度
Me.Width = bb 'bb 是你需要的宽度
End Sub

[cnzfq2008]

需要程序自动更改，因为内容大小不确定，是调用网页。

[bob008]

你要把窗口的计量方式由 TWIPS 改成PIXEL 也不知道属性值是不是这几个字母,不过应该差不多...

然后 调用那个的时候比如

PRIVATE SUB BTN_LOAD()
U..LOAD----
Me.Height = XX.aa 'aa 是XX的高度
Me.Width = XX.bb 'bb 是XX的宽度

END