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?

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.



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

Saludos

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"

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.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

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.

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....

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

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...     

===================
No podemos regresar

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.

P      or eso se le quitarían las ganas...

===================
No podemos regresar

shordi escribió: [Ver mensaje]

P      or eso se le quitarían las ganas...

No, eso desde luego xd