|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
RÉCUPÉRER LA VALEUR RGB D'UN POINT ET ZOOM
Information sur la source
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
- 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
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.
Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
Télécharger le zip
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Que de couleurs impossible [ par Charles Racaud ]
C'est peut-être pas possible mais je chercherait un moyen pour savoir si une couleur est situer entre 2 couleur (Les couleurs sont Rouge et Rouge fonc
valeur rgb d'une couleur [ par vb6fr.dll ]
comment connaitre la valeur rgb d'une couleur?je voudrasi faire un showcolor(commondialog)et pouvoir conneitre la valeur rgb de la couleur choisieMerc
Couleur clé et DirextX7 [ par turnam ]
Voila je voudrai utilisé la couleur rouge (en fait la valeur RGB 252,0,0) comme couleur clé pour afficher une image avec de la transparence , le probl
RGB Excel VB [ par eldim ]
Bonjour,J'ai un petit soucis :Lorsque je récupère la couleur d'un control VB et que j'essai de l'affecter à une cellule excel la couleu
changer pixels(1, 1, 1) en HLS [ par poldere ]
Bonjour et bon WE de pâques, je voulais savoir si il y a une façon facile pour un débutant pour convertir une couleur en byte d'un tabl
Couleur RGB en couleur web ? [ par La biode ]
Bonjour j'aimerais bien connaitre une méthode simple pour passer d'une couleur sélectionné à l'aide d'une common dialogue à un code couleur HTML pour
couleur en rgb [ par Zachs ]
Bonjour, j'aimerai mettre une couleur de fonds de cellule de gridview Me.dgvEventTitle.CurrentRow.DefaultCellStyle.SelectionBackColor = Color.Redet j'
Common Dialog Couleur ! - Led Rgb [ par MaaaGik ]
Bonjour, j'ai réalisé un ptit montage electronique qui permet de gérér des leds rgb ( hoauouu c beau !!! ) , Est il possible de recuperer en temps ree
[?] Couleur RGB et luminosité [ par Ghislain ]
Bonjour à tous,Je cherche à récupérer à partir d'une couleur (rgb ou long) la valeur des trois composantes de luminosité, teinte et contraste.Une idée
couleur HEX vers RGB [ par petchy ]
bonsoir j'ai une couleur en HEX (&H00CF9874&),et je voudrais trouver l'équivalence en RGB.j'ai beau chercher mais je ne trouve pas.mercipetc
|
Téléchargements
Logiciels à télécharger sur le même thème :
|