Centrar o Posicionar un Formulario dentro de otro Formulario - VB-MUNDO

dares_ · #1 (**permalink**) 15-01-2005, 20:15:03

Hola!
Tengo un proyecto en VB6 y lo que quiero es dentro de un formulario principal llamar a otro formulario secundario y ubicarlo centrado en el formulario principal o segun los top y left del formulario principal pocisionar al formulario secundario, y que esta rutina me funcione en cualquier configuracion ya sea 800 x 600 o 1024 x 768...
La rutina que estaba usando para centrar es esta, pero no me esta andando muy bien...y ahora se complica porque quisiera aparte de pocer centrar, ubicarlo en una prosicion del formulario principal al secundario, y que me funcione en cualquier configuracion...me pueden ayudar?
Gracias
Diego

'Formulario es el que se tiene que centrar (Esta rutina esta en el Modulo)
Public Sub CntrFrmPantalla(Formulario As Object)
Dim X, Y
X = (Screen.Width - Formulario.Width) / 2
Y = (Screen.Height - Formulario.Height) / 2
If Formulario.WindowState = 1 Or Formulario.WindowState = 2 Then Exit Sub
Formulario.Move X, Y
End Sub

acalanto · #2 (**permalink**) 15-01-2005, 21:08:51

Pues en vez de screen utiliza los datos del principal, más o menos así en el evento Load o Activate (según te convenga) del formulario secundario (Que en este caso se transforma en ME).

Código:

me.left=principal.left + ((me.principal.width-me.width)/2)
me.top=principal.top + ((me.principal.height-me.height)/2)

Esto te funcionará siempre y cuando se cumpla la condición que el secundario sea de menor tamaño en todas las magnitudes que el principal, de lo contrario error al canto.

J.M.Movilla · #3 (**permalink**) 15-01-2005, 22:40:12

Creo que tienes también la posibilidad de definir la propiedad StartUpPosition del formulario-hijo como 1- CenterOwner, y automáticamente se te presenta centrado en el formulario padre, sea cual sea la definición del monitor.

acalanto · #4 (**permalink**) 16-01-2005, 20:48:38

Amigo Movilla:

Observarás la sencillez de tu respuesta si la comparas con la complejidad de la mía (La tuya es la que vale).

También comprobarás que mi particular forma de entender el camino más corto entre dos puntos, se basa en el Limacón de Pascal con dos órbitas añadidas a Saturno, en vez de en la línea recta.

Un saludo amigo.

J.M.Movilla · #5 (**permalink**) 16-01-2005, 21:11:52

Pues que conste, mi querido Leonardo, que he puesto ese mensaje con el temor de que me había salido de contexto... Lo que ocurre es que como sé aceptar que a veces "hablo por hablar"... pues me atreví a ponerlo, y mira por cuánto me sorprende esa gran verdad de que lo nimio se nos escapa más fácilmente que lo importante...

elros · #6 (**permalink**) 17-01-2005, 13:15:23

Bien, digamos que para centrar no habria tanto drama...pero si ahora lo que quiero es posisionar en formulario secundario en una posicion exacta del formulario principal, tomando las propiedades de top y left del principal, es esto posible? como hago?
Gracias
Diego

J.M.Movilla · #7 (**permalink**) 17-01-2005, 18:46:21

Pues usando la fórmula de acalanto...

me.left=principal.left + 180 (ó + 1280... ó + 3620...)
me.top=principal.top + la cantidad que te interese...