使控件随着窗口的变大而变大

最新推荐文章于 2024-05-01 17:07:43 发布

wwqna

最新推荐文章于 2024-05-01 17:07:43 发布

阅读量1.7k

点赞数

分类专栏： Visual Basic 文章标签： integer command object string

本文链接：https://blog.youkuaiyun.com/wwqna/article/details/262596

版权

Visual Basic 专栏收录该内容

5 篇文章

订阅专栏

该博客介绍了一种方法，使VB6中的控件在窗口大小改变时按比例自动调整大小。通过定义ControlSize类型，保存控件的相对位置和尺寸比例，在Form_Load和Form_Resize事件中使用Resize和SaveSize子程序来实现这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit
Private Type ControlSize
name As String '控件名称
x As Single '左边距比例
y As Single '右边距比例
cx As Single '宽度比例
cy As Single '长度比例
End Type
Dim arrSize() As ControlSize
Private Sub Form_Load()
ReDim arrSize(0) As ControlSize
SaveSize Command1
SaveSize Command2
End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Exit Sub
End If
Resize Command1
Resize Command2
End Sub

Private Sub Resize(obj As Object)
Dim i As Integer
Dim j As Integer
j = UBound(arrSize())
For i = 1 To j
If arrSize(i).name = obj.name Then
Exit For
End If
Next i
If i > j Then
Exit Sub
Else
obj.Left = arrSize(i).x * Me.ScaleWidth
obj.Top = arrSize(i).y * Me.ScaleHeight
obj.Width = arrSize(i).cx * Me.ScaleWidth
obj.Height = arrSize(i).cy * Me.ScaleHeight
End If

End Sub

Private Sub SaveSize(obj As Object)
Dim count As Integer
count = UBound(arrSize)
ReDim Preserve arrSize(count + 1)
arrSize(count + 1).name = obj.name
arrSize(count + 1).x = obj.Left / Me.ScaleWidth
arrSize(count + 1).y = obj.Top / Me.ScaleHeight
arrSize(count + 1).cx = obj.Width / Me.ScaleWidth
arrSize(count + 1).cy = obj.Height / Me.ScaleHeight
End Sub