Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Elegir Resolución Mar Jul 08, 2008 5:29 pm | |
| Primero de todo buscan el sub Public Sub IniciarObjetosDirectX() y remplazan por este: - Código:
-
Public Sub IniciarObjetosDirectX()
On Error Resume Next
Call AddtoRichTextBox(frmCargando.status, "Iniciando DirectX....", 0, 0, 0, 0, 0, True) Call IniciarDXobject(DirectX) Call AddtoRichTextBox(frmCargando.status, "Hecho", , , , 1, , False)
Call AddtoRichTextBox(frmCargando.status, "Iniciando DirectDraw....", 0, 0, 0, 0, 0, True) Call IniciarDDobject(DirectDraw) Call AddtoRichTextBox(frmCargando.status, "Hecho", , , , 1, , False)
Call AddtoRichTextBox(frmCargando.status, "Analizando y preparando la placa de video....", 0, 0, 0, 0, 0, True)
Dim Parra As Long Dim lRes As Long Dim MidevM As typDevMODE lRes = EnumDisplaySettings(0, 0, MidevM) Dim intWidth As Integer Dim intHeight As Integer
oldResWidth = Screen.Width \ Screen.TwipsPerPixelX oldResHeight = Screen.Height \ Screen.TwipsPerPixelY
Dim CambiarResolucion As Boolean Parra = MsgBox("Desea jugar con pantalla completa?", vbYesNo, "Resolucion by Parra") If Parra = 6 Then If NoRes Then CambiarResolucion = (oldResWidth < 800 Or oldResHeight < 600) Else CambiarResolucion = (oldResWidth <> 800 Or oldResHeight <> 600) End If If CambiarResolucion Then With MidevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL .dmPelsWidth = 800 .dmPelsHeight = 600 .dmBitsPerPel = 16 End With lRes = ChangeDisplaySettings(MidevM, CDS_TEST) Else bNoResChange = True End If Call AddtoRichTextBox(frmCargando.status, "¡DirectX OK!", 0, 251, 0, 1, 0) Else Call AddtoRichTextBox(frmCargando.status, "¡DirectX OK!", 0, 251, 0, 1, 0) End If Exit Sub End Sub
Bueno y ya tendriamos todo.. | |
|