Slik leser Pixels Fra bildeblokker i VB6

Lese en enkelt piksel fra et bilde er ikke vanskelig. Faktisk, VB (Visual Basic) har spesifikke funksjoner innebygd som gjør at programmerer å vise og redigere piksler raskt og enkelt. Det er andre avanserte API (Application Programming Interface) fungerer som avanserte programmerere bruke som er raskere og mer effektiv. Lære å vise en piksel, og trekke ut de individuelle farge medier fra at pixel er bare de første skritt til å bli en VB guru.

Bruksanvisning

1 Start VB6 program. Gå til skjemaet der du har det bildet du ønsker å motta data fra.

2 Åpne skjemaet i utformingsvisning.

3 Lag tre funksjoner som vil lese pixel når du har hentet den.
Public Function ExtractRed (ByVal current As Long) As Byte
ExtractRed = current Og 255
End Function
Public Function ExtractGreen (ByVal current As Long) As Byte
ExtractGreen = (current \ 256) og 255
End Function
Public Function ExtractBlue (ByVal current As Long) As Byte
ExtractBlue = (current \ 65 536) og 255
End Function

4 Dim objektene som følger:
Dim PixelColor som Long
Dim ColorRed som Byte, ColorGreen som Byte, ColorBlue som Byte
Dim opprinnelig sto for dimensjon og dens bruk her er som et verb. PixelColor, ColorRed, ColorGreen og ColorBlue er variabler som venter på data input.

5 Skriv inn følgende kode under dine Dim uttalelser:
PixelColor = PictureBox.Point (x, y)
Nå koden ser slik ut:
Dim PixelColor som Long
Dim ColorRed som Byte, ColorGreen som Byte, ColorBlue som Byte
PixelColor = PictureBox.Point (x, y)
PictureBox er navnet på den picturebox bildet er i. Koordinatene (x, y) er koordinatene til den spesifikke piksel man ønsker data fra. Dataene fra piksel er nå lagret i variabelen PixelColor. Det neste trinnet er å trekke de enkelte farger fra RGB spekteret.

6 Skriv inn følgende kode under deg siste setningen:
ColorRed = ExtractRed (Color)
ColorGreen = ExtractGreen (Color)
ColorBlue = ExtractBlue (Color)
Nå koden ser slik ut:
Dim PixelColor som Long
Dim ColorRed som Byte, ColorGreen som Byte, ColorBlue som Byte
PixelColor = PictureBox.Point (x, y)
ColorRed = ExtractRed (PixelColor)
ColorGreen = ExtractGreen (PixelColor)
ColorBlue = ExtractBlue (PixelColor)
Nå hver av de variable ColorRed, ColorGreen og ColorBlue vil ha et tall fra null til 255 som er lagret i dem. Du har fanget en piksel og brøt den spesifikke fargesekvens.