Läsa en enskild pixel från en bild är inte svårt . I själva verket har VB ( Visual Basic ) specifika funktioner inbyggda som tillåter programmeraren att visa och redigera pixlar snabbt och enkelt . Det finns andra avancerade API ( Application Programming Interface ) funktioner som avancerade programmerare använder som är snabbare och mer effektiva . Att lära sig att se en pixel och extrahera enskilda färg medier från denna pixel är bara de första stegen till att bli en VB guru . Instruktioner
1
Starta VB6 ansökan . Gå till formuläret där du har den bild du vill ta emot data från .
2
Öppna formuläret i designläge .
3
Skapa tre funktioner som kommer att läsa den pixeln när du har hämtat it.Public Funktion ExtractRed ( ByVal CurrentColor As Long ) som ByteExtractRed = CurrentColor Och 255End FunctionPublic Funktion ExtractGreen ( ByVal CurrentColor As Long ) som ByteExtractGreen = ( CurrentColor \\ 256 ) Och 255End FunctionPublic Funktion ExtractBlue ( ByVal CurrentColor As Long ) som ByteExtractBlue = ( CurrentColor \\ 65536 ) Och 255End Funktion
4
Dim dina objekt enligt följande : Dim PixelColor som LongDim ColorRed som byte , ColorGreen som byte , ColorBlue som ByteDim stod ursprungligen för dimensionen och dess användning här är som ett verb . PixelColor , ColorRed , ColorGreen och ColorBlue är alla variabler som väntar på indata
5
Skriv följande kod under dina Dim uttalanden : . PixelColor = PictureBox.Point ( x , y ) Nu koden ser ut så här : Dim PixelColor som LongDim ColorRed som byte, ColorGreen som byte, ColorBlue som BytePixelColor = PictureBox.Point (x , y) är PictureBox namnet på PictureBox din bild är i. koordinaterna ( x, y) är koordinaterna för den specifika pixel du vill ha data från . Uppgifterna från pixeln är nu lagrad i variabeln PixelColor . Nästa steg är att extrahera de enskilda färgerna från RGB- spektrat
6
Skriv följande kod under dig senaste uttalande : . ColorRed = ExtractRed ( Color ) ColorGreen = ExtractGreen ( Color ) ColorBlue = ExtractBlue ( Color ) nu koden ser ut så här : 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 ) nu var och en av variablerna ColorRed kommer ColorGreen och ColorBlue har ett antal från noll till 255 som lagras i dem . Du har nu gripit en pixel och bröt ned den specifika färgen sekvensen .