VB窗口大小,控件自动调整的问题

很多人 还老在问VB窗口大小的问题

不多废话了,贴代码

Option ExplicitPrivate nWndHeight As LongPrivate nWndWidth As LongPrivate nControl As LongPrivate lpTop() As LongPrivate lpLeft() As LongPrivate lpWidth() As LongPrivate lpHeight() As LongPrivate Sub Form_Load() Me.GetControlSize Me.WindowState = 2 '......End SubPublic Sub GetControlSize() Dim c As Control, i As Integer nControl = 0 i = Me.ScaleMode Me.ScaleMode = 1 On Local Error Resume Next nWndWidth = Me.Width nWndHeight = Me.Height For Each c In Me.Controls ReDim Preserve lpTop(nControl) ReDim Preserve lpLeft(nControl) ReDim Preserve lpWidth(nControl) ReDim Preserve lpHeight(nControl) lpTop(nControl) = c.Top lpLeft(nControl) = c.Left lpWidth(nControl) = c.Width lpHeight(nControl) = c.Height nControl = nControl + 1 Next Me.ScaleMode = iEnd SubPublic Sub SetControlSize() ' Dim c As Control, i As Integer Dim p As Long i = Me.ScaleMode Me.ScaleMode = 1 For Each c In Me.Controls c.Top = Me.Height * lpTop(p) / nWndHeight c.Left = Me.Width * lpLeft(p) / nWndWidth c.Width = Me.Width * lpWidth(p) / nWndWidth c.Height = Me.Height * lpHeight(p) / nWndHeight p = p + 1 Next Me.ScaleMode = iEnd SubPrivate Sub Form_Resize() Me.SetControlSizeEnd Sub