VB 控件的大小随Form增大而增大,变小而变小

最新推荐文章于 2025-06-10 09:21:17 发布

原创

最新推荐文章于 2025-06-10 09:21:17 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #string #each #integer #user

这段代码展示了如何在VB中实现窗体（Form）及控件随着窗体大小改变自动调整大小的功能。通过定义ctrObj类型记录控件信息，并使用ResizeControl函数计算缩放比例，实现控件精确缩放。此外，还包括了保存和恢复窗体位置的函数，以确保窗口状态在程序运行期间得到维护。

'Form部分

Private Sub Form_Resize()
Dim H, i As Integer
On Error Resume Next
Resize_ALL Me 'Me是窗体名，Form1,Form2等等都可以

End Sub

'以下部分是设置form控件大小的部分

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 Long
End Type

Private FormRecord() As ctrObj
Private ControlRecord() As ctrObj

Private bRunning As Boolean
Private MaxForm As Long
Private MaxControl As Long
Private Const WM_NCLBUTTONDOWN = &HA1

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long

Function ActualPos(plLeft As Long) As Long

If plLeft < 0 Then
ActualPos = plLeft + 75000
Else
ActualPos = plLeft
End If

End Function

Function 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 If

End Function

Function 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 FormControl

End Function

Function FindControl(inControl As Control, inName As String) As Long

Dim i As Long
FindControl = -1

For i = 0 To (MaxContr