Sådan læses pixels fra billedfelter i VB6

læsning af en enkelt pixel fra et billede er ikke svært.Faktisk VB (Visual Basic) har specifikke funktioner indbygget, som tillader programmøren at se og redigere pixels hurtigt og nemt.Der er andre avancerede API (Application Programming Interface) funktioner, avancerede programmører udnytte som 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 formular, hvor du har det billede, du ønsker at modtage data fra.

  2. Åbn formularen i design visning.

  3. Opret tre funktioner, der vil læse pixel, når du har hentet det.
    Public Function ExtractRed (ByVal CurrentColor så længe) Som Byte
    ExtractRed = CurrentColor og 255
    End Function
    Offentlig Funktion ExtractGreen (ByVal CurrentColor så længe) Som Byte
    ExtractGreen = (CurrentColor \ 256) og 255
    End Function
    Offentlig Funktion ExtractBlue(ByVal CurrentColor så længe) Som Byte
    ExtractBlue = (CurrentColor \ 65536) og 255
    End Function

  4. Dim dine objekter på følgende måde:
    Dim PixelColor så længe
    Dim ColorRed som Byte, ColorGreen som Byte, ColorBlue som Byte
    Dim oprindeligt stod for dimension og dens brug her er som et verbum.PixelColor, ColorRed, ColorGreen og ColorBlue er alle variabler venter på datainput.

  5. Skriv følgende kode under din slørede udsagn:
    PixelColor = PictureBox.Point (x, y)
    Nu koden ser sådan ud:
    Dim PixelColor så længe
    Dim ColorRed som Byte, ColorGreen som Byte, ColorBlue som Byte
    PixelColor = PictureBox.Point (x, y)
    PictureBox er navnet på den PictureBox dit billede er i. Koordinaterne (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 udvinde de enkelte farver fra RGB-spektret.

  6. Skriv følgende kode under du sidst erklæring:
    ColorRed = ExtractRed (farve)
    ColorGreen = ExtractGreen (farve)
    ColorBlue = ExtractBlue (farve)
    Nu koden ser sådan ud:
    Dim PixelColor så længe
    Dim ColorRedsom Byte, ColorGreen som Byte, ColorBlue som Byte
    PixelColor = PictureBox.Point (x, y)
    ColorRed = ExtractRed (PixelColor)
    ColorGreen = ExtractGreen (PixelColor)
    ColorBlue = ExtractBlue (PixelColor)
    Nu hver af de variabler ColorRed,ColorGreen og ColorBlue vil have et nummer fra nul til 255 gemt i dem.Du har nu greb en pixel og nedbrød den specifikke farve sekvens.

578
0
2
Visual Basics Programming