VB.Net är ett programmeringsspråk som har utvecklats och distribueras av Microsoft . VB.Net anses en uppgradering till den klassiska Microsoft Visual Basic programmeringsspråk. VB.Net skapar alla typer av program, inklusive stationära såväl som online-applikationer . VB.Net programmerare arbetar med och manipulera grafik och bitmap uppgifter . Den SetDIBits funktionen är en funktion som arbetar med pixlar i bitmap grafiska filer . Använda SetDIBits funktionen kräver en förståelse för kunskaper i VB.Net programmering . Instruktioner
1
Öppna Visual Studio .
2
Klicka på " File " följt av " Project . " Addera 3
Välj " Visual Basic-projekt " i dialogrutan och klicka sedan på " OK . " Detta ger dig in i VB.Net programmeringsmiljö .
4
Klicka på " Projekt " följt av " Add Module , " som du hittar längst upp på sidan . Detta kommer att sätta in en kod modul i VB projektet
5
Skriv eller kopiera och klistra in följande kodblock i kodmodulen : . .
" Förbered bitmap beskrivning
wid = Picture1.ScaleWidth
HGT = Picture1.ScaleHeight
bitmap_info.bmiHeader
. biSize = 40
. biWidth = wid
" Använd negativt höjd att skanna top -down .
. biHeight = - HGT
. biplanes = 1
. biBitCount = 32
< p> biCompression = BI_RGB
bytes_per_scanLine = (((( biWidth * biBitCount ) + 31 ) _
\\ 32 ) * 4 . . ) katalog
pad_per_scanLine = bytes_per_scanLine . - ( ( ( . biWidth * _
. biBitCount ) + 7 ) \\ 8 ) katalog
. biSizeImage = bytes_per_scanLine * Abs ( . biHeight ) katalog
End With
' Ladda bitmap data .
ReDim pixlar (1 till 4 , 1 till wid 1 till HGT ) katalog
GetDIBits Picture1.hdc , Picture1.Image , _
0 , HGT , pixlar ( 1 , 1 , 1 ) , _
bitmap_info ' DIB_RGB_COLORS
Ändra pixlar .
För Y = 1 Till HGT
för X = 1 till wid
"göra pixeln svart .
pixlar ( pixR , X , Y ) = 0
pixlar ( pixG , X , Y ) = 0
pixlar ( pixB , X, Y ) = 0
p Om ( (X \\ 20 ) Mod 2 ) <> ( (Y \\ 20 ) Mod 2 ) Sedan
" Ställ pixelfärgen .
pixlar ( clr , X , Y ) = 255
End Om
Nästa X Review
Nästa Y
" Visa resultatet .
SetDIBits Picture1.hdc , Picture1.Image , _
0 , HGT , pixlar ( 1 , 1 , 1 ) , _
bitmap_info , DIB_RGB_COLORS
Picture1.Picture = Picture1.Image
