holas, necesito que alguien me pase el code para que al iniciar te diga si queres pantalla completa o no.
Si alguien lme lo pasa se lo agradesco.

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación


120![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)


120![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)

![Destructor de Mentes [7] Destructor de Mentes [7]](./images/ranks/Rango19.gif)
Kapleo78 escribió:holas, necesito que alguien me pase el code para que al iniciar te diga si queres pantalla completa o no.
Si alguien lme lo pasa se lo agradesco.
172![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)




120![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)
Enanoh escribió:Kapleo78 escribió:holas, necesito que alguien me pase el code para que al iniciar te diga si queres pantalla completa o no.
Si alguien lme lo pasa se lo agradesco.
Desde la versión 12.0 en adelante el seteo de la resolución se hace en el Aosetup
158![Aprendiz [2] Aprendiz [2]](./images/ranks/Rango7.gif)
If NoRes Then
If NoRes = False Then
If MsgBox("¿Desea jugar en modo ventana?", vbYesNo, "Resolución ") = vbYes Then
NoRes = True
Else
NoRes = False
End If
If NoRes = False Then
If MsgBox("¿Desea jugar en modo ventana?", vbYesNo, "Resolución ") = vbYes Then
NoRes = True
Else
NoRes = False
End If
CambiarResolucion = (oldResWidth < 800 Or oldResHeight < 600)
Else
CambiarResolucion = (oldResWidth <> 800 Or oldResHeight <> 600)
End If
![Newbie [4] Newbie [4]](./images/ranks/Rango3.gif)


120![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados