Démarrez l'application VB6. Aller à le formulaire où vous avez l'image que vous voulez recevoir les données à partir.
Ouvrez le formulaire en mode Création.
Créez trois fonctions qui vont lire le pixel une fois que vous avez récupéré il.
Fonction publique ExtractRed (ByVal CurrentColor As Long) As Byte
ExtractRed = CurrentColor Et 255
End Function
Fonction publique ExtractGreen (ByVal CurrentColor As Long) As Byte
ExtractGreen = (CurrentColor 256) et 255
End Function
Fonction publique ExtractBlue (ByVal CurrentColor As Long) As Byte
ExtractBlue = (CurrentColor 65536) et 255
End Function
Dim vos objets comme suit:
Dim PixelColor as Long
Dim ColorRed comme Byte, ColorGreen comme Byte, CouleurBleu comme Byte
Dim se tenait à l'origine pour la dimension et son utilisation est ici comme un verbe. PixelColor, ColorRed, ColorGreen et CouleurBleu sont toutes des variables d'attente pour l'entrée de données.
Tapez le code suivant ci-dessous vos instructions Dim:
PixelColor PictureBox.Point = (x, y)
Maintenant, le code ressemble à ceci:
Dim PixelColor as Long
Dim ColorRed comme Byte, ColorGreen comme Byte, CouleurBleu comme Byte
PixelColor PictureBox.Point = (x, y)
PictureBox est le nom de la picturebox votre photo est. Les coordonnées (x, y) sont les coordonnées du pixel spécifique que vous voulez que les données de. Les données du pixel est maintenant stocké dans le PixelColor variable. L'étape suivante consiste à extraire les couleurs individuelles à partir du spectre RVB.
Tapez le code suivant dans votre dernière déclaration:
ColorRed = ExtractRed (couleur)
ColorGreen = ExtractGreen (couleur)
CouleurBleu = ExtractBlue (couleur)
Maintenant, le code ressemble à ceci:
Dim PixelColor as Long
Dim ColorRed comme Byte, ColorGreen comme Byte, CouleurBleu comme Byte
PixelColor PictureBox.Point = (x, y)
ColorRed = ExtractRed (PixelColor)
ColorGreen = ExtractGreen (PixelColor)
CouleurBleu = ExtractBlue (PixelColor)
Maintenant, chacune des variables ColorRed, ColorGreen et CouleurBleu aura un nombre de zéro à 255 stockée en eux. Vous avez saisi avec succès un pixel et est tombé en panne la séquence de couleur spécifique.