Accueil > > > RÉCUPÉRER LA VALEUR RGB D'UN POINT ET ZOOM
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.
Sources du même auteur
Sources de la même categorie
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 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
Couleur RGB [ par TomIlliev ]
Bonjour à toutes et à tous... Voilà je voudrai faire varier une couleur (d'un contrôle) en fonction d'une valeur que j'incrémente de 1 en 1 dans une b
|
Derniers Blogs
[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|