Le programme suivant déduira la hauteur (ou la largeur) occupée par la barre des tâches lors du calcul. S'il existe une barre de raccourcis qui démarre Microsoft Office, la hauteur (ou la largeur) occupée par la barre de raccourcis sera également déduite.
PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17
#SiWin32Alors
DeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLong
#Autre
DeclareFunctionGetSystemMetricsLib"User"(ByValnIndexAsInteger)AsInteger
#FinSi
PublicSubCenterForm(frmAsForm)
frm.Left=Screen.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Screen.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
FinSub
Utilisez simplement CenterFormMe dans Form_Load ->