Problème get pixel stupide vbRésolu

Question

Bonjourn j'ai un probl&#232;me: Je veux obtenir le code couleur d'une form, donc je proc&#232;de ainsi:

MsgBox GetPixel(Me.hdc, 100, 100)

la &#231;a marche, mais si je fait par exemple

MsgBox GetPixel(Me.hdc, 100, 300) &#231;a ne marches pas.

Alors que les propri&#233;t&#233;s height et width de ma de ma form sont toutes
les deux a plus > 4000 et il n'y a aucun controles ou image . La
vraiment je vois pas AIDEZ MOI SVP!!!!!

Gobillot · Accepted Answer

tu met Me.ScaleMode = vbPixels
les limites sont:
pour X de 0 &#224; Me.ScaleWidth-1
pour Y de 0 &#224; Me.ScaleHeight-1

tout autre valeur provoque une erreur

Daniel

Gobillot · Answer

les unit&#233;s sont en pixels donc tu d&#233;passe de ta Forme.

 Daniel

cs_DARKSIDIOUS · Answer

Salut,



Si ton height et ton width sont sup&#233;rieur &#224; 4000, c'est soit que tu
travaille en twips (bizare, vu que les API n'accepte que des unit&#233;s en
pixels, ou alors, ton getpixel ne renverra pas les couleurs aux m&#234;mes
coordonn&#233;es qu'utilise VB !), soit ta feuille est trop petite, et donc
n'affiche pas les pixels que tu veux r&#233;cup&#232;rer.



Je te sugg&#232;re d'utiliser ma classe de gestion d'image (voir dans mes
sources celle qui s'appelle DKS_Gestion_Image) : tu y gagneras pas mal
en rapidit&#233; (30x plus rapide en moyenne que GetPixel !), et peut-&#234;tre
que ca r&#233;soluera ton probl&#232;me.

DarK Sidious

cs_ITALIA · Answer

l'origine de la Form se trouve au coin haut / gauche et non bas / gauche il faut peut &#234;tre des signes -

It@li@

Gobillot · Answer

les valeurs n&#233;gatives sont pas accept&#233;es
dans le cas d'erreur GetPixel renvoie la constante CLR_INVALID qui est &#233;gale &#224; -1

Daniel

retaks666 · Answer

Et L'api get pixel accepte quoi comme valeur pour x et y ?

Note, j'ai aussi fait le test lors de l'&#233;v&#232;nement mousedown ((...), x as simple, y as simple)

msgbox getpixel(me.hdc, x,y) et &#231;a marche pas.

je vais essayer ta source dark sidious

cs_DARKSIDIOUS · Answer

L'api GetPixel demande des coordonn&#233;es en pixel, et te renverrant
la couleur correspondante au pixel donn&#233;. Si tu lui envoie des twips,
elle croiras que c'est des pixels !


DarK Sidious

retaks666 · Answer

Bon voila &#231;a marche, par contre j'ai un probl&#232;me

en fait, mon but &#233;tait de remplacer les pixels d'un objet par les
pixels d'en dessous de la forms, de fa&#231;ons a faire de la transparence
sur une couleur, j'ai donc fait cette fonction :



Public Sub transparenceformpicture(objet As Object, formcontenant As Form, Optional ByVal couleur As Long = -1)

If couleur -1 Then couleur GetPixel(objet.hdc, 1, 1) 'si la couleur
n'est pas modifi&#233;e, on prends la couleur du premier pixel

objet.ScaleMode = 3 'on met en pixel

objet.AutoRedraw = False

formcontenant.ScaleMode = 3

For X = 0 To objet.ScaleWidth - 1 'ici on commenceau premier pixel de la ligne x de l'objet

    For Y = 0 To objet.ScaleHeight 'ici on commenceau premier pixel de la colone y de l'objet

    If GetPixel(objet.hdc, X, Y) = couleur Then

    SetPixel objet.hdc, X, Y, GetPixel(formcontenant.hdc, (X + objet.ScaleLeft), (Y + objet.ScaleTop))

    End If

    Next Y

Next X

End Sub



mais &#233;videmment &#231;a ne marche pas...

Gobillot · Answer

Public Sub transparenceformpicture(objet As Object, formcontenant As Form, Optional ByVal couleur As Long = -1)
    Dim x  As Long
    Dim y  As Long
    Dim c  As Long
    Dim px As Long
    Dim py As Long
    
    If couleur = -1 Then
     ' le premier pixel est en position 0,0
       couleur = GetPixel(objet.hdc, 0, 0)
       End If
       
    objet.ScaleMode = 3
    objet.AutoRedraw = False
    formcontenant.ScaleMode = 3


    px = objet.Left
    py = objet.Top
  ' je d&#233;place l'objet pour rendre visible le dessous
  ' j'ajoute 2 parce que si pas de bordure &#231;a plante 
    objet.Left = px + objet.Width + 2
  ' attendre pour que l'object se mette en place
    DoEvents
    For x = 0 To objet.ScaleWidth - 1
        For y = 0 To objet.ScaleHeight
            If GetPixel(objet.hdc, x, y) = couleur Then
             ' +2 c'est la bordure de l'object (d&#233;pend du BorderStyle)
               c = GetPixel(formcontenant.hdc, (x + px + 2), (y + py + 2))
          '    il y a erreur si on est plus sur la Forme
               If c = -1 Then MsgBox x & " " & y: Exit Sub
               SetPixel objet.hdc, x, y, c
               End If
            Next y
       Next x
  '  on remet l'object en place
     objet.Left = px
End Sub

Daniel

Gobillot · Answer

il est possible de ne pas d&#233;placer l'object mais de le rendre invisible mais pour cela il faut l'AutoRedraw &#224; True.

objet.AutoRedraw = True
objet.Visible = False
' le code de transparence
objet.Visible = True

Daniel

Problème get pixel stupide vb

10 réponses

Discussions similaires