Positionner au centre écran

[Christian]

Bonjour,

Comment trouver les coordonnées du centre
de l'écran ?

Merci!

 

[kg]

Essaie :

Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub DisplayMonitorInfo()
Dim w As Long, h As Long
w = GetSystemMetrics32(0)
h = GetSystemMetrics32(1)
MsgBox Format(w, "#,##0") & " x " & Format(h, "#,##0"), vbInformation, "Monitor Size (width x height)"
End Sub

w et h te donneront la largeur et la hauteur de ton écran (en point) tu n'as plus qu'a diviser ces valeurs par deux et à les mettre dans ton application.

kg

 

[Christian]

MERCI j'ai fais le test c'est parfait.