Comment obtenir le infos RGB a parir d'un pixel ???

Question

on a les coordonnées d'un pixel.
mais comment faire pour obtenir ses infos RGB ???
en chargeant ca dans un variable du genre 

Private MesCouleurs(1 to 3) as byte
ou 1 c Red
   2 c Green
   3 c Blue

mariner · Answer

Personnellement j'ai dû programmer ceci:


Public Type tRGBPixel
  Rouge As Byte
  Bleu As Byte
  Vert As Byte
End Type

Public Function Pix32BitsVers8Bits(ByVal Couleur As Long) As tRGBPixel
  '
  ' Convertit une couleur de 32 bits à 8 bits
  '
  Dim lTmp2 As Long
  
  lTmp2 = Couleur And ((2 ^ 8) - 1)
  Pix32BitsVers8Bits.Rouge = CByte(lTmp2)
  
  lTmp2 = Couleur And ((2 ^ 16) - (2 ^ 8) - 1)
  lTmp2 = lTmp2 / ((2 ^ 8) - 1)
  Pix32BitsVers8Bits.Vert = CByte(lTmp2)
  
  lTmp2 = Couleur And ((2 ^ 24) - (2 ^ 16) - (2 ^ 8) - 1)
  lTmp2 = lTmp2 / ((2 ^ 16) - 1)
  Pix32BitsVers8Bits.Bleu = CByte(lTmp2)
  
End Function

| - BLAFARD - | · Answer

merci cher ami
tu me sauve la vie
(je di ca car ca rime :-)

Comment obtenir le infos RGB a parir d'un pixel ???

2 réponses

Discussions similaires