Controlleri horizontal eksende ortalamak için
[vb]Private Sub Form_Resize()
Call CenterControls
End Sub
Private Sub Form_Current()
DoCmd.Maximize
Call CenterControls
End Sub
Sub CenterControls()
'Find the control that has the farthest left position, and the one with the farthest right position.
'That will give us the total distance of our buttons. We will then have to compare that to the width of the form, and move our controls accordingly.
Dim Ctrl As Control
Dim Clo
|