Miten Lue pikselit Kuva Laatikot VB6

lukeminen yksittäisen pikselin kuva ei ole vaikeaa.Itse asiassa, VB (Visual Basic) on erityistehtäviä sisäänrakennettu joiden avulla ohjelmoija tarkastella ja muokata pikseliä nopeasti ja helposti.On muitakin kehittyneitä API (Application Programming Interface) toiminnot, jotka kehittyneet ohjelmoijat hyödyntävät jotka ovat nopeampia ja tehokkaampia.Opi katsella pikselin ja purkaa yksittäisen värin medioissa kuin pikselin ovat vain ensimmäiset askeleet tulossa VB guru.

Ohjeet

  1. Käynnistä VB6 sovellus.Mene lomakkeen, jossa sinulla on kuva, jota haluat vastaanottaa tietoja.

  2. avaa lomake rakennenäkymässä.

  3. Luo kolme tehtävää, että lukee pikselin kun olet hakenut sitä.
    julkinen tehtävä ExtractRed (ByVal CurrentColor As Long) Ku

    ten Byte
    ExtractRed = CurrentColor Ja 255
    End Function
    julkisessa tehtävässä ExtractGreen (ByVal CurrentColor As Long) Kuten Byte
    ExtractGreen = (CurrentColor \ 256) Ja 255
    End Function
    julkista tehtävää ExtractBlue(ByVal CurrentColor As Long) Kuten Byte
    ExtractBlue = (CurrentColor \ 65536) Ja 255
    End Function

  4. Dim objektit seuraavasti:
    Dim PIXELCOLOR Long
    Dim ColorRed kuten Byte, ColorGreen kuten Byte, ColorBlue kuten Byte
    Dim perin edusti ulottuvuus ja sen käyttö tässä verbi.PIXELCOLOR, ColorRed, ColorGreen ja ColorBlue ovat kaikki muuttujat odottavat tietojen syöttämistä.

  5. Kirjoita seuraava koodi alla Dim julkilausumat:
    PIXELCOLOR = PictureBox.Point (x, y)
    Nyt koodi näyttää tältä:
    Dim PIXELCOLOR Long
    Dim ColorRed kuten Byte, ColorGreen kuten Byte, ColorBlue kuten Byte
    PIXELCOLOR = PictureBox.Point (x, y)
    PictureBox on nimi Picturebox kuvasi on. koordinaatit (x, y) ovat koordinaatit erityinen pikselin haluamasi tietoja.Tiedot pikseli on nyt tallennettu muuttujaan PIXELCOLOR.Seuraava vaihe on purkaa yksittäisiä värejä RGB-spektrin.

  6. Kirjoita seuraava koodi alla viimeksi julkilausuma:
    ColorRed = ExtractRed (Color)
    ColorGreen = ExtractGreen (Color)
    ColorBlue = ExtractBlue (väri)
    Nyt koodi näyttää tältä:
    Dim PIXELCOLOR Long
    Dim ColorRedkuten tavu, ColorGreen kuten tavu, ColorBlue kuten tavu
    PIXELCOLOR = PictureBox.Point (x, y)
    ColorRed = ExtractRed (PIXELCOLOR)
    ColorGreen = ExtractGreen (PIXELCOLOR)
    ColorBlue = ExtractBlue (PIXELCOLOR)
    Nyt kukin muuttujista ColorRed,ColorGreen ja ColorBlue saa numeron nollasta 255 tallennetaan niihin.Olet onnistuneesti tarttui pikselin ja hajosi tietyn värin järjestyksessä.

900
0
2
Visual Basic Ohjelmointi