Foros del Web » Programación para mayores de 30 ;) » Programación General »

Poner un frame en medio de un formulario

Estas en el tema de Poner un frame en medio de un formulario en el foro de Programación General en Foros del Web. Estoy trabajando en VB 6. SP5. Alguien sabe la lógica a implementar para poder poner un frame en el mismo medio de un formulario sin ...
  #1 (permalink)  
Antiguo 02/01/2004, 17:07
Avatar de RsOfT  
Fecha de Ingreso: marzo-2002
Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 22 años, 8 meses
Puntos: 7
Poner un frame en medio de un formulario

Estoy trabajando en VB 6. SP5.

Alguien sabe la lógica a implementar para poder poner un frame en el mismo medio de un formulario sin importar si el usuario ponga la pantalla mas grande o más chica.

Estuve probando asignándole al frame en el evento Resible del formulario los siguientes valores:

frameInfo.Left = (Me.Width / 3)
frameInfo.Top = (Me.Height / 2) - 1250

Lo que estoy haciendo ahí es pegándola a ver si se cologa en donde quiero, es tanteando que estoy.
Lo que pense es que si el formulario tiene un ancho de 100, entonces el Left del frame debe ser 50, pero sale muy a la izquierda, por eso lo dividé entre 3.

Alguién tiene alguna idea de lo que se podría hacer???
__________________
.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance--
  #2 (permalink)  
Antiguo 02/01/2004, 20:07
Avatar de pabli  
Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 21 años, 1 mes
Puntos: 0
RsOfT,

este procedimiento te sirve para cualquier control:

Sub SUB_Centrar_Control(MiForm As Form, MiControl As Control)

'Calculamos la altura a mostrar el control
MiControl.Top = (MiForm.Height - MiControl.Height) / 2

'Calculamos la dimension del control a mostrar
MiControl.Left = (MiForm.Width - MiControl.Width) / 2
End Sub

Saludos
Pablo
  #3 (permalink)  
Antiguo 02/01/2004, 20:16
Avatar de RsOfT  
Fecha de Ingreso: marzo-2002
Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 22 años, 8 meses
Puntos: 7
Muchas gracias
__________________
.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance--
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:12.