01/06/2020, 09:01
accessman
şöyle bir fonksiyon var
Public Function GetControlsWindowSize(tag As String)
Dim f As Form
Dim c As Control
Dim GrpLeft As Long
Dim GrpRight As Long
Dim GrpTop As Long
Dim GrpBottom As Long
For Each c In f.Controls
If c.Properties.Item("tag") = tag Then
If GrpLeft = 0 Or GrpLeft > c.Left Then GrpLeft = c.Left
If GrpRight = 0 Or GrpRight < c.Left + c.Width Then GrpRight = c.Left + c.Width
If GrpTop = 0 Or GrpTop > c.Top Then GrpTop = c.Top
If GrpBottom = 0 Or GrpBottom < c.Top + c.Height Then GrpBottom = c.Top + c.Height
End If
Next
End Function