Api getpixel (exemple)

Commenter

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

S'inscrire maintenant

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.