VB.Net é uma linguagem de programação desenvolvida e distribuída pela Microsoft. VB.Net é considerado uma atualização para o clássico linguagem de programação Microsoft Visual Basic . VB.Net cria todos os tipos de programas, incluindo desktop, bem como aplicações online. Programadores VB.Net trabalhar e manipular gráficos e informações bitmap. A função SetDIBits é uma função que funciona com pixels em arquivos gráficos bitmap . Usando a função SetDIBits requer uma compreensão do conhecimento de programação VB.Net . Instruções
1
Abra o Visual Studio.
2
Clique em "Arquivo " seguido de " projeto".
3
Selecione " projeto do Visual Basic "na caixa de diálogo, clique em " OK " . Isto traz -lo para o ambiente de programação VB.Net .
4
Clique em " Project" , seguido de " Add Module ", que você vai encontrar no topo da página. Isto irá inserir um módulo de código em seu projeto VB
5 Tipo
ou copie e cole o seguinte bloco de código para o módulo de código: .
' Prepare a descrição bitmap
.
wid = Picture1.ScaleWidth
hgt = Picture1.ScaleHeight
Com bitmap_info.bmiHeader
. biSize = 40
. biWidth = wid
'Use altura negativa para fazer a varredura de cima para baixo .
. 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
" Carregar os dados do bitmap .
ReDim pixels (1 a 4, 1 Para wid , 1 Para HGT )
GetDIBits Picture1.hdc , Picture1.Image , _
0, hgt , pixels (1, 1 , 1), _
bitmap_info , DIB_RGB_COLORS
'Modificar os pixels.
Para Y = 1 To hgt
Para X = 1 To wid
' Faça o pixel preto.
pixels ( pixR , X, Y ) = 0
pixels ( pixG , X, Y ) = 0
pixels ( pixB , X, Y ) = 0
Se ( (X \\ 20) Mod 2 ) < > ( (Y \\ 20 ) Mod 2) Em seguida,
'Definir a cor do pixel .
pixels ( cLR , X, Y) = 255
End If
Próxima X
Próxima Y
' Mostrar o resultado .
SetDIBits Picture1.hdc , Picture1.Image , _
0, hgt , pixels (1 , 1, 1) , _ < br >
bitmap_info , DIB_RGB_COLORS
Picture1.Picture = Picture1.Image
