bordel, je l´avais deja dit, vous lisez pas les posts ? a moins que ca soit trop vieux...
bon, encore une fois:
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 : Oui
Description :
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 (&).
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
voila trouvé sur le site:
http://docvb.free.fr/apidetail.php3?idapi=1
50
