Come usare SetDIBits in VB.NET

May 3

VB.Net è un linguaggio di programmazione sviluppato e distribuito da Microsoft. VB.Net è considerata un aggiornamento al classico Microsoft linguaggio di programmazione Visual Basic. VB.Net crea tutti i tipi di programmi, tra cui desktop così come le applicazioni on-line. programmatori VB.Net lavorano con e manipolare grafica e informazioni 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.

istruzione

1 Aprire Visual Studio.

2 Fai 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 Fai clic su "Progetto" seguito da "Aggiungi modulo", che si trova nella parte superiore della pagina. Ciò inserirà un modulo di codice nel progetto VB.

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

'Preparare la descrizione bitmap.

wid = Picture1.ScaleWidth

hgt = Picture1.ScaleHeight

con bitmap_info.bmiHeader

.biSize = 40

.biWidth = wid

'Utilizzare 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)

pad_per_scanLine = bytes_per_scanLine - (((.biWidth * _

.biBitCount) + 7) \ 8)

.biSizeImage = bytes_per_scanLine * Abs (.biHeight)

End With

'Caricare i dati del bitmap.

pixel ReDim (da 1 a 4, da 1 a wid, 1 Per hgt)

GetDIBits Picture1.hdc, Picture1.Image, _

0, hgt, pixels(1, 1, 1), _

bitmap_info, DIB_RGB_COLORS

'Modificare i pixel.

Per Y = 1 Per hgt

For X = 1 To wid

'Fare il pixel nero.

pixel (pixR, X, Y) = 0

pixel (pixG, X, Y) = 0

pixel (pixB, X, Y) = 0

Se ((X \ 20) Mod 2) & lt;> ((Y \ 20) Mod 2) Poi

'Impostare il colore dei pixel.

pixel (CLR, X, Y) = 255

Finisci se

Successivo X

Successivo Y

'Visualizzare il risultato.

SetDIBits Picture1.hdc, Picture1.Image, _

0, hgt, pixels(1, 1, 1), _

bitmap_info, DIB_RGB_COLORS

Picture1.Picture = Picture1.Image


Articoli Correlati