Cómo lograr pantalla completa en VB

Escrito con DIRECTX

El método y el código son los siguientes:

SPR4Y respondió:

\ 'Haga clic en "Establecer proyecto de referencia" en "Proyecto" para hacer referencia a DirectX objeto.

Luego marca la línea "DirectX 7 para la biblioteca de tipos de Visual Basic" para comenzar a usar DirectX.

\ 'Se define de la siguiente manera en la sección General:

\'Dim objDX como el nuevo DirectX7

\'Dim objDD As DirectDraw7

\ ' Dim objDDPrimSurf como superficie de dibujo directo 7

\ ' Dim objDDBackSurf como superficie de dibujo directo 7

\ ' Dim objDDOffSurf como superficie de dibujo directo 7

\ ' Dim ddsd 1 As ddsurfacedesc 2

\'Dim ddsd2 As DDSURFACEDESC2

\'Dim r1 As RECT

Agregue el siguiente código al formulario: CARGAR: respuesta SPR4Y .

\'Establecer objDD = objDX. DirectDrawCreate(\"\ ")

\ 'Llamar a objDD. setcooperativel(me . hwnd, DDSCL_FULLSCREEN o DDSCL_ALLOWMODEX o DDSCL_EXCLUSIVE)

\'objDD. Establecer el modo de visualización 800, 600, 16, 0, DDSDM _Default

\ 'Establecer el modo de visualización 800x600 160000 colores.

SPR4Y respondió.