VB.Net gebruiken is een programmeertaal ontwikkeld en gedistribueerd door Microsoft . VB.Net wordt beschouwd als een upgrade van de klassieke Microsoft Visual Basic programmeertaal . VB.Net creëert allerlei programma's waaronder desktop evenals online toepassingen . VB.Net programmeurs werken met en manipuleren graphics en bitmap informatie . De SetDIBits functie is een functie die werkt met pixels in de bitmap grafische bestanden . Met de functie SetDIBits vereist een begrip van de kennis van VB.Net programmering . Instructies
Open Visual Studio 1 . Kopen van 2 Klik op " Bestand " , gevolgd door " Project . "
3 Selecteer " Visual Basic Project " in het dialoogvenster en klik op ' OK '. Dit brengt je in het VB.Net programmeeromgeving .
Klik op " Project " , gevolgd door " Add Module , " dat u kunt vinden aan de bovenkant van de pagina 4 . Dit zal een code -module invoegen in uw VB project
5 Typ of kopieer en plak de volgende code blok in de code -module : . .
' Bereid de bitmap beschrijving
wid = Picture1.ScaleHeight
Met bitmap_info.bmiHeader
. biSize = 40
. biWidth = wid = Picture1.ScaleWidth hgt
< br > ' Gebruik negatieve hoogte te scannen top-down .
. biHeight = - hgt
. biPlanes = 1
. biBitCount = 32
biCompression = BI_RGB bytes_per_scanLine
= ( ( ( ( biWidth * biBitCount ) + 31 ) _
\\ 32 ) * 4 . . ) op Twitter pad_per_scanLine = bytes_per_scanLine . - ( ( ( . biWidth _
. biBitCount * ) + 7 ) \\ 8 ) op Twitter . biSizeImage = bytes_per_scanLine * Abs ( . biHeight ) End met
' Laad de gegevens van de bitmap . ReDim pixels
( 1 tot 4 , 1 Om wid , 1 Om HGT ) op Twitter GetDIBits Picture1.hDC , Picture1.Image , _
0 , hgt , pixels ( 1 , 1 , 1 ) , _ bitmap_info
, DIB_RGB_COLORS
' Wijzig de pixels .
Voor Y = 1 To hgt
Voor X = 1 To wid
'Controleer de pixel zwart . pixels
( pixR , X , Y ) = 0 pixels
( pixG , X, Y ) = 0 pixels
( pixB , X , Y ) = 0
Als ( ( X \\ 20 ) Mod 2 ) < > ( (Y \\ 20 ) Mod 2 ) vervolgens < br > ' Zet de pixel kleur . pixels
( clr , X , Y ) = 255 End
Als
Volgende X
Volgende Y
' Geef het resultaat .
SetDIBits Picture1.hDC , Picture1.Image , _
0 , hgt , pixels ( 1 , 1 , 1 ) , _ < br bitmap_info > , DIB_RGB_COLORS Picture1.Picture
= Picture1.Image
|
