Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Noviembre 04, 2013, 02:42:24 pm

Título: Funcion para centrar un usercontrol
Publicado por: E N T E R en Noviembre 04, 2013, 02:42:24 pm

Hola tengo este uccontrol, y quiero crear una funcion para centrar el uc dentro del form pero no me esta funcionando

SOURCE

http://www.mediafire.com/?2gttlfaf3dl2f2y (http://www.mediafire.com/?2gttlfaf3dl2f2y)

Título: Re:Funcion para centrar un usercontrol
Publicado por: pedroesca en Noviembre 04, 2013, 05:17:38 pm

Así me salió

Código: [Seleccionar]

Public Sub CENTRAR_VENTANA(ucVentanita As Object, Formu As Form)
    Dim isq As Long
    isq = (Formu.Width - ucVentanita.Width) / 2
   
    If isq < 0 Then isq = 0
        arr = (Formu.Height - ucVentanita.Width) / 2
    If arr < 0 Then arr = 0
   
   
    ucVentanita.Left = isq - 150
    ucVentanita.Top = arr - 100
   
End Sub


Título: Re:Funcion para centrar un usercontrol
Publicado por: E N T E R en Noviembre 05, 2013, 11:20:19 am

Perfecto amigo Pedro, funciono de maravillas te agradezco.