Récupérer la valeur rgb d'un point et zoom

Soyez le premier à donner votre avis sur cette source.

Vue 7 986 fois - Téléchargée 678 fois

Description

Ce code est très simple et s'inspire du code de superposition de 2 images (dans la même rubrique). Dans les arguments, PB est le PictureBox, X et Y la position du point par rapport au coint haut-gauche du PictureBox (en Pixels, donc divisez la position en Twips par 14.99, ou par Screen.TwipsPerPixelX, ou Screen.TwipsPerPixelY selon le cas), rd, vb et bd sont les valeurs dans lesquelles on place respectivement la composante Rouge, Verte et Bleue.

Source / Exemple :


Function CoulPoint(PB As PictureBox, X, Y, rd, vd, bd)
    Dim r As Long
    Dim v As Long
    Dim b As Long
    Dim Couleur1
    Dim Couleur2
    Couleur1 = PB.Point(X * 14.99, Y * 14.99)
    Couleur2 = Couleur1
    bd = ((((Couleur2 \ &H10000) And &HFF) * 50) + (((Couleur1 \ &H10000) And &HFF) * 50)) \ 100
    vd = ((((Couleur2 \ &H100) And &HFF) * 50) + (((Couleur1 \ &H100) And &HFF) * 50)) \ 100
    rd = (((Couleur2 And &HFF) * 50) + ((Couleur1 And &HFF) * 50)) \ 100
    CoulPoint = RGB(rd, vd, bd) 'pour avoir la couleur directement !
End Function

Conclusion :


Vous pouvez, comme dans l'exemple zippé, faire un outil pipette, puis un zoom.

Codes Sources

A voir également

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.