|
Lecture d'un pixel d'une image n'est pas difficile. En fait , VB (Visual Basic) a des fonctions spécifiques intégré qui permettent au programmeur de voir et d'éditer Pixel rapidement et facilement. Il existe d'autres API avancée ( interface de programmation d' application) des fonctions qui utilisent les programmeurs expérimentés qui sont plus rapides et plus efficaces. Apprendre à voir un pixel et extraire les milieux de couleurs individuelles de ce pixel ne sont que les premières étapes pour devenir un gourou VB . Instructions
1 démarrer l'application VB6 . Aller au formulaire où vous avez la photo que vous souhaitez recevoir les données.
2 Ouvrez le formulaire en mode Création .
3 créer trois fonctions qui va lire le pixel une fois que vous avez récupéré it.Public Fonction ExtractRed ( ByVal CurrentColor as Long ) Comme ByteExtractRed = CurrentColor Et 255End FunctionPublic Fonction ExtractGreen ( ByVal CurrentColor as Long ) Comme ByteExtractGreen = ( CurrentColor \\ 256) et 255End FunctionPublic Fonction ExtractBlue ( ByVal CurrentColor As Long ) comme ByteExtractBlue = ( CurrentColor \\ 65536 ) et 255End fonction
4 Dim vos objets comme suit : PixelColor As LongDim ColorRed comme Byte, ColorGreen comme Byte, CouleurBleu comme ByteDim signifiait à l'origine dimension et son utilisation est ici comme un verbe . PixelColor , ColorRed , ColorGreen et CouleurBleu sont toutes les variables d'attente pour l'entrée de données
5 Tapez le code suivant sous vos instructions Dim : . PixelColor = PictureBox.Point ( x , y) Maintenant le code ressemble à ceci : PixelColor As LongDim ColorRed comme Byte, ColorGreen comme Byte, CouleurBleu comme BytePixelColor = PictureBox.Point ( x , y) PictureBox est le nom de la PictureBox votre image est po les coordonnées ( x , y) sont les coordonnées du particulier pixel vous voulez données . Les données du pixel sont maintenant stockées dans le PixelColor variable. L'étape suivante consiste à extraire les différentes couleurs du spectre RVB
6 Tapez le code suivant dans votre dernière déclaration : . ColorRed = ExtractRed ( couleur) ColorGreen = ExtractGreen ( couleur) CouleurBleu = ExtractBlue (Color ) maintenant le code ressemble à ceci: PixelColor As LongDim ColorRed comme Byte, ColorGreen comme Byte, CouleurBleu comme BytePixelColor = PictureBox.Point ( x , y) = ColorRed ExtractRed ( PixelColor ) ColorGreen = ExtractGreen ( PixelColor ) CouleurBleu = ExtractBlue ( PixelColor ) maintenant, chacune des variables ColorRed , ColorGreen et CouleurBleu auront 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.
|
