VB.Net er et programmeringsspråk som er utviklet og distribuert av Microsoft. VB.Net regnes som en oppgradering til den klassiske Microsoft Visual Basic programmeringsspråk. VB.Net skaper alle slags programmer, inkludert stasjonære så vel som elektroniske søknader. VB.Net programmerere jobbe med og manipulere grafikk og punktgrafikk informasjon . Den SetDIBits funksjon er en funksjon som fungerer med piksler i bitmap grafiske filer . Bruke SetDIBits funksjonen krever en forståelse av kunnskap om VB.Net programmering. Instruksjoner
en

Åpne Visual Studio.
2

Klikk på "File " etterfulgt av "Project ".
3

Velg " Visual Basic Project " i dialogboksen , og klikk" OK . " Dette bringer deg inn i VB.Net programmering miljø .
4

Klikk på " Project" etterfulgt av " Add Module ", som du finner øverst på siden. Dette vil sette inn en kode modul i VB prosjektet
5

skriv eller kopier og lim inn følgende kode blokken inn koden modul: . .

' Klargjør bitmap beskrivelse

wid = Picture1.ScaleWidth

hgt = Picture1.ScaleHeight
p Med bitmap_info.bmiHeader

. biSize = 40

. biWidth = wid

' bruk negativ høyde for å skanne top-down .

. biHeight = - HGT

. biplanes = 1

. biBitCount = 32
< p> biCompression = BI_RGB

bytes_per_scanLine = ( ( ( ( biWidth * biBitCount ) + 31 ) _

\\ 32 ) * 4 . . )

pad_per_scanLine = bytes_per_scanLine . - ( ( ( . biWidth * _

. biBitCount ) + 7 ) \\ 8 )

. biSizeImage = bytes_per_scanLine * Abs ( . biHeight )

End With
< p > ' Legg bitmap data .

ReDim piksler ( 1 til 4 , 1 til wid , en til HGT )

GetDIBits Picture1.hdc , Picture1.Image , _
< p > 0 , Hgt , piksler ( 1 , 1 , 1 ) , _

bitmap_info , ' DIB_RGB_COLORS

Endre piksler.

For Y = 1 To hgt

For X = 1 To wid

'Gjør den pixel svart.

piksler ( pixR , X, Y ) = 0

piksler ( pixG , X, Y ) = 0

piksler ( pixB , X, Y) = 0
p Hvis ( ( X \\ 20 ) Mod 2 ) < > ( (Y \\ 20 ) Mod 2 ) Deretter

' Sett pixel farge .

piksler ( CLR , X, Y) = 255

End Hvis

Neste X

Neste Y

'Vis resultatet.

SetDIBits Picture1.hdc , Picture1.Image , _

0 , hgt , pixler ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

Picture1.Picture = Picture1.Image