resolucion de pantalla

[zaino]

Hola a todos amigos del foro.
tengo una consulta.
Yo he hecho un sistemita de control de stock y mi consulta es si se puede hacer que el sistema funcione o haga un cambio automatico de resolucion debido a que algunas pc soportan resoluciones bajas y otras pc resoluciones altas. si no se entiende mi pregunta por favor decidlo, avisadme.

desde ya muchas gracias a todos.

[luciano]

Hola

Si se puede cambiar la resolución , mediante el api. ( hay cientos de ejemplos gugleando)

Pero no es lo conveniente, lo ideal es que adaptes (redimensiones y posiciones) los controles de tus formularios ..saludos

[antonio2005pe]

FAQ: 103. Controles que se acoplan al form

[A.H.H]

Hola con esto tu programa servira en cualquier pc ya que cambia la resolucion de la pantalla a la que tu pongas, tambien puedes guardar en unas variables la resolucion de pantalla que tiene el pc antes de correr el programa para asi cuando acabe el programa devolverle la resolucion de pantalla que tenia, me explico??
- si tengo un programa que quiero que se ejecute en 800x600 y el ordenador en el que lo voy a ejecutar tiene puesto 1024x768, guardo en unas variables el 1024x768 y cambio la resulucion a 800x600, cuando el usuario salga o termine el programa se vuelve a cambiar a 800x600.
VAMOS A USAR UN MODULO Y UN FORM.AL ABRIR EL PROGRAMA SE CAMBIARA LA RESOLUCION A 800X600 Y AL CERRAR LA VENTANA DEL FORM SE CAMBIARA A LA QUE TENIA EL PC(NATURALMENTE SI TIENES LA MISMA QUE EL EJEMPLO EL EFECTO NO SE NOTA).
COPIA ESTO EN UN MODULO LLAMALO COMO QUIERAS:

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _
(ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean


Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" _
(lpDevMode As Any, ByVal dwflags As Long) As Long

Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000


Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Sub ChangeRes(iWidth As Single, iHeight As Single)

Dim DevM As DEVMODE
Dim a As Boolean
Dim i&
i = 0


Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)

Dim b&

DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight

b = ChangeDisplaySettings(DevM, 0)

End Sub

COPIA ESTO EN UN FORM:

Public ancho As Single
Public alto As Single
Private Sub Form_Load()
'guardamos la resolucion actual en ancho y alto para
'luego volver a ponerla cuando se cierre el programa
'con la x

ancho = iWidth
alto = iHeight
'cambiamos la resolucion a 800x600

Call ChangeRes(800, 600)
End Sub

Private Sub Form_Unload(Cancel As Integer)'cuando se cierra el form
Call ChangeRes(ancho, alto)'devolvemos la resolucion guardada en ancho,alto

End Sub

espero que te sirva asi tu programa se vera en todos los ordenadores en la resolucion en que tu lo has creado...


salu2

[zaino]

Hola A.H.H gracias por la ayuda pero todavia no lo implementado al codigo que me pasaste. Estoy tratando de entender el codigo que me pasaste, `penas tenga novedades te aviso.
Tambien gracias a todos los que se interesaron en ayudarme con mi problema.
Saludos, y hasta pronto.

[DIDAKE]

AHH : SUPER BUENO EL CÓDIGO PARA CAMBIAR LA RESOLUCIÓN DE PANTALLA !!
EN UN NUEVO PROYECTO ME FUNCIONÓ BIEN , PERO EN UNO EXISTENTE NO PUEDO ANEXARLO CON EXITO
¿DONDE DEBO INTRODUCIR ESTE CÓDIGO EN MI FORM ?
Public ancho As Single
Public alto As Single

[A.H.H]

Hola en el form en el apartado que pone general

Ancho y Alto son publicas para usar en todo el programa normalmente se ponen por encima de Private Sub Form_Load() en el apartado general.

salu2