Lese en enkelt piksel fra et bilde er ikke vanskelig. Faktisk har VB ( Visual Basic) spesifikke funksjoner innebygd i som gjør at programmerer å vise og redigere piksler raskt og enkelt. Det er andre avanserte API ( Application Programming Interface) funksjoner som avanserte programmerere utnytter er at 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 for å bli en VB guru . Instruksjoner
en

Start VB6 programmet. Gå til skjemaet der du har bildet du ønsker å motta data fra .
2

Åpne skjemaet i utformingsvisning .
3

Lag tre funksjoner som vil lese pixel når du har hentet it.Public Function ExtractRed ( ByVal currentcolor As Long) As ByteExtractRed = currentcolor Og 255End FunctionPublic Funksjon ExtractGreen ( ByVal currentcolor As Long) As ByteExtractGreen = ( currentcolor \\ 256 ) Og 255End FunctionPublic Funksjon ExtractBlue ( ByVal currentcolor som Long) As ByteExtractBlue = ( currentcolor \\ 65536 ) Og 255End Funksjon
4

Dim objektene som følger: Dim PixelColor som LongDim ColorRed som Byte , ColorGreen som Byte , ColorBlue som ByteDim opprinnelig sto for dimensjon og bruken 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 LongDim ColorRed som Byte , ColorGreen som Byte , ColorBlue som BytePixelColor = PictureBox.Point ( x , y ) er PictureBox navnet på picturebox bildet ditt er i. koordinatene ( x , y ) er koordinatene til den spesifikke pixel du ønsker data fra . Dataene fra piksel er nå lagret i variabelen PixelColor . Det neste trinnet er å trekke ut 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 LongDim ColorRed som Byte , ColorGreen som Byte , ColorBlue som BytePixelColor = PictureBox.Point ( x , y ) ColorRed = ExtractRed ( PixelColor ) ColorGreen = ExtractGreen ( PixelColor ) ColorBlue = ExtractBlue ( PixelColor ) nå er hver av variablene ColorRed , vil ColorGreen og ColorBlue ha et tall fra null til 255 som er lagret i dem. Du har fanget en piksel og rev ned bestemt farge sekvens.