سيقوم البرنامج التالي بخصم الارتفاع (أو العرض) الذي يشغله شريط المهام عند الحساب. إذا كان هناك شريط اختصار يبدأ تشغيل Microsoft Office، فسيتم أيضًا خصم الارتفاع (أو العرض) الذي يشغله شريط الاختصار.
PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17
#إذاWin32ثم
قم بتعريف الدالة GetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLong
#آخر
DeclareFunctionGetSystemMetricsLib"المستخدم"(ByValnIndexAsInteger)AsInteger
#EndIf
PublicSubCenterForm(frmAsForm)
frm.Left=Screen.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Screen.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
EndSub
ما عليك سوى استخدام CenterFormMe في Form_Load ->