Ver Mensaje Individual
  #10 (permalink)  
Antiguo 26/07/2005, 08:11
Avatar de GeoAvila
GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 21 años, 4 meses
Puntos: 53
por alli encontre este codigo..

Código:
Sub Centra(FormName As Form)
    If FormName.MDIChild Then
        FormName.Left = (MDIMenuPrincipal.ScaleWidth - FormName.Width) \ 2
        FormName.Top = (MDIMenuPrincipal.ScaleHeight - FormName.Height) \ 2
    Else
        FormName.Left = (Screen.Width - FormName.Width) \ 2
        FormName.Top = (Screen.Height - FormName.Height) \ 2
    End If
End Sub

'MDIMenuPrincipal es el nombre del formulario MDI de la aplicacion, para
'llamarla solo tenes que poner este codigo en el evento load del formulario
'que vas a mostrar

Private Sub Form_Load()
    Centra Me
End Sub
pero este no te funcionara si colocas toolbar y statusbar se verá disparejo..

nos vemos..'
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila