Hoe om te lezen Pixels Van Picture Dozen in VB6

lezen van een afzonderlijke pixel van een beeld dat is niet moeilijk.In feite, VB (Visual Basic) heeft specifieke functies ingebouwd waarmee de programmeur snel en eenvoudig weergeven en bewerken pixels.Er zijn andere geavanceerde API (Application Programming Interface) functies die geavanceerde programmeurs gebruiken die sneller en efficiënter zijn.Leren hoe je een pixel bekijken en haal de individuele kleur mediums uit die pixel zijn slechts de eerste stappen om een ​​VB-goeroe.

instructies

  1. Start de VB6 toepassing.Ga naar het formulier waar je de afbeelding die u wilt de gegevens van ontvangen.

  2. Open het formulier in design view.

  3. Maak drie functies die de pixel zal lezen als je eenmaal hebt opgehaald.
    Overheidsfunctie ExtractRed (ByVal currentcolor als lang) als Byte
    ExtractRed = currentcolor En 255
    End Function
    Overheidsfunctie ExtractGreen (ByVal currentcolor als lang) als Byte
    ExtractGreen = (currentcolor \ 256) en 255
    End Function
    Overheidsfunctie ExtractBlue(ByVal currentcolor als lang) als Byte
    ExtractBlue = (currentcolor \ 65.536) en 255
    End Function

  4. Dim uw objecten als volgt:
    Dim PixelColor als Long
    Dim Colorred als Byte, ColorGreen als Byte, ColorBlue als Byte
    Dim stond oorspronkelijk voor de afmeting en het gebruik ervan is hier als een werkwoord.PixelColor, Colorred, ColorGreen en ColorBlue zijn alle variabelen wachten voor gegevensinvoer.

  5. Typ de volgende code hieronder uw Dim verklaringen:
    PixelColor = PictureBox.Point (x, y)
    Nu is de code ziet er als volgt uit:
    Dim PixelColor als Long
    Dim Colorred als Byte, ColorGreen als Byte, ColorBlue als Byte
    PixelColor = PictureBox.Point (x, y)
    PictureBox is de naam van de picturebox je foto in. De coördinaten (x, y) zijn de coördinaten van de specifieke pixel u gegevens van wilt.De gegevens van de pixel is nu opgeslagen in de variabele PixelColor.De volgende stap is om de afzonderlijke kleuren uittreksel uit het RGB-spectrum.

  6. Typ de volgende code onder je laatste opmerking:
    Colorred = ExtractRed (kleur)
    ColorGreen = ExtractGreen (kleur)
    ColorBlue = ExtractBlue (kleur)
    Nu is de code ziet er als volgt uit:
    Dim PixelColor als Long
    Dim Colorredals Byte, ColorGreen als Byte, ColorBlue als Byte
    PixelColor = PictureBox.Point (x, y)
    Colorred = ExtractRed (PixelColor)
    ColorGreen = ExtractGreen (PixelColor)
    ColorBlue = ExtractBlue (PixelColor)
    Nu elk van de variabelen Colorred,ColorGreen en ColorBlue zal een nummer te hebben van nul tot 255 opgeslagen in hen.Je hebt met succes pakte een pixel en brak de specifieke kleur volgorde.

297
0
2
Visual Basics Programming