Asignar Tamaño Mínimo A Una Ventana


Objetivo: Asignar Tamaño Mínimo A Una Ventana
El problema es que una ventana se puede reducir totalmente, y al final los controles salen deformados o ya no caben.
Quiero poner un límite de ancho y alto para que esto no ocurra, ya que estéticamente no queda nada bien.

He estado buscando por internet, pero no he encontrado nada que me pueda servir.
También he estado trasteando con Form_Resize, aumentando el tamaño cada vez que baja de un valor concreto, pero no me funciona.

¿Hay alguna forma?

Perfil MP  
Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
No hay una manera limpia de hacerlo, al menos yo tampoco la encuentro. No es muy lógico que Benoit no haya implementado una propiedad como MinimumSize para formularios, pero bueno...

El siguiente código debería funcionar, pero no lo hace correctamente. Ocurre que la segunda vez que intentas reducir el tamaño por debajo del límite, el programa entra en una recursión infinita.

PUBLIC SUB Form_Resize()
IF ME.Height <= 400 or ME.Width <= 400 THEN
ME.Resize(400, 400)
ENDIF
END


Si alguien tiene una solución, que lo diga.

Saludos

Perfil MP  
Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
jguardon escribió: [Ver mensaje]
No hay una manera limpia de hacerlo, al menos yo tampoco la encuentro. No es muy lógico que Benoit no haya implementado una propiedad como MinimumSize para formularios, pero bueno...

El siguiente código debería funcionar, pero no lo hace correctamente. Ocurre que la segunda vez que intentas reducir el tamaño por debajo del límite, el programa entra en una recursión infinita.

PUBLIC SUB Form_Resize()
IF ME.Height <= 400 or ME.Width <= 400 THEN
ME.Resize(400, 400)
ENDIF
END


Si alguien tiene una solución, que lo diga.

Saludos


Sí, he intentado eso precisamente y no me ha funcionado.

La verdad es que se echan de menos un par de propiedades para el alto y el ancho mínimos. Facilitaría mucho las cosas.

Perfil MP  
Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
Deberia de funcionar esto tambien:

Citar:
PUBLIC SUB Form_Resize()
dim anchominimo as float
dim altominimo as float
dim validar as boolean

anchominimo=400
altominimo=300

validar= (ME.Height <= altominimo) or (ME.Width <=anchominimo)

IF validar THEN
me.height=altominimo
me.width=anchominimo
ENDIF
END


Pero tambien se bloquea....

Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
No lo he probado nunca... pero ¿y si al pasar de un mínimo le cambias el borde de resizable a fixed? Con dos veces que lo intentase se le quitarían las ganas al usuario ese...

Perfil MP  
Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
shordi escribió: [Ver mensaje]
No lo he probado nunca... pero ¿y si al pasar de un mínimo le cambias el borde de resizable a fixed? Con dos veces que lo intentase se le quitarían las ganas al usuario ese...


XD. Pensé lo mismo. Pero luego ya no podría volver a ampliar la ventana.

Perfil MP  
Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
P or eso se le quitarían las ganas...

Perfil MP  
Objetivo: Re: Asignar Tamaño Mínimo A Una Ventana
shordi escribió: [Ver mensaje]
P or eso se le quitarían las ganas...


No, eso desde luego xd

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.366s (PHP: -78% SQL: 178%)
Consultas SQL: 44 - Debug off - GZIP Activado