Connaitre la couleur d'un pixel à un emplacement spécifique

Soyez le premier à donner votre avis sur cette source.

Vue 8 884 fois - Téléchargée 673 fois

Description

Voila un exemple démontrant comment utiliser la fonction GetPixel de l'API.

Insérez deux labels et nommez les lblColor et lblCoord
Insérez un shape nommez le shpResult
Et insérez une PictureBox que vous renommerez imgEx

Changez la propriété ScaleMode de imgEx en 3 - Pixel
puis mettez y dedans l'image de votre choix.
Changez la propriété BackStyle de shpResult en 1 - Opaque

Source / Exemple :


Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub imgEx_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim Color As Long
    
    Color = GetPixel(imgEx.hdc, X, Y)
    lblColor.Caption = "&&H" & Hex(Color)
    lblCoord.Caption = "X : " & X & vbCrLf & "Y : " & Y
    shpResult.FillColor = Color
    shpResult.Refresh

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
174
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
18 février 2006

Cool !!! 10/10

Bonne continuation :)
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006

Avec une picture box sa rend bcp mieux y fo juste remplacer cette ligne :
shpResult.FillColor = Color
par
MaPictureBox.Backcolor=Color

voili voilou


Amicalement FrostByte
Messages postés
161
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
10 mars 2002

dla balle
Messages postés
168
Date d'inscription
vendredi 18 janvier 2002
Statut
Membre
Dernière intervention
19 octobre 2009

Super programme de la mort qui tue ...
Continue tu progresse

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.