[Jeu] Aidez ma chenille à trouver son cadeau

[Arkham46]

Bonjour à tous,

C'est bientôt Noël, ma chenille aimerait bien trouver son cadeau!
Pouvez-vous l'aider?



Version Access (Mirroir HTTP)
Version Excel (Mirroir HTTP)
Version Word (Mirroir HTTP)

Mon record : 19 déplacements.

Bonnes fêtes!

[Heureux-oli]

Salut Arkham,

J'ai un problème sur Word.

Code :

1
2
 
TransparentBlt

Là

Code :

1
2
Private Function PrivDrawBitmap(pDIB As tDIB, ByVal pX1 As Long, ByVal pY1 As Long, Optional ByVal pX2 As Long = cLongOptional, Optional ByVal pY2 As Long = cLongOptional, Optional pTranspColor As Long = -1, _
                                Optional pImgSizeMode As EGdi32ImgSizeMode = Gdi32SizeModeZoom, Optional pImgPictureAlignment As EGdi32ImgPictureAlignment = 2, Optional pPercent As Integer = 255, Optional pAntialiase As Boolean = False, Optional pRegion As String, Optional pImage As String = "", Optional pRegionColor As Long = -1) As Boolean

Win 7 Office 2010

[Arkham46]

Envoyé par Heureux-oli

Salut Arkham,

J'ai un problème sur Word.

Code :

Win 7 Office 2010

version 64 bits?

tu peux commenter la ligne avec TransparentBlt et décommenter celle du dessus

Code :

1
2
3
4
 
            ' Copie l'image sans couleur de fond
            BitBlt lDib.hdc, pX1, pY1, lWidth, lHeight, lHdcMem, lWrapX, lWrapY, SRCCOPY
            'TransparentBlt lDib.hdc, pX1, pY1, lWidth, lHeight, pDIB.hdc, lWrapX, lWrapY, pDIB.Width, pDIB.Height, pTranspColor

J'ai voulu essayer cette API pour me facilité la vie, mais je crois que je vais revenir en arrière.

[Heureux-oli]

Salut,

Ça tourne.

32 bits

[Heureux-oli]

Salut,

Je t'ai battu !
124 déplacements

[Arkham46]

j'ai corrigé (j'espère) pour 2010, il manquait une déclaration d'API

Envoyé par Heureux-oli

Salut,

Je t'ai battu !
124 déplacements

[Dolphy35]

32 déplacements



@ ++

[Dolphy35]

- 2 = 30