Bonjour, j'ai un problème d'affichage concernant une texture (propriété Picture de la Form principale). Cette dernière s'affiche correctement chez moi mais est décalée de quelques millimètres lorsqu'on lance l'application créée à partir de ce projet sur d'autres pcs.
Est-ce que vous sauriez d'où peut venir ce bug ?
 
Merci d'avance.  

Est-ce vraiment important le décalage ?

La Form principale n'est pas rectangulaire mais est 'découpée' en cercles et rectangles. Le décallage de quelques millimètres donne donc des zones blanches. Ce programme est fait pour un projet tutoré donc même ce petit décallage est important.  

Ah ok oui... Et au niveau des différents PC, c'est tous le même OS ?

Même OS oui (enfin XP Pro/XP Fam.), sur Win 2000, le même problème aussi...

T'as un bout de code une fois (si c'est pas trop long) ?

Je t'en prépare un petit bout exploitable.  

Private Sub Form_Load()
    Dim Jouer(0 To 2) As POINTAPI
    Dim CerclePlay As Long
    Dim CerclePlayTrou As Long
    Dim TrianglePlay As Long
    Dim Final As Long
     
    CerclePlay = CreateEllipticRgn(400, 40, 500, 140)
     
    CerclePlayTrou = CreateEllipticRgn(405, 65, 495, 115)
     
    Jouer(0).X = 440: Jouer(0).Y = 70
    Jouer(1).X = 440: Jouer(1).Y = 110
    Jouer(2).X = 470: Jouer(2).Y = 90
    TrianglePlay = CreatePolygonRgn(Jouer(0), 3, 1)
     
     
    Final = CreateRectRgn(0, 0, 800, 800)
    CombineRgn CerclePlay, CerclePlay, CerclePlayTrou, RGN_DIFF
    CombineRgn CerclePlay, CerclePlay, TrianglePlay, RGN_OR
    CombineRgn Final, CerclePlay, Final, RGN_AND
    SetWindowRgn Me.hWnd, Final, True
    Me.Refresh
End Sub
 
/* dans le module
 
Type POINTAPI
    X As Long
    Y As Long
End Type
 
Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
 
 
 
Public Const RGN_AND = 1
Public Const RGN_OR = 2
Public Const RGN_XOR = 3
Public Const RGN_DIFF = 4
 
*/
 
Enfin ça va être dur de vérifier... essaye d'y appliquer une image et de changer d'ordi...

Et en mettant des espion sur un petit peu toutes les variables et leur résultat (notamment l'objet 'Final'), y'a-t-il les même coordonnées chez tout le monde ?

Nous n'avons pas encore testé.    
Nous allons le faire dès demain.
 
Merci bien.

Ok, ben vois déjà si le résultat des différentes opérations est le même partout

Les attributs Height et Top ne sont pas les mêmes chez chacun d'entre nous mais les modifier ne change absolument rien au décalage. Incompréhensible.