|
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction GetPixel
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" ( _
ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : OuiDescription :
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).
Exemple d'utilisation :
' ouneufe (fondusonline@free.fr)
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
Retour à la liste des API |
