Source: http://www.mvp-access.com/foro/establecer-resolucion-pantalla_topic80720_page1.html
Timestamp: 2019-08-23 19:52:21+00:00

Document:
Establecer resolucion pantalla - Foro de Access y VBA
Establecer resolucion pantalla
Puntos: 1251 Tema: Establecer resolucion pantalla
Enviado: 04/Junio/2015 a las 19:10
Donde puedo encontrar información sobre el código de VBA, para que al abrir una Base de Datos, cambie a la resolución que yo elija, por ejemplo: 1152 x 864?
Puntos: 4939 Enviado: 04/Junio/2015 a las 20:03
Mira en la web del buho:
http://www.mvp-access.es/buho/Buscadorb.asp
Pones: Pantalla
Y te da varias opciones, saludos.
Puntos: 1251 Enviado: 04/Junio/2015 a las 20:11
Gracias emiliove.
Voy a probarlo y adaptarlo a lo que quiero.
Puntos: 204 Enviado: 04/Junio/2015 a las 20:15
yo uso esta forma y funciona de perlas:
'This code shows how to change the screen resolution.
'Call the function like this:
' ChangeResolution 640, 480
'This would change the screen resolution to 640 pixels x 480 pixels.
'Notethat you can only change the resolution to values supported by the display.
'Paste the following code into a module:'
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
'' NOTE: The following declare statements are case sensitive.
'*********************************************************** ******
' FUNCTION: Obtenir_Resolucio_Pantalla()
' The current screen resolution. Typically one of the following :
Public Function Obtenir_Resolucio_Pantalla() As String
Obtenir_Resolucio_Pantalla = (R.X2 - R.X1) & "x" & (R.Y2 - R.Y1)
y luego al ABRIR el formulario inicial, compruebo que la resolucion actual no es la que quiero y la cambio.
If Obtenir_Resolucio_Pantalla() <> "1152x864" Then
RSx = Change_Resolution(1152, 864)
Puntos: 19948 Enviado: 04/Junio/2015 a las 20:25
Cambiar la resolución de la pantalla es un camino lleno de espinas.
Comenzando porque no todos los monitores son iguales y esa resolución (o cualquiera otra) puede no ser admitida.
Como colofón indicar que dejando aparte que algunos antivirus puedan poner problemas, si un programa (porque a el le place) me cambia la resolución de pantalla sin pedir permiso, posiblemente recorra un breve camino a la papelera (y sin perdón ni condolencia)
Puntos: 204 Enviado: 04/Junio/2015 a las 21:02
El usuario Nomada ha hecho una petición muy clara: "Donde puedo encontrar información sobre el código de VBA, para que al abrir una Base de Datos, cambie a la resolución que yo elija, por ejemplo: 1152 x 864?"
Me he limitado a proponer UN MODO de hacer lo que necesita.
Cada usuario y cada empresa es un mundo diferente.
Y la verdad no se que pinta el comentario sobre los antivirus (cosas muchissimo mas graves se pueden hacer, de manera totalmente trasnparente)
Creo entender que no le gusta la solucion aportada. No tengo sus evidentemente grandes conocimientos. Yo he aprendido lo increible de VBA gracias a este foro.
Si las modestas aportaciones de los usuarios menos "sabios" (incluso torpes) no le agradan, la solucion es simple: proponga otra mejor. (y por favor, no se limite al "buscador").
Puntos: 464 Enviado: 04/Junio/2015 a las 21:30
Julomi, no se me había ocurrido nunca cambiar la resolución con código, ya que en mi empresa existen unos cuantos monitores antiguos que expanden el formulario de una manera fea, y ensaye el código que publicaste, y quedo excelente, ahora ya se ve bonito y no se "sale" de las pantallas pues, algunos aplicativos que ellos usan necesitan la configuración que tienen, pero cuando usan mi aplicativo con ese código la cambio y santo remedio.
Puntos: 19948 Enviado: 04/Junio/2015 a las 21:52
JuLoMi: Creo que te has atribuido una respuesta que no te pertenece.
No le pongo pegas al aporte (y sinceramente lo he ignorado por no existir cuando postee mi respuesta por lo que la critica del mismo me es imposible), y sin embargo mantengo mi PERSONAL punto de vista, ya que si se cambia la resolución no se le cambia al programa, sino al contendor (la maquina) y ello afecta a cualquiera otra aplicación que se trabaje en ese mismo puesto.
Y ya sobre el comentario personal ... pegar y copiar no entra en mi forma de proceder y en el foro hay información (proporcionada por TODOS) que enseña mucho mas que una limosna de un solo uso.
Puntos: 204 Enviado: 04/Junio/2015 a las 21:57
para E. Feijoo: sin comentarios
(su primera respuesta, es DESPUES de mi primer mensaje)
y ademas , en cuanto a " ya que si se cambia la resolución no se le cambia al programa, sino al contendor (la maquina) y ello afecta a cualquiera otra aplicación que se trabaje en ese mismo puesto.", que impide que al salir de la aplicacion restaurar a la resolucion original?
para alexmubo: yo tambien tenia el problema de "ya que en mi empresa existen unos cuantos monitores antiguos que expanden el formulario de una manera fea,", Me alegro que te haya podido ayudar en algo.
Puntos: 19948 Enviado: 04/Junio/2015 a las 22:27
Utiliza algo que no sea el orgullo y razona que lo que indica es el instante en que se lanza el mensaje, no cuando se inicia (algunos tenemos mas de una tarea al tiempo).
Puntos: 204 Enviado: 05/Junio/2015 a las 13:15
kepakete1
Unido: 23/Marzo/2015
Puntos: 16 Enviado: 07/Junio/2015 a las 10:29
JuLoMi, gracias por el aporte. Mañana lo pruebo, ya que yo en alguna tengo el mismo problema,
Puntos: 1251 Enviado: 09/Junio/2015 a las 18:52
Pues después de leer a todos, pues carezco de muuuchos conocimientos, y quiero saber que es lo todos opinan, he llegado a la conclusión de hacer alguna prueba con el código de JuLoMi, aunque sinceramente no entiendo nada. Digo hacer alguna prueba, porque no me gusta poner código que no entiendo.
Este hilo se puede cerrar satisfactoriamente; lo dicho probaré el código, pero solamente lo probaré.

References: resolución 
 resolución 
 resolución 
 resolución 
 resolución 
 resolución 
 resolución 
 resolución