很多人 還老在問VB視窗大小的問題

不多廢話了,貼程式碼

Option Explicit Private nWndHeight As Long Private nWndWidth As Long Private nControl As Long Private lpTop() As Long Private lpLeft() As Long Private lpWidth() As Long Private lpHeight() As Long Private Sub Form_Load() Me.GetControlSize Me.WindowState = 2 '...... End Sub Public 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 = i End Sub Public 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 = i End Sub Private Sub Form_Resize() Me.SetControlSize End Sub