Ako používať SetDIBits vo VB.NET

VB.Net je programovací jazyk vyvinutý a distribuovaný spoločnosťou Microsoft . VB.Net je považovaná za upgrade na klasický Microsoft Visual Basic programovací jazyk . VB.Net vytvára všetky druhy programov , vrátane plochy , rovnako ako on - line aplikácie . VB.Net programátori pracovať a manipulovať s grafikou a informácie rastrového obrázka . Funkcia SetDIBits je funkcia , ktorá pracuje s pixelmi v bitmapových grafických súborov . Pomocou funkcie SetDIBits vyžaduje pochopenie znalostí programovania VB.Net . Pokyny dovolená 1

Otvorte aplikáciu Visual Studio .
2

Kliknite na " File " a následne " projektu " .
Sims 3

Vyberte " Visual Basic Project " v dialógovom okne , kliknite na tlačidlo " OK " . To vás privedie do programovacieho prostredia VB.Net .
4

Kliknite na " projekt " , nasledovaný " Pridať modul " , ktorý nájdete v hornej časti stránky . To sa vložiť kód modul do projektu VB
5

Zadajte alebo skopírujte a vložte nasledujúci blok kódu do modulu kódu: .

" Pripravte popis bitmapový
.

wid = Picture1.ScaleWidth

HGT = Picture1.ScaleHeight

S bitmap_info.bmiHeader

. biSize = 40

. biWidth = wid

" Použiť negatívny výšku skenovanie zhora nadol .

. biHeight = - HGT

. dvojplošníkov = 1

. biBitCount = 32

biCompression = BI_RGB celým

bytes_per_scanLine = ( ( ( ( biWidth * biBitCount ) + 31 ) _ celým

\\ 32 ) * 4. ) . celým

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

. biBitCount ) + 7 ) \\ 8 )

. biSizeImage = bytes_per_scanLine * Abs ( . biHeight )

End With

' Načítať dáta bitmapy je .

ReDim bodov ( 1 až 4 , 1. Ak chcete spaľovanie odpadov , 1. Ak chcete HGT )

GetDIBits Picture1.hdc , Picture1.Image , _

0 , HGT , bodov ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

' Upraviť pixelov .

Y = 1 HGT

X = 1 wid

" Urobiť pixel čierny .

pixelov ( pixR , X , Y ) = 0

pixelov ( pixG , X , Y ) = 0

pixelov ( Pixbo , X , Y ) = 0

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

" Nastaviť farbu pixelu .

pixelov ( CLR , X , Y ) = 255

End If

Ďalšie X

Ďalšie Y

" Zobraziť výsledok .

SetDIBits Picture1.hdc , Picture1.Image , _

0 , HGT , body ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

Picture1.Picture = Picture1.Image

• Predchádzajúca strana: Ako odinštalovať aplikácie pomocou PowerShell 
• Ďalšia strana: Ako sa pripojiť video na VB.NET