• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Center a form, relative to the available workspace

Center a form, relative to the available workspace

Centers a form, relative to the available workspace. This means that if your users have high, or wide taskbars, or other apps which restrict the workspace, your forms will still center properly.

Inputs
General usage: Stick this in the form's show event: Center Me

Returns
It's a sub, so no returns.

Side Effects
If the workspace is smaller than the form, it still centers, so part of the form will be off the visible area (of course this is a problem with all form centering code).

API Declarations
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Global Const SPI_GETWORKAREA As Long = 48

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Rate Center a form, relative to the available workspace

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Public Sub Center(ByRef frm As Form)
'Centers a form, relative to the available workspace
Dim rt As RECT, result As Long
Dim X As Single, Y As Single
Dim oldScaleMode As Integer
result = SystemParametersInfo(SPI_GETWORKAREA, 0&, rt, 0&)
X = rt.Right - rt.Left
Y = rt.Bottom - rt.Top
X = X * Screen.TwipsPerPixelX
Y = Y * Screen.TwipsPerPixelY
X = X \ 2 - (frm.Width \ 2)
Y = Y \ 2 - (frm.Height \ 2)
oldScaleMode = frm.ScaleMode
frm.ScaleMode = vbTwips
frm.Move X, Y
frm.ScaleMode = oldScaleMode
End Sub