Sección de códigos , trucos y ejemplos para visual basic

140 - Centrar un control dentro de su contenedor

Simple rutina en vb6 que permite centrar un control dentro de su contenedor.

A la misma se le debe enviar como parámetro el control a centrar. Para recuperar el objeto contenedor se utiliza la propiedad Container, por ejemplo:

Set ElContenedor = Elcontrol.Container

Ejemplo : Lo siguiente centra un Label al presionar un commandbutton

Código en un formulario

Option Explicit Private Sub Command1_Click() Call Centrar(Label1) End Sub Public Sub Centrar(control As Object) Dim contenedor As Object 'Referencia al contenedor del control a centrar Set contenedor = control.Container With contenedor 'Posición Top control.Top = ((.ScaleHeight - control.Height) / 2) 'Posición Izquierda control.Left = ((.ScaleWidth - control.Width) / 2) End With 'Eliminamos la referencia Set contenedor = Nothing End Sub

Recursos vb6 - Enlaces relacionados

Centrar imagen de fondo en un formulario MDI

Recursos Vb.Net - Relacionados

Centrar un objeto dentro de su contenedor

Buscar en Recursos vb