Discussion :

[Chester_H]

Bonjour,

Partant d’une image bmp, je voudrais pouvoir en extraire l’intensité lumineuse dans chaque bande R,V,B de chaque pixel en utilisant les fonctionnalités de VB6.
A part charger l’image dans une picturebox, je ne vois pas la suite de la marche à suivre ( quelles instructions ...)

Dernier test :en fait en utilisant " PixelColor(x, y) = Picture.Point(x, y) j'obtiens des valeurs sur une image test simplifiée variant entre 0 et 16 777 215 ( noir au blanc ) mais je saurais dire à quoi elle correspondent.

cordialement

[Chester_H]

Bonjour,

En attendant, j'ai trouvé quelques pistes mais le décodage que j'en fais ne m'avance pas beaucoup.
En gros il suffirait de créer des fonctions( pour chaque couleur) du type :

"Public Function RedFromRGB(ByVal rgb As Long) _ As Integer "

et, pour capturer la couleur d'un pixel de l'écran, de créer une fonction d'appel type

" Public Sub GetPixelScreenColor(ByVal x As Long, ByVal y As Long, ByRef Red As Integer, ByRef Green As Integer, ByRef Blue As Integer)"
*
RGBPx = GetPixel(GetDC(0&), x, y) ' RGBPx,= couleur du pixel "capturé".
Red = &HFF& And RGBPx
Green = (&HFF00& And RGBPx) \ 256
Blue = (&HFF0000 And RGBPx) \ 65536
*
End Sub
Je n'arrive pas à comprendre la signification de ce code ( à part qu'on utilise de l'hexa) ainsi que je pensais pouvoir utiliser Point(x,y).....

[ProgElecT]

Salut

Je ne programme plus en VB6, mais l'ai pratiqué de nombreuses années.
Dans cette contribution Convertisseur couleur, déplacement curseur souris au clavier, prise de mesures en pixels, capture de couleurs (pipette),
en cliquant sur le lien de téléchargement tu pourras voire les sources te permettant d'avoir différentes fonctions en rapport avec ton besoin.

[Chester_H]

Bonsoir,
Merci de ta réponse, je désespérais devant le peu de retour…

j’ai récupéré dans ton code «*Mouse*» ,les relations permettant de calculer chaque composante dans les fonctions R,V,B. du code.
Dans une boucle x,y (dimensions de l’image analysée ) j’utilise alors les quatre lignes de code*suivantes:

Code :

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

1
2
3
4
5
 PixelColor(x, y) = Picture.Point(x, y)  ‘Picture = image analysée
 
 Bleu(x, y) = Int(PixelColor(x, y) / 65536)
 Vert(x, y) = Int((PixelColor(x, y) - (65536 * Bleu(x, y))) / 256)
 Rouge(x, y) = PixelColor(x, y) - ((Bleu(x, y) * 65536) + (Vert(x, y) * 256))

Et ça marche…..*: une fois les composantes obtenues pour chaque pixel, je reconstitue l’image de base avec

Code :

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

Pset(x, y), RGB(Rouge(x, y), Vert(x, y), Bleu(x, y))

Je ne m’attendais pas à un code aussi simple après avoir lu des codes ou il était question plutôt de GetPixel, de l’utilisation de fonctions à appeler, peut-être que la complication venait également du format en hexa*? La rapidité de traitement est plus importante si on utilise de GetPixel?

[umfred]

tu vas trouver sur https://www.codeproject.com/Articles...h-Visual-Basic du code qui va te sortir les infos du bitmap (dont les niveaux RVB des points de l'image); ça se base sur le décodage du format BMP, lu comme un fichier binaire https://fr.wikipedia.org/wiki/Windows_bitmap