deplacer ou ouvrir une application sur le second moniteur [Résolu]

[enibris]

Je cherche à :

ouvrir directement une application ( non un form) sur le second moniteur
ou
ouvrir l’application et la déplacer dans le second moniteur



Merci

[enibris]

je repond à moi même

Code :

1
2
3
4
5
6
7
8
 
Dim hinst As Long
    hinst = FindWindow(vbNullString, "votre tire ici")
 
    If Not IsNull(hinst) Then
        Call SetWindowPos(hinst, HWND_NOTOPMOST, VirtualScreen.Monitor(2).Dimensions_Left, VirtualScreen.Monitor(2).Dimensions_Top, VirtualScreen.Monitor(2).Dimensions_Width, VirtualScreen.Monitor(2).Dimensions_Height, SWP_NOSIZE Or SWP_DRAWFRAME)
        ShowWindow hinst, SW_MAXIMIZE
    End If