| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan bruges SetDIBits i VB.NET
    VB.Net er et programmeringssprog udviklet og distribueret af Microsoft. VB.Net betragtes som en opgradering til den klassiske Microsoft Visual Basic programmeringssprog. VB.Net skaber alle mulige programmer, herunder desktop samt online -applikationer. VB.Net programmører arbejder med og manipulere grafik og bitmap information. Den SetDIBits funktionen er en funktion, der arbejder med pixels i bitmap grafikfiler . Brug af SetDIBits funktion kræver en forståelse af viden om VB.Net programmering. Instruktioner
    1

    Open Visual Studio.
    2

    Klik på "File " efterfulgt af " projekt".
    3

    Vælg " Visual Basic Project " i dialogboksen , og klik derefter på " OK ". Dette bringer dig ind i VB.Net programmeringsmiljø .
    4

    Klik på " Project" efterfulgt af " Add Module ", som du finder øverst på siden. Dette indsætter en kode modul i VB -projekt
    5

    Skriv eller kopiere og indsætte følgende kode blokken i koden modulet : . .

    ' Forbered bitmap beskrivelse

    wid = Picture1.ScaleWidth

    HGT = Picture1.ScaleHeight

    bitmap_info.bmiHeader

    . biSize = 40

    . biWidth = wid < br >

    ' Brug negative højde for at scanne top-down .

    . biHeight = - HGT

    . biplanes = 1

    . biBitCount = 32
    < p> 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
    < p > ' Indlæs bitmap data.

    ReDim pixels (1 til 4 , 1 til wid 1 til HGT )

    GetDIBits Picture1.hdc , Picture1.Image , _
    < p > 0, HGT , pixel ( 1, 1 , 1), _

    bitmap_info ' DIB_RGB_COLORS

    Ændre pixels.

    Y = 1 Til HGT

    X = 1 Til wid

    ' Gør pixel sort.

    pixels ( pixR , X, Y ) = 0

    pixels ( pixG , X, Y ) = 0

    pixels ( pixB , X, Y ) = 0
    p Hvis ( (X \\ 20) Mod 2 ) < > ( (Y \\ 20) Mod 2 ) Derefter < br >

    ' Indstil pixel farve.

    pixels (CLR , X, Y) = 255

    End If

    Næste X

    Næste Y

    'Vis resultatet.

    SetDIBits Picture1.hdc , Picture1.Image , _

    0, HGT , pixel ( 1, 1 , 1), _ < br >

    bitmap_info , DIB_RGB_COLORS

    Picture1.Picture = Picture1.Image

    Forrige :

    næste :
      Relaterede artikler
    ·Sådan bruges VBA for Email i Access 
    ·Sådan Rediger i GridView 
    ·Sådan bruges Attachments.Add at vedhæfte flere i VBS 
    ·Hvordan man opbygger en computer Tabel 
    ·Sådan kopieres til udklipsholder i Visual Basic 
    ·Sådan Slut to former i Visual Basic 
    ·Microsoft Visual Basic Tutorial 
    ·Sådan oprettes Lege i Visual Basic 
    ·Sådan finder du den største værdi i et array i Visua…
    ·Sådan deaktiveres en Visual Basic -knappen 
      Anbefalede Artikler
    ·Hvordan man skriver Cocoa Apps 
    ·Sådan Udelad Common Words Med en PHP MySQL Query 
    ·PHP Integer Funktioner 
    ·Sådan Beregn Coding for Java Boxes 
    ·Sådan Put en Facebook Connect i Sidefod Brug JavaScrip…
    ·Sådan diagnosticere problemer med Javascript 
    ·Sådan Beregn Expressions Med Increment & Decrement Ope…
    ·Sådan Ring til Python Metode Fra Java 
    ·Sådan bruges Javascript Med Flash 
    ·Sådan ser en mappe på VB6 
    Copyright © Computer Viden http://www.computerdk.com