VB.Net est un langage de programmation développé et distribué par Microsoft . VB.Net est considéré comme une mise à niveau du langage de programmation Basic Microsoft Visual classique . VB.Net crée toutes sortes de programmes, y compris bureau ainsi que les applications en ligne . VB.Net programmeurs travaillent avec et manipuler des graphiques et des informations bitmap. La fonction SetDIBits est une fonction qui fonctionne avec des pixels dans des fichiers graphiques bitmap. Utilisation de la fonction de SetDIBits nécessite une compréhension des connaissances de programmation VB.Net . Instructions
1

Ouvrez Visual Studio.
2

Cliquez sur " Fichier" puis "Project ".
3

Sélectionnez " projet Visual Basic »dans la boîte de dialogue, puis cliquez sur " OK ". Cela vous amène dans l'environnement de programmation VB.Net .

Cliquez sur "Projet" 4 suivi par "Add Module ", que vous trouverez en haut de la page. Ceci va insérer un module de code dans votre projet VB
5 Type de

ou copier et coller le bloc de code suivant dans le module de code : . .

« Préparer la description bitmap

wid = Picture1.ScaleWidth

Tai = Picture1.ScaleHeight

bitmap_info.bmiHeader

. biSize = 40

. biWidth = wid

' utilisation hauteur négative pour balayer de haut en bas .

. biHeight = - hgt

. biplans = 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> 'Charger les données du bitmap.

ReDim pixels (1 à 4 , 1 à wid , 1 à Tai )

GetDIBits Picture1.hdc , Picture1.Image , _
< p > 0, hGT pixels (1 , 1, 1 ) , _

bitmap_info , DIB_RGB_COLORS

'Modifier les pixels.

Pour Y = 1 To Tai

Pour X = 1 To wid

«faire le pixel noir .

Pixel ( PIXR , X, Y) = 0

Pixel ( pixG , X, Y ) = 0

Pixel ( pixB , X, Y) = 0

Si ( (X \\ 20) Mod 2) <> ( (Y \\ 20) Mod 2) Ensuite

« Définir la couleur du pixel .

Pixel ( clr , X, Y) = 255

End If

Suivant X

Suivant Y

' afficher le résultat.

SetDIBits Picture1.hdc , Picture1.Image , _

0, Tai , pixels (1 , 1, 1 ) , _ < br >

bitmap_info , DIB_RGB_COLORS

Picture1.Picture = Picture1.Image