Come utilizzare SetDIBits in VB.NET

VB.Net è un linguaggio di programmazione sviluppato e distribuito da Microsoft . VB.Net è considerato un aggiornamento del classico linguaggio di programmazione Microsoft Visual Basic . VB.Net crea tutti i tipi di programmi, tra cui desktop così come le applicazioni online. Programmatori VB.Net lavorare e manipolare grafica e bitmap. La funzione SetDIBits è una funzione che lavora con i pixel in file grafici bitmap . Utilizzando la funzione SetDIBits richiede la comprensione di conoscenze di programmazione VB.Net . Istruzioni
1

Aprire Visual Studio .
2

Fare clic su " File ", seguito da "Progetto ".
3

Selezionare " Progetto di visual Basic " nella finestra di dialogo , quindi fare clic su " OK ". Questo ti porta in ambiente di programmazione VB.Net .
4

Fare clic su " Progetto " seguito da " Aggiungi modulo ", che si trova nella parte superiore della pagina . Ciò inserire un modulo di codice nel progetto VB
5 Tipo

o copiare e incollare il seguente codice di blocco nel modulo di codice : . .

' Preparare la descrizione bitmap

wid = Picture1.ScaleWidth

Alt = Picture1.ScaleHeight

bitmap_info.bmiHeader

. biSize = 40

. biWidth = wid

' uso altezza negativo per la scansione di tipo top-down .

. biHeight = - hgt

. biPlanes = 1

. biBitCount = 32

biCompression = BI_RGB

bytes_per_scanLine = ( ( ( ( biWidth biBitCount * ) + 31) _

\\ 32) * 4 . . ) per

pad_per_scanLine = bytes_per_scanLine . - ( ( ( . biWidth * _

. biBitCount ) + 7) \\ 8 ) per

. biSizeImage = bytes_per_scanLine * Abs ( . biHeight ) per

End With

'Carica dati del bitmap .

ReDim pixel (da 1 a 4 , 1 a wid , da 1 a Alt ) per

GetDIBits Picture1.hdc , Picture1.Image , _

0, hgt , pixel ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

'Modifica i pixel .

Y = 1 To
Alt

Per X = 1 To wid

' Fai il pixel nero .

pixel ( pixR , X , Y ) = 0

pixel ( pixG , X , Y ) = 0

pixel ( pixB , X , Y ) = 0

( (X \\ 20 ) Mod 2) < > ( (Y \\ 20 ) Mod 2) Poi

' impostare il colore del pixel .

pixel ( CLR , X , Y ) = 255

End If

Avanti X

Successivo Y

' visualizzare il risultato.

SetDIBits Picture1.hdc , Picture1.Image , _

0 , Alt , pixel ( 1 , 1 , 1 ) , _ < br

bitmap_info > , DIB_RGB_COLORS

Picture1.Picture = Picture1.Image

• Come disinstallare un'applicazione con PowerShell 
• Come collegare video in VB.NET