devxlogo

A Taskbar-Compliant Version of Centerform

A Taskbar-Compliant Version of Centerform

To center a form, you only need one API call, no UDTs, and two constants. This solution is based on thefact that GetSystemMetrics reflects real estate taken up by the taskbar and the Microsoft Office shortcutbar:

 Public Const SM_CXFULLSCREEN = 16Public Const SM_CYFULLSCREEN = 17#If Win32 then        Declare Function GetSystemMetrics _                Lib "user32" _                (ByVal nIndex As Long) As Long#Else        Declare Function GetSystemMetrics _                Lib "User" _                (ByVal nIndex As Integer) _                As Integer#End IfPublic Sub CenterForm(frm As Form)        frm.Left = Screen.TwipsPerPixelX * _                GetSystemMetrics_                        (SM_CXFULLSCREEN) / 2 _                        - frm.Width / 2        frm.Top = Screen.TwipsPerPixelY * _                GetSystemMetrics_                (SM_CYFULLSCREEN) / 2 _                - frm.Height / 2End Sub
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist