API pour intersection 2 FormsRésolu

Question

Comment connaitre facilement si 2 forms se chevauchent ?
J'avais pens&#233; &#224; IntersectRect, mais il faut lui passer les coordonn&#233;es de forms. Il doit bien en avoir une qui ne se contente que de hwnd ou hdl ?

cs_salazar · Accepted Answer

Private Function IntersecForms(IUserForm As Long, IFormRef As Long) As Boolean
    Dim Coord As RECT
    Dim Coord1 As RECT
    Dim Coord2 As RECT
    Dim res As Long
    
    GetWindowRect FormInfo(IUserForm).hWnd, Coord1
    GetWindowRect FormInfo(IFormRef).hWnd, Coord2
    IntersectRect Coord, Coord1, Coord2
    res = IsRectEmpty(Coord)
        If res 1 Then IntersecForms True Else IntersecForms = False
    Debug.Print IntersecForms

End Function

Merci,

cs_DARKSIDIOUS · Answer

Ben utilise GetWindowRect pour r&#233;cup&#232;rer les rectangles des fen&#234;tres,
et ensuite IntersectRect pour savoir si elles se chevauchent ou pas.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

ScSami · Answer

Wai, c'est bien ce que disait DarkSidious !!! N'est-il
pas un peu egocentriste de valider ton propre post plut&#244;t que (et/ou)
celui de Darky ???



Enjoy

cs_DARKSIDIOUS · Answer

Ah oui au fait, j'oubliais : de rien...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

API pour intersection 2 Forms

4 réponses

Discussions similaires