Center a set of controls horizontally on a form.

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'PURPOSE: Centers a set of controls (e.g., command buttons) 
'horizontally within a form, and aligns their top.

'DECLARATION: Public Function CenterControlsHorizontal(Space As _
'Long,  ParamArray Ctls()) as Boolean

'PARAMETERS: 
  '1) SPACE:  Amount of space, measured in form's scale mode, 
  'between each control

'2) CTLS(): Controls to center.

'RETURNS:  True if executes without error, false otherwise.

'Written to be used within a form.
'Can be modified to work with any form -- just add a form object
'as a parameter

Private Function CenterControlsHorizontal(Space As _ 
Long, ParamArray Ctls()) as Boolean)

On Error GoTo ErrorHandler:

Dim lTotalSpace As Long
Dim iCtr as integer

'Calculate total space
For iCtr = 0 To UBound(Ctls)
	lTotalSpace = lTotalSpace + Ctls(iCtr).Width
Next

lTotalSpace = lTotalSpace + (space * (UBound(Ctls)))

'Center First control relative to form and other controls
Ctls(0).Left = (Me.Width - (lTotalSpace / UBound(Ctls)) + 1) / 2

'Position other controls
For iCtr = 1 To UBound(Ctls)
 
   Ctls(iCtr).Left = Ctls(iCtr - 1).Left + _
   Ctls(iCtr - 1).Width + space
  
   Ctls(iCtr).Top = Ctls(0).Top

CenterControlsHorizontal = True
Exit Function

ErrorHandler:
CenterControlsHorizontal = False
Exit Function

End Function