Cambiar resolución con un tick.

» 28 Jul 2009 18:07

Este codigo es para un AO con launcher (integrado) para poder poner un tic que la tildarlo se abra en ventana (1024x768, cambia la resolución)

1. Creamos un TickBox con el nombre Check1 en el launcher de nuestro AO.

2. Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

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

Este codigo es el original, es la parte donde el cargando cambia de resolucion la pantalla.

3. Remplazamos todo lo anterior por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If frmLauncher.Check1 = vbChecked Then
CambiarResolucion = (oldResWidth <> 1024 Or oldResHeight <> 768)
Else
CambiarResolucion = (oldResWidth <> 800 Or oldResHeight <> 600)
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
End If

Donde dice frmLauncher, lo cambian por el nombre del form de su launcher.

Probable error:
-Pongo el tick y la resolucion no cambia.
Esto es porque capaz esta mal configurado el boton que abre al AO desde el launcher.
El codigo que tendria que ir es:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call Main
End

Algun otro error que encuentren, mandenme un mensaje privado. Esta testeado

Saludos!

Cambiar resolución con un tick.

¿Quién está conectado?