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.
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