SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: The Black Boy en Martes 2 de Noviembre de 2004, 18:46

Título: Desarrollar Aplicacion
Publicado por: The Black Boy en Martes 2 de Noviembre de 2004, 18:46
bueno la pregunta es:

si yo hago una aplicacion y mi computador lo tengo con resolucon 1034 x 728
el ejecutable de mi aplicacion queda con es resolucion.. pero al ir a instalar mi aplicacion en otro computador cuya resolucion es menor ej: 800x600 , entonces mi aplicacion no se va a ver bien...  ¿como hago para que al correr la aplicacion esta tome la resolucion de el computador y se vea bien? sea la resolucion que sea¡¡¡... bueno si es que eso se puede hacer..

agradezco cualquier colaboracion...

Saludos
Título: Re: Desarrollar Aplicacion
Publicado por: RadicalEd en Martes 2 de Noviembre de 2004, 18:52
CREO QUE ES ALGO ASI
Código: Text
  1.  
  2. Private Sub Form_Load()
  3. On Error Resume Next
  4. Me.Width = Screen.Width / 2
  5. Me.Height = Screen.Height /2
  6. End Sub
  7.  

ESTO CAPTURA EL ANCHO Y EL ALTO DE LA PANTALLA Y ACOMODA TU APLICACION SEGUN ESTA.
OJALA TE SIRVA.
CHAO
Título: Re: Desarrollar Aplicacion
Publicado por: The Black Boy en Martes 2 de Noviembre de 2004, 19:51
gracias  voy a probar  y luego te comento...


Saludos  :good:
Título: Re: Desarrollar Aplicacion
Publicado por: The Black Boy en Miércoles 3 de Noviembre de 2004, 00:04
Código: Text
  1.  
  2. Me.Width = Screen.Width / 2
  3. Me.Height = Screen.Height /2
  4.  
  5.  

:good:
¿Pregunta  ..  Por que sobre 2   ????
Título: Re: Desarrollar Aplicacion
Publicado por: RadicalEd en Miércoles 3 de Noviembre de 2004, 16:32
mmm CREO QUE PARA QUE DIVIDA LA PANTALLA, Y NO UTILIZA EL 100% DE ESTA SINO LA MITAD.
jejejeje CREO CHAO
Título: Re: Desarrollar Aplicacion
Publicado por: Brroz en Miércoles 3 de Noviembre de 2004, 17:10
Hola Black Boy.

Utiliza la herramienta de búsqueda en este mismo foro indicando como palabra a buscar resolución. Veras varios temas que ahondan en el problema con los que seguro encuentras tu solución.

Chao.
Título: Re: Desarrollar Aplicacion
Publicado por: The Black Boy en Miércoles 3 de Noviembre de 2004, 18:56
Cita de: "RadicalEd"
mmm CREO QUE PARA QUE DIVIDA LA PANTALLA, Y NO UTILIZA EL 100% DE ESTA SINO LA MITAD.
jejejeje CREO CHAO
que lastima ... no me sirvióla solucion por que lo que hace es dividir el tamaño de la aplicacion...

de todas maneras gracias y saludos...

Citar
Hola Black Boy.

Utiliza la herramienta de búsqueda en este mismo foro indicando como palabra a buscar resolución. Veras varios temas que ahondan en el problema con los que seguro encuentras tu solución.

buscaré y luego postearé como me fue..

Gracias


:good:
Título: Re: Desarrollar Aplicacion
Publicado por: RadicalEd en Jueves 4 de Noviembre de 2004, 17:51
ENTONCES SOLO DEJA
Código: Text
  1.  
  2. Me.Width = Screen.Width
  3. Me.Height = Screen.Height
  4.  
  5.  
LO QUE HACEN ES CAPTURAR EL ALTO Y EL ANCHO DE LA PANTALLA Y DARSELO COMO PARAMETRO A TU APLICACION
Título: Re: Desarrollar Aplicacion
Publicado por: The Black Boy en Jueves 4 de Noviembre de 2004, 18:16
mmm... voy a probar aunque tambien tengo que probar la solucion que encontré en el otro post que habia sobre esto...  aunque la vi por encima y está un poquito enrredada...

Gracias y Saludos  :good:
Título: Re: Desarrollar Aplicacion
Publicado por: Brroz en Miércoles 10 de Noviembre de 2004, 19:48
Hola BlackBoy.

Veo que no se te dió... me voy a explayar un poco con lo que se me ocurre:

Lo primero que debes hacer es averiguar la resolución actual. Esto lo puedes hacer de esta forma:
Código: Text
  1.  
  2. Private Sub RtvResolucion ()
  3.    MsgBox Screen.Width / Screen.TwipsPerPixelX _
  4.    & " x " & Screen.Height / Screen.TwipsPerPixelY
  5. End Sub
  6.  
  7.  

Bueno, lo siguiente es calcular mediante una regla de tres un coeficiente por el cual multiplicar alto y ancho de todos sus formularios y controles... y ya de paso, sus propiedades Top y Left para recolocarlos de acuerdo con su nuevo tamaño.

Este cálculo sería una regla de tres de este estilo:
Por ejemplo, el ancho original del Form es a la resolución horizontal original como x (el nuevo ancho para el Form) es a la resolución horizontal actual.
O lo que sería lo mismo (si es que no me estoy equivocando:
NDH = NRH / ARH * ADH
donde:
NDH=Nueva dimensión horizontal del objeto
NRH=Nueva resolución horizontal del monitor
ARH=Antigua resolución horizontal del monitor
ADH=Antigua dimensión horizontal del objeto

Como no sé si me habré explicado muy bien, pongo un ejemplo:
- Cuado diseñé la aplicación la resolución era 800 x 600
- Ahora la nueva resolución es 1034 x 728
- Cuando diseñé la aplicación, el ancho (width) de un objeto era 5000 twips
- ¿Cuál sería el nuevo ancho adecuado para el objeto una vez cambiada la resolución?
* La respuesta es:
Objeto.Width = 1034 / 800 * 5000

Resumiendo y así a grandes rasgos... En un módulo:
Código: Text
  1.  
  2. Option Explicit
  3.  
  4. Public dCoefX as double
  5. Public dCoefY as double
  6.  
  7. Private Sub Main
  8.     Const X_RES_ORG = 800 'Por ejemplo
  9.     Const Y_RES_ORG = 600
  10.     dCoefX = Screen.Width / Screen.TwipsPerPixelX / X_RES_ORG
  11.     dCoefY = Screen.Height / Screen.TwipsPerPixelY / Y_RES_ORG
  12. End Sub
  13.  
  14.  
En cada Form:
Código: Text
  1.  
  2. Private Sub Form_Resize
  3.    On Error Resume Next
  4.    Me.Width = Me.Width * dCoefX
  5.    Me.Heigth = Me.Height * dCoefY
  6.    Dim ctl1 As Control
  7.    For Each ctl1 In Me.Controls
  8.        ctl1.Move _
  9.        ctl1.Left * dCoefX, _
  10.        ctl1.Top * dCoefY, _
  11.        ctl1.Width * dCoefX, _
  12.        ctl1.Height * dCoefY
  13.    Next ctl1
  14. End Sub
  15.  
  16.  

Esto tiene una salvedad... si los forms pueden ser dimensionados por el usuario se producirá un efecto indeseado a no ser que en vez de multiplicar por el coeficiente las dimensiones actuales,  hagas con las originales a partir de un valor constante.

Supongo que habrás amarrado la idea... espero que con con esto puedas arreglar y sacar algo en limpio.

El mundo de las proporciones es muy curioso. Suerte.
Título: Re: Desarrollar Aplicacion
Publicado por: The Black Boy en Miércoles 10 de Noviembre de 2004, 21:04
excelente ya estaba empezando a mirar algo paracido a lo que publicaste Brroz

Gracias por tu ayuda y luegote comentaré como me fue

una ves mas gracias y saludos :good:   :hola: