【文件属性】：
文件名称：vb最大化.doc
文件大小：31KB
文件格式：DOC
更新时间：2015-04-13 13:57:11
vb最大化
下面的代码可以实现，vb窗口最大化的时候，里面的控件一起变化
Option Explicit
Private InitWidth As Long ' Form 的原始大小
Private InitHeight As Long
Private Sub Form_Load()
InitWidth = ScaleWidth
InitHeight = ScaleHeight
Dim Ctl As Control
' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中
On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control
For Each Ctl In Me '也能正常执行
Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "
Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
Next Ctl
On Error GoTo 0
End Sub
网友评论
- 解决了我的问题 谢谢~~