| Home  | Otthon  | Hardver  | Hálózat  | Programozás  | Szoftver  | Hibaelhárítás  | Systems  |   
Programozás  
  • C /C + + programozási

  • Computer Programozási Nyelvek

  • Delphi programozási

  • Java programozási

  • JavaScript programozás

  • PHP /MySQL programozás

  • Perl

  • Python programozás

  • Ruby programozási

  • Visual Basics programozás
  •  
    Számítógépes ismeretek >> Programozás >> Visual Basics programozás >> Content
    Hogyan használjuk a DirectX -ben VB
    DirectX egyik vezető grafikus programozási API használt játékok , szimulációk és más grafikus alkalmazások, mint például az orvosi képalkotás . Ez egy Windows - egyetlen könyvtár is igénybe vehető a C + + , valamint bármely . NET keretrendszer nyelv, mint a C # vagy VB.net . Az egyetlen lépés kell kezdeni hasznosítása a teljes erejét az egyik vezető grafikus API-k a világ , hogy adjunk egy könyvtárat hivatkozás a . Net projektet. Utasítások
    1

    Kattintson a jobb egérgombbal a projekt nevére a navigációs panelen , majd kattintson az "Add Reference ". Add projekt hivatkozások Microsoft.DirectX.dll és Microsoft.DirectX.DirectDraw.dll .
    2

    Másolja a következő a tetején a Main.vb fájl :

    Imports Microsoft.DirectXImports Microsoft.DirectX.DirectDraw
    3

    a tetején a vezérlő objektum , illessze be az alábbi változó nyilatkozatok :

    Private kijelzőn DevicePrivate előtt a felszíni = NothingPrivate vissza a felszíni = NothingPrivate title például a felszíni = NothingPrivate szöveg Surface = NothingPrivate klipet Clipper = NothingPrivate titlescreen As String = Application.StartupPath + "\\ title.bmp "
    4

    be a következő kódot a osztály alatt a kivitelező :

    Private Sub InitDirectDraw ( ) " , amelyet olyan felület

    Dim leírás As New SurfaceDescription ( )" Init a Device

    kijelzés = Új eszköz ( ) # Ha DEBUG Thendisplay.SetCooperativeLevel (Me , CooperativeLevelFlags.Normal ) # Else ' Állítsa be a Cooperative szint és a szülő , eladás

    ' setted a Full Screen kizárólag a forma)

    display.SetCooperativeLevel ( Me , CooperativeLevelFlags.FullscreenExclusive ) " a felbontás és a színmélység

    " használt teljes képernyős ( 640x480 , 16 bites színmélység)

    display.SetDisplayMode ( 640 , 480 , 16, 0, hamis ) # End If

    " Adja meg a tulajdonságokat az első Surface

    description.SurfaceCaps.PrimarySurface = True

    # Ha DEBUG Thenfront = Új Surface ( leírás, kijelző) # Elsedescription.SurfaceCaps.Flip = Truedescription.SurfaceCaps.Complex = True

    " Adja meg a Back Buffer gróf

    description.BackBufferCount = 1

    " Create a felületet specifed leírása és eszköz)

    előtt = Új Surface ( leírás, kijelző) # End Ifdescription.Clear ( ) # Ha a DEBUG Thendescription.Width = front.SurfaceDescription.Widthdescription.Height = front.SurfaceDescription.Heightdescription.SurfaceCaps.OffScreenPlain = Trueback = Új Surface ( leírás, kijelző) # Else 'A Caps egy sor attribútumok használják a legtöbb DirectX alkatrészek

    Dim sapkák As New SurfaceCaps ( ) " Igen , mi használ a back buffer
    < p > caps.BackBuffer = True

    "munkatárs az első puffer biztonsági puffer a megadott kupakkal

    back = front.GetAttachedSurface ( sapkák ) # End If

    'Create a Clipper

    klip = Új Clipper ( kijelző) '' ' Állítsa be a régiót , hogy ebben a formában

    clip.Window = Me ' Állítsa be a Clipper az első Surface

    elöl. Clipper = klip

    " visszaállítása a leírás

    description.Clear ( )" Készítse el a cím képernyőn

    title = Új Surface ( titlescreen , leírás, kijelző)
    < p > description.Clear ( ) " Állítsa be a magasságát és szélességét a szöveg .

    description.Width = 600description.Height = 16 ' OffScreenPlain azt jelenti, hogy ez a felület

    " nem a front , vissza alpha Surface .

    description.SurfaceCaps.OffScreenPlain = True

    "Create a szöveg Surface

    text = New Surface ( leírás, megjelenítés )" Adja meg a backgroup szín < br >

    text.ColorFill ( Color.Black ) " Állítsa be az előtérbe a szöveg színét

    text.ForeColor = Color.White Draw a szöveg , hogy a Surface a coords ( 0,0) < br >

    text.DrawText ( 0, 0 , " Managned DirectX készítése 1. - nyomja meg az Enter vagy Escape-et a kilépéshez " , True ) End SubPrivate Sub Draw ( ) "Ha az elején nem hoz létre , hagyja ki ezt a funkciót
    < p> Ha elöl semmi ThenReturnEnd Ha

    " Ha a nyomtatványt minimális , hagyja ki ezt a funkciót

    Ha Me.WindowState = FormWindowState.Minimized ThenReturnEnd IfTry " Döntetlen a címet , hogy a hátsó puffer a forrás másolni blit

    back.DrawFast ( 0, 0 , cím , DrawFastFlags.Wait )

    Draw a szöveget is , hogy a hátsó puffer segítségével Forrás Másolás blit

    back.DrawFast ( 10, 10 , szöveg , DrawFastFlags.Wait )

    # Ha DEBUG Then ' Döntetlen mindezt az első

    front.Draw (hát, DrawFlags.Wait ) # Else' avagy a flip- át vissza puffer az első , gyorsabb

    # End Iffront.Flip (hát, FlipFlags.Wait )

    Catch generatedExceptionName Mint WasStillDrawingExceptionReturnCatch generatedExceptionName Mint SurfaceLostException " Ha elvesztettük a felületeket , állítsa vissza a felületek

    RestoreSurfaces ( ) End Sub TryEnd

    Private Sub RestoreSurfaces ( ) " , amelyet olyan felület

    Dim leírás As New SurfaceDescription ()

    " Restore al a felületet , hogy a készülék associed

    display.RestoreAllSurfaces () ' a szöveg
    Újrarajzolás

    text.ColorFill ( Color.Black ) text.DrawText (0, 0, " 1 Managned DirectX Tutorial - Nyomja meg az Enter vagy Escape-et a kilépéshez ", true)

    " A cím képernyőn , meg kell

    " dobja ki először , majd újra létrehozni

    title.Dispose ( ) title = Nothingtitle = Új Surface ( titlescreen , leírás, kijelző) ReturnEnd Sub
    5

    Másolja és illessze be az alábbi kódot a konstruktor :

    InitializeComponent ( ) InitDirectDraw ( ) Me.Cursor.Dispose ( ) Me.Show ( ) Amíg CreatedDraw ( ) Application.DoEvents ( ) End Míg
    6

    nyomja meg az " F5" futtatni az alkalmazást , és látni a title.bmp jelenik meg a a képernyőn.

    Previous :

    next :
      Kapcsolódó cikkek
    ·Hogyan kell megnyitni egy honlap VBA 
    ·Hogyan nyomtatása Into Címkék Felirat Visual Basic 6…
    ·Hogyan Program másodfokú egyenletek a Visual Basic 
    ·Hogyan lehet átalakítani VB6 VB 2010 
    ·Hogyan változtassuk meg a Font System.Windows.Textbox 
    ·Hogyan készítsünk Voice Command Programok Visual Bas…
    ·Hogyan töltsük el az időt NT Authentication VB.Net 
    ·Hogyan adjunk egy adatkészlet egy formája Vb.Net 
    ·Microsoft VB . NET Tanúsítás 
    ·Hogyan törlése LPT VBS 
      Kiemelt cikkek
    ·Hogyan kell futtatni egy SQL Script Command 
    ·Hogyan ellenőrzése sorszám PHP 
    ·Meg lehet adni tartomány a VBA-ban 
    ·Hogyan hozzunk létre egy DER tanúsítvány 
    ·MySQL Select Max gróf Tutorial 
    ·Hogyan kell megjeleníteni minden iteráció egy Visual…
    ·Hogyan törlése Records egy C program Array 
    ·Java Chat Kód 
    ·Hogyan lehet átalakítani a tízes a String VB.NET 
    ·Hogyan változtassuk meg a MySQL privilégium táblába…
    Copyright © Számítógépes ismeretek http://hu.wingwit.com