Lesen von Pixeln aus Bildfelder in VB6

Ein einzelnes Pixel aus einem Bild zu lesen ist nicht schwer. VB (Visual Basic) hat in der Tat spezifische Funktionen integrierte, die Programmierer anzeigen und bearbeiten Pixel ermöglichen, schnell und einfach. Es gibt andere erweiterte API (Application Programming Interface) Funktionen, die fortgeschrittene Programmierer nutzen, die schneller und effizienter sind. Lernen, wie man eine Pixel anzeigen und Extrahieren von einzelnen Farbe-Medien dieses Pixel sind nur die ersten Schritte zu einem VB-Guru.

Anweisungen

1 Starten Sie die VB6-Anwendung. Gehen Sie zu dem Formular, wo Sie das Bild haben, die Daten empfangen soll.

2 Öffnen Sie das Formular in der Entwurfsansicht.

3 Erstellen Sie drei Funktionen, die das Pixel gelesen werden, nachdem Sie sie abgerufen haben.Public Function ExtractRed (ByVal CurrentColor solange) als ByteExtractRed = CurrentColor und 255EndFunctionPublic Function ExtractGreen (ByVal CurrentColor solange) als ByteExtractGreen = (CurrentColor \ 256) und 255EndFunctionPublic Function ExtractBlue (ByVal CurrentColor solange) als ByteExtractBlue = (CurrentColor \ 65536) und 255EndFunction

4 Dim Ihre Objekte wie folgt:Dim PixelColor so langeColorRed als ColorBlue als Byte, Byte, ColorGreen als Byte DimDim stand ursprünglich für Dimension und seine Verwendung hier ist als Verb. PixelColor, ColorRed, ColorGreen und ColorBlue sind alle Variablen, die Dateneingabe warten.

5 Geben Sie den folgenden Code unter Dim-Anweisungen:PixelColor = PictureBox.Point (X, y)Jetzt sieht der Code so aus:Dim PixelColor so langeColorRed als ColorBlue als Byte, Byte, ColorGreen als Byte DimPixelColor = PictureBox.Point (X, y)PictureBox ist der Name von ist Ihr Bild in Picturebox. Die Koordinaten (X, y) sind die Koordinaten des gewünschten Daten aus bestimmten Pixels. Die Daten aus der Pixel ist nun in der Variablen PixelColor gespeichert. Der nächste Schritt ist, die einzelnen Farben aus dem RGB-Spektrum zu extrahieren.

6 Geben Sie den folgenden Code unter Sie letzte Anweisung:ColorRed = ExtractRed(Color)ColorGreen = ExtractGreen(Color)ColorBlue = ExtractBlue(Color)Jetzt sieht der Code so aus:Dim PixelColor so langeColorRed als ColorBlue als Byte, Byte, ColorGreen als Byte DimPixelColor = PictureBox.Point (X, y)ColorRed = ExtractRed(PixelColor)ColorGreen = ExtractGreen(PixelColor)ColorBlue = ExtractBlue(PixelColor)Jetzt wird jede der Variablen ColorRed, ColorGreen und ColorBlue eine Zahl zwischen 0 und 255, die in ihnen gespeichert haben. Sie haben erfolgreich eine Pixel packte und brach die Sequenz der bestimmten Farbe.