Récupérer la valeur rgb d'un point et zoom
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.
Vous pouvez, comme dans l'exemple zippé, faire un outil pipette, puis un zoom.
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
- Récupérer la valeur rgb d'un point et zoom
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Comment appeler une cellule d'une autre feuille - Forum Visual Basic
- [Vba] aller chercher des données dans une feuille excel ✓ - Forum Visual Basic
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
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.