devxlogo

A Taskbar-Compliant Version of Centerform

Why Trust Us

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

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.

See also  How Engineering Leaders Spot Weak Proposals
Disclosure

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.

Show More