Conversion image couleur en noir et blanc

Question

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

ceyquem · Answer

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)

cs_mhd_youssef · Answer

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

cdbi · Answer

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

ccgousset · Answer

Merci Monsieur CDBI . Ca fait trois jour que je cherche.
A ca fait du bien de pas reflechir. Trop content!

ccgousset · Answer

trois jours

Conversion image couleur en noir et blanc

5 réponses

Discussions similaires