Lesen eines einzelnen Pixels von einem Bild ist nicht schwer. In der Tat hat VB (Visual Basic) Funktionen eingebaut , die es dem Programmierer, anzuzeigen und zu bearbeiten Pixel schnell und einfach zu ermöglichen. Es gibt auch andere erweiterte API (Application Programming Interface) Funktionen, die fortgeschrittene Programmierer nutzen das sind schneller und effizienter. Lernen, wie man ein Pixel anzeigen und extrahieren die einzelnen Farb- Medien von diesem Pixel sind nur die ersten Schritte , um zu einem VB -Guru. Anleitung
1
starten VB6 Anwendung . Gehen Sie auf die Form , wo Sie das gewünschte Bild , um die Daten aus erhalten haben .
2
Öffnen Sie das Formular in der Entwurfsansicht .
3
Erstellen Sie drei Funktionen das liest die Pixel , wenn Sie it.Public Funktion ExtractRed (ByVal CurrentColor As Long) As ByteExtractRed = CurrentColor Und 255End FunctionPublic Funktion ExtractGreen (ByVal CurrentColor As Long) As ByteExtractGreen = ( CurrentColor \\ 256 ) Und 255End FunctionPublic Funktion ExtractBlue (ByVal abgerufen haben CurrentColor As Long) As ByteExtractBlue = ( CurrentColor \\ 65536) Und 255End Funktion
4
Dim Ihre Objekte wie folgt : Dim pixelColor als LongDim Blau und Rot als Byte , ColorGreen als Byte , FarbeBlau als ByteDim stand ursprünglich für Dimension und ihre Nutzung ist hier als Verb . PixelColor , Blau und Rot , ColorGreen und Farben Blau sind alle Variablen wartet Dateneingabe
5
Geben Sie den folgenden Code unter Ihrer Dim-Anweisungen : . PixelColor = PictureBox.Point (x, y) Nun sieht der Code wie folgt : Dim pixelColor als LongDim Blau und Rot als Byte , ColorGreen als Byte , FarbeBlau als BytePixelColor = PictureBox.Point (x, y) ist PictureBox der Name des picturebox Ihr Bild ist in. die Koordinaten (x, y ) die Koordinaten des spezifischen pixel Sie wollen Daten aus . Die Daten von dem Bildpunkt wird nun in der Variablen Pixelfarbe gespeichert. Der nächste Schritt ist , um die einzelnen Farben aus dem RGB -Spektrum zu extrahieren
6
Geben Sie den folgenden Code unter Ihnen letzte Aussage : . Blau und Rot = ExtractRed (Color) ColorGreen = ExtractGreen (Color) Farben Blau = ExtractBlue ( Farbe ) Nun sieht der Code wie folgt aus: Dim pixelColor als LongDim Blau und Rot als Byte , ColorGreen als Byte , FarbeBlau als BytePixelColor = PictureBox.Point (x, y) = Blau und Rot ExtractRed ( pixelColor ) ColorGreen = ExtractGreen ( pixelColor ) Farben Blau = ExtractBlue ( pixelColor ) Jetzt jede der Variablen Blau und Rot , werden ColorGreen und Farben Blau eine Zahl von Null bis 255 in ihnen gespeichert haben . Sie haben erfolgreich packte einen Pixel und brach die spezifische Farbe Sequenz .