Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
在 VB 中『窗体最小尺寸控制』是用以下(除去首尾语句后的)三条语句来实现的——
Private Sub Form_Resize()
On Error Resume Next
Me.Width = IIf(Me.Width < 8000, 8000, Me.Width)
Me.Height = IIf(Me.Height < 6000, 6000, Me.Height)
End Sub
上述语句实现了窗体尺寸≥8000×6000,并可以进行最小化操作。
在 Foxtable 中怎样实现这个功能呀?
Dim n1%, n2%
n1 = e.Form.Width
n2 = e.Form.Height
n1 = IIf(n1 < 800, 800, n1)
n2 = IIf(n2 < 450, 450, n2)
e.Form.Width = n1
e.Form.Height = n2
e.Form.Controls("Panel1").Width = n1 - 18
e.Form.Controls("PictureBox1").Width = n1 - 18
e.Form.Controls("PictureBox1").Height = n2 - 44
这段程序可以解决三个问题:
⑴ 窗体的尺寸必须≥800×450(像素);
⑵ 容器控件(Panel1)的宽度将随窗口的宽度改变而改变;
⑶ 图片控件(PictureBox1)的宽高尺寸也将随窗体的宽高改变而改变。
现在的关键是:这段程序放在窗体的哪个事件程序中!!!
我没有看见类似【Form_Resize()】一样的事件程序。