Por Geymer Morales Cruz

Compartiendo Información...

Centrar un Objeto en Visual Net

Una vez más por acá posteándoles un pequeño tip que puede ser muy útil para ustedes. Resulta que en algún momento tuve la necesidad de centrar un GroupBox en mi formulario en una de las aplicaciones que estaba desarrollando, es por esto que les comparto el siguiente método que funciona con cualquier objeto que deseen centrar...
 

    Private Sub Centrar(ByVal Objeto As Object)

        ' Centrar un Formulario ...   
        If TypeOf Objeto Is Form Then
            Dim frm As Form = CType(Objeto, Form)
            With Screen.PrimaryScreen.WorkingArea ' Dimensiones de la pantalla sin el TaskBar   
                frm.Top = (.Height - frm.Height) \ 2
                frm.Left = (.Width - frm.Width) \ 2
            End With

            ' Centrar un control dentro del contenedor   
        Else
            ' referencia al control   
            Dim c As Control = CType(Objeto, Control)

            'le  establece el top y el Left dentro del Parent   
            With c
                .Top = (.Parent.ClientSize.Height - c.Height) \ 2
                .Left = (.Parent.ClientSize.Width - c.Width) \ 2
            End With
        End If
    End Sub

Lo invocamos de la siguiente manera...
 

   Centrar(GroupBox4)

Y el resultado es el siguiente, en este caso lo aplique para un sencillo mensaje de carga de información a como se muestra en la siguiente imagen...



Espero les funcione, fue un tip pequeño pero puede que sea de gran utilidad para ustedes.
Hasta pronto…

0 comentarios: