Je cherche a convertir l'image d'un picturebox en couleurs vers une image monochrome, pour ensuite la mettre dans le clipboard (prend moins de place). Comment faire ?
Merci d'avance

Bonjour !

Il faut tester chaque point de cette image, placée dans un picturebex avec Point(x,y...) et récupérér ainsi la couleur. Cette couleur, on en prend les trois valeurs RVB, on aditionne, on divise par trois et on fait un point par dessus avec Line (x1,x1)-(x2,y2)ayant comme couleur le tiers calculé précédemment en R, V, B.

ceyquem
www.lesiteweb.fr.st (visual basic)



-------------------------------
Réponse au message :
-------------------------------

Je cherche a convertir l'image d'un picturebox en couleurs vers une image monochrome, pour ensuite la mettre dans le clipboard (prend moins de place). Comment faire ?
Merci d'avance

-------------------------------

je cherche a convertir une image couleur a une image en noir et blanc en delphi

CDBI
Conversion en échelle de gris d'une pictureBox

Public Sub GrayScale(picSRC As PictureBox)
Dim Y As Integer, X As Integer
Dim c As Long, r As Long, g As Long, b As Long, luma As Long
picSRC.AutoRedraw = True
picSRC.ScaleMode = vbPixels
For Y = 0 To picSRC.ScaleHeight
    For X = 0 To picSRC.ScaleWidth
        c = GetPixel(picSRC.hdc, X, Y)
        GetRGB c, r, g, b
        luma = CInt(r * 0.3 + g * 0.59 + b * 0.11)
        SetPixel picSRC.hdc, X, Y, RGB(luma, luma, luma)
    Next X
Next Y
Set picSRC.Picture = picSRC.image
End Sub