VB中控件大小随窗体大小变化而变化.docVIP

窗体底端 VB中控件大小随窗体大小变化而变化 　　有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。　　在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如： Private Sub Form_Resize()　Dim H, i As Integer　On Error Resume Next　Resize_ALL Me Me是窗体名，Form1,Form2等等都可以End Sub 　　在模块中添加以下代码： Public Type ctrObj　Name As String　Index As Long　Parrent As String　Top As Long　Left As Long　Height As Long　Width As Long　ScaleHeight As Long　ScaleWidth As LongEnd TypePrivate FormRecord() As ctrObjPrivate ControlRecord() As ctrObjPrivate bRunning As BooleanPrivate MaxForm As LongPrivate MaxControl As LongPrivate Const WM_NCLBUTTONDOWN = HA1Private Declare Function SendMessage Lib USER32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function ReleaseCapture Lib USER32 () As LongFunction ActualPos(plLeft As Long) As Long　If plLeft 0 Then　　ActualPos = plLeft + 75000　Else　　ActualPos = plLeft　End IfEnd FunctionFunction FindForm(pfrmIn As Form) As Long　Dim i As Long　FindForm = -1　If MaxForm 0 Then　　　For i = 0 To (MaxForm - 1)　　　If FormRecord(i).Name = pfrmIn.Name Then　　　　FindForm = i　　　　Exit Function　　　End If　　Next i　End IfEnd FunctionFunction AddForm(pfrmIn As Form) As Long　Dim FormControl As Control　Dim i As Long　ReDim Preserve FormRecord(MaxForm + 1)　FormRecord(MaxForm).Name = pfrmIn.Name　FormRecord(MaxForm).Top = pfrmIn.Top　FormRecord(MaxForm).Left = pfrmIn.Left　FormRecord(MaxForm).Height = pfrmIn.Height　FormRecord(MaxForm).Width = pfrmIn.Width　FormRecord(MaxForm).ScaleHeight = pfrmIn.ScaleHeight　FormRecord(MaxForm).ScaleWidth = pfrmIn.ScaleWidth　AddForm = MaxForm　MaxForm = MaxForm + 1　For Each FormControl In pfrmIn　　i = FindControl(FormControl, pfrmIn.Name)　　If i 0 Then　　　i = AddControl(FormControl, pfrmIn.Name)　　End If　Next FormControlEnd FunctionFunction FindControl(inControl As Control, inName As String) As Long　Dim i As Long　FindContro