VB.Net er et programmeringssprog udviklet og distribueret af Microsoft. VB.Net betragtes som en opgradering til den klassiske Microsoft Visual Basic programmeringssprog. VB.Net skaber alle mulige programmer, herunder desktop samt online -applikationer. VB.Net programmører arbejder med og manipulere grafik og bitmap information. Den SetDIBits funktionen er en funktion, der arbejder med pixels i bitmap grafikfiler . Brug af SetDIBits funktion kræver en forståelse af viden om VB.Net programmering. Instruktioner
1
Open Visual Studio.
2
Klik på "File " efterfulgt af " projekt".
3
Vælg " Visual Basic Project " i dialogboksen , og klik derefter på " OK ". Dette bringer dig ind i VB.Net programmeringsmiljø .
4
Klik på " Project" efterfulgt af " Add Module ", som du finder øverst på siden. Dette indsætter en kode modul i VB -projekt
5
Skriv eller kopiere og indsætte følgende kode blokken i koden modulet : . .
' Forbered bitmap beskrivelse
wid = Picture1.ScaleWidth
HGT = Picture1.ScaleHeight
bitmap_info.bmiHeader
. biSize = 40
. biWidth = wid < br >
' Brug negative højde for at scanne 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 > ' Indlæs bitmap data.
ReDim pixels (1 til 4 , 1 til wid 1 til HGT )
GetDIBits Picture1.hdc , Picture1.Image , _
< p > 0, HGT , pixel ( 1, 1 , 1), _
bitmap_info ' DIB_RGB_COLORS
Ændre pixels.
Y = 1 Til HGT
X = 1 Til wid
' Gør pixel sort.
pixels ( pixR , X, Y ) = 0
pixels ( pixG , X, Y ) = 0
pixels ( pixB , X, Y ) = 0
p Hvis ( (X \\ 20) Mod 2 ) < > ( (Y \\ 20) Mod 2 ) Derefter < br >
' Indstil pixel farve.
pixels (CLR , X, Y) = 255
End If
Næste X
Næste Y
'Vis resultatet.
SetDIBits Picture1.hdc , Picture1.Image , _
0, HGT , pixel ( 1, 1 , 1), _ < br >
bitmap_info , DIB_RGB_COLORS
Picture1.Picture = Picture1.Image