Læsning af en enkelt pixel fra et billede er ikke svært. Faktisk har VB ( Visual Basic) specifikke funktioner indbygget i , der tillader programmøren at se og redigere pixels hurtigt og nemt. Der er andre avancerede API ( Application Programming Interface) funktioner, avancerede programmører udnytte der er hurtigere og mere effektiv. At lære at se en pixel og udtrække de enkelte farve medier fra at pixel er blot de første skridt til at blive en VB guru. Instruktioner
1
Start VB6 applikation. Gå til formularen , hvor du har det billede, du ønsker at modtage data fra.
2
Åbn formularen i designvisning.
3
Opret tre funktioner der vil læse den pixel , når du har hentet it.Public Function ExtractRed ( ByVal CurrentColor As Long ) som ByteExtractRed = CurrentColor Og 255End FunctionPublic Function ExtractGreen ( ByVal CurrentColor As Long ) som ByteExtractGreen = ( CurrentColor \\ 256) Og 255End FunctionPublic Function ExtractBlue ( ByVal CurrentColor As Long ) som ByteExtractBlue = ( CurrentColor \\ 65536 ) Og 255End Funktion
4
Dim dine objekter som følger: Dim PixelColor som LongDim SkrogfarveRød som Byte , ColorGreen som Byte , SkrogfarveBlå som ByteDim oprindeligt stod for dimension og dens brug her er som et verbum . PixelColor , SkrogfarveRød , ColorGreen og SkrogfarveBlå er alle variabler venter på data input
5
Indtast følgende kode under dine Dim udsagn : . PixelColor = PictureBox.Point (x, y) Nu koden ser sådan her ud : Dim PixelColor som LongDim SkrogfarveRød som Byte , ColorGreen som Byte , SkrogfarveBlå som BytePixelColor = PictureBox.Point (x, y) PictureBox er navnet på PictureBox dit billede er i. koordinater (x, y) er koordinaterne for det specifikke pixel , du ønsker data fra . Dataene fra pixel er nu gemt i variablen PixelColor . Det næste skridt er at udtrække de enkelte farver fra RGB-spektret
6
Indtast følgende kode under dig sidste udtalelse : . SkrogfarveRød = ExtractRed ( Color) ColorGreen = ExtractGreen (Farve) SkrogfarveBlå = ExtractBlue ( Color ) nu koden ser sådan ud: Dim PixelColor som LongDim SkrogfarveRød som Byte , ColorGreen som Byte , SkrogfarveBlå som BytePixelColor = PictureBox.Point (x, y) SkrogfarveRød = ExtractRed ( PixelColor ) ColorGreen = ExtractGreen ( PixelColor ) SkrogfarveBlå = ExtractBlue ( PixelColor ) nu hver af de variabler SkrogfarveRød vil ColorGreen og SkrogfarveBlå have et tal fra nul til 255 gemt i dem. Du har greb en pixel og nedbrød bestemt farve sekvens.