Cómo utilizar SetDIBits en VB.NET

VB.Net es un lenguaje de programación desarrollado y distribuido por Microsoft . VB.Net se considera una actualización del lenguaje de programación Basic clásico Microsoft Visual . VB.Net crea todo tipo de programas que incluyen escritorio, así como aplicaciones en línea. Programadores de VB.Net trabajar y manipular gráficos e información de mapa de bits . La función SetDIBits es una función que trabaja con píxeles en archivos gráficos de mapas de bits . Uso de la función SetDIBits requiere una comprensión de conocimientos de programación VB.Net . Instrucciones
1

Abra Visual Studio.
2

clic en "Archivo " y luego " proyecto . "
3

Seleccione " Proyecto de Visual Basic "en el cuadro de diálogo , haga clic en" OK " . Esto le pone en el entorno de programación VB.Net .

4 Haga clic en " Proyecto " y luego " Agregar módulo ", que se encuentra en la parte superior de la página. Esto insertará un módulo de código en el proyecto VB
5

Escriba o copie y pegue el siguiente bloque de código en el módulo de código : . .

' Preparar la descripción bitmap

wid = Picture1.ScaleWidth

HGT = Picture1.ScaleHeight

bitmap_info.bmiHeader

. biSize = 40

. biWidth = wid

'Use altura negativos para escanear de arriba hacia abajo .

. biHeight = hGT

. biplanos = 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 )

extremo con
< p > ' Cargar datos del mapa de bits .

píxeles ReDim ( 1 a 4 , 1 a , 1 wid a HGT )

GetDIBits Picture1.hdc , Picture1.Image , _
< p > 0 , HGT pixeles (1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

'Modificar los píxeles.

Para Y = 1 Para
HGT

Para X = 1 Para wid

"hacer el pixel negro .

píxeles ( pixR , X , Y) = 0

pixeles ( pixG , X , Y ) = 0

pixeles ( pixB , X, Y ) = 0

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

' Establecer el color del píxel .

píxeles ( clr , X , Y) = 255

End If

Siguiente X

Siguiente Y

' Mostrar el resultado.

SetDIBits Picture1.hdc , Picture1.Image , _

0 , HGT , los píxeles ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

Picture1.Picture = Picture1.Image