Api getpixel (exemple)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 805 fois - Téléchargée 39 fois

Contenu du snippet

Declare Function GetPixel Lib "gdi32" Alias "GetPixel" ( _
ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long) As Long
Cette fonction retourne la couleur du pixel dont les coordonnées sont passées en argument.
hdc est le contexte de travail.
x et y représentent les coordonnées du pixel.
La fonction retourne la couleur du point (telle que le ferait la fonction RGB). Si le point est en dehors des limites du contexte, elle retourne CLR_INVALID (&hFFFF).

Source / Exemple :


Option Explicit
' Créer :
' - un label nommé lblcouleur
' - un label nommé lblcoord
' un rectangle shape nommé réusultat (propriété opaque)
' une picture box nommée exemple

' Déclaration API GetPixel (renvoie une information de couleur)
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
        ByVal X As Long, ByVal Y As Long) As Long

' A l'événement clic de l'image est préféré le mousedown qui renvoie
' automatiquement les coordonnées X et Y du pointeur
Private Sub exemple_MouseDown(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
Dim C As Long
C = GetPixel(exemple.hdc, X, Y)
' affichage chiffré
Lblcouleur.Caption = Hex(C)
Lblcoord.Caption = X & " " & Y
' affichage de la couleur
Resultat.FillColor = C
Resultat.Refresh
End Sub

Conclusion :


cette source provient de : http://docvb.free.fr/apidetail.php?idapi=150

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
5 octobre 2008

bonjour,
pour que ce code fonctionne il faut ajouter :

Private Sub Form_Load()
exemple.ScaleMode = 3
End Sub

Changer aussi la propriété FillStyle en la mettant sur 0 du shape resultat, Fillcolor ne tiendra pas compte des changements si Fillstyle est sur 1.
Et n'oubliez pas d'affecter une image au picturebox dans ses propriétés.

bon code
Messages postés
1
Date d'inscription
dimanche 24 juin 2007
Statut
Membre
Dernière intervention
28 juin 2007

Il et une erreur dans le programme, le X et le y doit y avoir des uniformes pour 15 avant d'être employé
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015

' un rectangle shape nommé réusultat (propriété opaque)
Je corrige :
' un rectangle shape nommé Resultat (propriétée BackStyle > Opaque)
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 juin 2008

c bon t'as sourcé je croyais que t'allais laisser ça vide ^^
@+
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004

franchement... les fréquentations du site sont de plus en plus.... hem hem...
Afficher les 6 commentaires

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.