Het lezen van een afzonderlijke pixel van een beeld is niet moeilijk . In feite , VB ( Visual Basic ) heeft specifieke functies ingebouwd die het mogelijk maken de programmeur pixels snel en gemakkelijk bekijken en bewerken . Er zijn andere geavanceerde API ( Application Programming Interface ) functies die een geavanceerde programmeurs gebruiken die sneller en efficiënter zijn . Leren hoe je een pixel bekijken en kopieert de individuele kleur mediums uit die pixel zijn slechts de eerste stappen om een VB -goeroe . Instructies
1 Start de VB6 applicatie . Ga naar het formulier waar u de afbeelding die u wilt de gegevens van ontvangen. Kopen van 2 Open het formulier in ontwerpweergave .
3 Maak drie functies dat de pixel zal lezen als je eenmaal hebt opgehaald it.Public Functie ExtractRed ( ByVal currentcolor als lang) als ByteExtractRed = currentcolor En 255End FunctionPublic Functie ExtractGreen ( ByVal currentcolor als lang) als ByteExtractGreen = ( currentcolor \\ 256 ) En 255End FunctionPublic Functie ExtractBlue ( ByVal currentcolor als lang) als ByteExtractBlue = ( currentcolor \\ 65536 ) En 255End Functie
4 Dim uw objecten als volgt : Dim PixelColor zo LongDim colorred als Byte , ColorGreen als Byte , ColorBlue als ByteDim stond oorspronkelijk voor dimensie en het gebruik ervan is hier als een werkwoord . PixelColor , colorred , ColorGreen en ColorBlue zijn alle variabelen te wachten voor gegevensinvoer
Type 5 de volgende code hieronder uw Afm uitspraken : . PixelColor = PictureBox.Point ( x , y ) Nu is de code ziet er als volgt : Dim PixelColor zo LongDim colorred als Byte , ColorGreen als Byte , ColorBlue als BytePixelColor = PictureBox.Point ( x , y ) PictureBox is de naam van de PictureBox je foto is inch De coördinaten ( x , y ) zijn de coördinaten van de specifieke pixel u gegevens van wilt . De gegevens van de pixel wordt nu opgeslagen in de variabele PixelColor . De volgende stap is om de afzonderlijke kleuren uit het RGB- spectrum extraheren
Type 6 de volgende code onder je laatste opmerking : . Colorred = ExtractRed ( kleur ) ColorGreen = ExtractGreen ( kleur ) ColorBlue = ExtractBlue ( Color ) Nu is de code is als volgt : Dim PixelColor zo LongDim colorred als Byte , ColorGreen als Byte , ColorBlue als BytePixelColor = PictureBox.Point ( x , y ) = colorred ExtractRed ( PixelColor ) ColorGreen = ExtractGreen ( PixelColor ) ColorBlue = ExtractBlue ( PixelColor ) nu elk van de variabelen colorred zullen ColorGreen en ColorBlue enkele hebben van nul tot 255 erin opgeslagen . Je hebt met succes greep een pixel en brak de specifieke kleur volgorde .
|
