Cómo usar DirectX en VB

DirectX es uno de los gráficos líder API de programación utilizado para juegos, simulaciones y otras aplicaciones gráficas tales como imágenes médicas. Es una librería de Windows sólo está disponible para el uso en C + + , así como cualquier otra. Lenguaje marco NET como C # o VB.net . El único paso necesario para empezar a aprovechar el poder de una de las APIs de gráficos líder en el mundo es añadir una referencia a la biblioteca a su archivo. Proyecto de red. Instrucciones
1

Haga clic en el nombre del proyecto en el panel de navegación y haga clic en " Agregar referencia ". Agregue referencias de proyecto para Microsoft.DirectX.dll y Microsoft.DirectX.DirectDraw.dll
2

Copia y pega el siguiente en la parte superior de su archivo Main.vb : .

Importaciones Microsoft.DirectXImports Microsoft.DirectX.DirectDraw
3

En la parte superior de su objeto Controller , pegue las siguientes declaraciones de variables :

exhibición privada como frente DevicePrivate Como superficie = NothingPrivate Como nuevo Superficie = Título NothingPrivate Como superficie = texto NothingPrivate Como superficie = clip de NothingPrivate Como Clipper = pantalla del título NothingPrivate As String = Application.StartupPath + " \\ title.bmp "
4

Pega el siguiente código en tu clase por debajo del constructor :

Private Sub InitDirectDraw () Se utiliza para describir una superficie

Descripción Dim As New SurfaceDescription () ' Init del dispositivo
pantalla

= New Device ( ) # Si DEBUG Thendisplay.SetCooperativeLevel (Me , CooperativeLevelFlags.Normal ) # Else ' establecer el nivel de la Cooperativa y el padre ,

' Setted a pantalla completa exclusiva para el formulario)

display.SetCooperativeLevel ( Yo, CooperativeLevelFlags.FullscreenExclusive ) 'Establecer la resolución y profundidad de color

»utilizado en pantalla completa ( 640x480, 16 bits de color )

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

'Define los atributos de la superficie frontal

description.SurfaceCaps.PrimarySurface = True

# Si Thenfront DEBUG = New Surface (descripción, presentación) # Elsedescription.SurfaceCaps.Flip = Truedescription.SurfaceCaps.Complex = True

' Establecer el Back Buffer cuenta

description.BackBufferCount = 1

' Crear la superficie con la descripción specifed y dispositivo)

delante = New Surface (descripción, presentación) # Ifdescription.Clear End () # Si DEBUG Thendescription.Width = front.SurfaceDescription.Widthdescription.Height = front.SurfaceDescription.Heightdescription.SurfaceCaps.OffScreenPlain = Trueback = New Surface (descripción, ver ) # Else ' a Caps es un conjunto de atributos utilizados por la mayoría de DirectX componentes