Discussion :

[mj_51]

bonjour tout le monde

je cherche à utiliser la fonction ExtFloodFill sur une image appelée "planisphere"

mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Declare Function ExtFloodfill Lib "gdi32" _
    (ByVal hDC As Long, _
    ByVal XStart As Long, _
    ByVal YStart As Long, _
    ByVal ClrRef As Long, _
    ByVal FillType As Long) As Long
 
   Private Declare Function GetPixel Lib "gdi32" _
    (ByVal hDC As Long, _
    ByVal x As Long, _
    ByVal y As Long) As Long
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim x As Long
Me.FillColor = vbBlack
x = ExtFloodfill(planisphere.hdc, 2, 2, GetPixel(planisphere.hdc, 2, 2), 1)
End Sub

quand je l'exécute j'obtiens le message d'erreur :
"membre de méthode ou de données introuvable"
et le hdc à l'avant-dernière ligne se met en surbrillance

j'espère que vous pourrez m'aider

[titi95]

Bonjour

D'où vient planisphere.hdc ?

titi95

[mj_51]

La fonction ExtFloodFill demande en premier paramètre une variable de type long. Apparamment, le .hdc permet de transformer une image en nombre, du moins, c 'est ce que j'ai cru comprendre.

[titi95]

Vérifie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox planisphere.hdc

pour voir ce qui est renvoyé.

titi95

[mj_51]

désolé pour la réponse aussi tardive

quand j'essaye de faire msgbox, le même message d'erreur apparaît et hdc se met toujours en surbrillance

[titi95]

Bonjour

Ceci confirme mon intuition.
Mais sur ce sujet, j'arrive à la limite de ma compétence ! Désolé.

Juste une dernière question : le Me devant FillColor est-il pertinent ? (le Private Sub Détail_Format est bien placé par rapport à l'objet visé ? ...)

Merci aux collègues de reprendre ton sujet.

titi95