|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man använder SetDIBits i VB.NET

    VB.Net är ett programmeringsspråk som har utvecklats och distribueras av Microsoft . VB.Net anses en uppgradering till den klassiska Microsoft Visual Basic programmeringsspråk. VB.Net skapar alla typer av program, inklusive stationära såväl som online-applikationer . VB.Net programmerare arbetar med och manipulera grafik och bitmap uppgifter . Den SetDIBits funktionen är en funktion som arbetar med pixlar i bitmap grafiska filer . Använda SetDIBits funktionen kräver en förståelse för kunskaper i VB.Net programmering . Instruktioner
    1

    Öppna Visual Studio .
    2

    Klicka på " File " följt av " Project . " Addera 3

    Välj " Visual Basic-projekt " i dialogrutan och klicka sedan på " OK . " Detta ger dig in i VB.Net programmeringsmiljö .
    4

    Klicka på " Projekt " följt av " Add Module , " som du hittar längst upp på sidan . Detta kommer att sätta in en kod modul i VB projektet
    5

    Skriv eller kopiera och klistra in följande kodblock i kodmodulen : . .

    " Förbered bitmap beskrivning

    wid = Picture1.ScaleWidth

    HGT = Picture1.ScaleHeight

    bitmap_info.bmiHeader

    . biSize = 40

    . biWidth = wid < br >

    " Använd negativt höjd att skanna top -down .

    . biHeight = - HGT

    . biplanes = 1

    . biBitCount = 32
    < p> biCompression = BI_RGB

    bytes_per_scanLine = (((( biWidth * biBitCount ) + 31 ) _

    \\ 32 ) * 4 . . ) katalog

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

    . biBitCount ) + 7 ) \\ 8 ) katalog

    . biSizeImage = bytes_per_scanLine * Abs ( . biHeight ) katalog

    End With
    < p > ' Ladda bitmap data .

    ReDim pixlar (1 till 4 , 1 till wid 1 till HGT ) katalog

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

    bitmap_info ' DIB_RGB_COLORS

    Ändra pixlar .

    För Y = 1 Till HGT

    för X = 1 till wid

    "göra pixeln svart .

    pixlar ( pixR , X , Y ) = 0

    pixlar ( pixG , X , Y ) = 0

    pixlar ( pixB , X, Y ) = 0
    p Om ( (X \\ 20 ) Mod 2 ) <> ( (Y \\ 20 ) Mod 2 ) Sedan < br >

    " Ställ pixelfärgen .

    pixlar ( clr , X , Y ) = 255

    End Om

    Nästa X Review

    Nästa Y

    " Visa resultatet .

    SetDIBits Picture1.hdc , Picture1.Image , _

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

    bitmap_info , DIB_RGB_COLORS

    Picture1.Picture = Picture1.Image

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man avgör om ett ark finns inom en arbetsbok med V…
    ·Hur man slår ihop en XML till Crystal Reports
    ·Hur man gör en webbläsare med Visual Basic 2005 Expre…
    ·Hur man gör Grid Blanketter
    ·Hur man fångar en lokal datorns namn med VBS
    ·Hur man skickar kommandon till ett program inte är i f…
    ·Hur man skriver koden på HTML Knapp Med VBScript
    ·Ta bort en post i VB6
    ·Hur du ändrar Tillämpning Titel i Visual Basic 6
    ·Hur man skapar ett Visual Basic -program Använda en If…
    Utvalda artiklarna
    ·Hur man skickar Telnet-kommandon från Visual Basic
    ·Hur man redigerar en Word-dokument i C #
    ·Lägga till en textruta till DataGridView
    ·PHP MySQL Database Query
    ·Hur du använder PHP med JavaScript
    ·Konvertera Brev till nummer i en String Table
    ·Hur hittar summan av siffrorna i ett tvåsiffrigt numme…
    ·Hur man ska lösa ett Java Language ur minnet fel
    ·Hur man driver en Osynlig EXE i VB6
    ·Nackdelar och Fördelar med Kompilatorer
    Copyright © Dator Kunskap http://www.dator.xyz