Ejemplos usando el Api de windows para Visual basic

93 - Ejemplo para Ajustar los encabezados de columna de un ListView

Volver al Listado Api - Anterior - Siguiente

Esta rutina utiliza la función Api SendMessage para recorrer mediante un bucle For todos los encabezados de un control ListView y ajustar el ancho al elemento mas grande de esa columna, es decir auto Ajustarla.

En la llamada al Api SendMessage, se le envía como mensaje (constante) LVM_SETCOLUMNWIDTH en el segundo parámetro. En el tercer parámetro se pasa el número de índice de la columna para ajustar, que en este caso es la variable del bucle For-next.

Vista previa del form

vista del control de lista con los encabezados de columna autoajustado

Controles

Colocar para el ejemplo un control Command y un control ListView

Código fuente en un formulario.

Option Explicit 'Declaración Api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Const LVM_SETCOLUMNWIDTH = &H101E Private Sub Command1_Click() Dim i As Integer 'Recorre las columnas y las ajusta For i = 0 To ListView1.ColumnHeaders.Count - 1 SendMessage ListView1.hwnd, LVM_SETCOLUMNWIDTH, i, -3 Next i End Sub Private Sub Form_Load() Dim UnItem As ListItem, i As Integer 'Vista detalle ListView1.View = lvwReport 'Agregamos una columna ListView1.ColumnHeaders.Add , , "Columna1 " 'Le establecemos un ancho ListView1.ColumnHeaders(1).Width = 4000 'Agregamos Items Set UnItem = ListView1.ListItems.Add(Text:="aaa") Set UnItem = ListView1.ListItems.Add(Text:="bbbbb") Set UnItem = ListView1.ListItems.Add(Text:="cccccc") Set UnItem = ListView1.ListItems.Add(Text:="dddd") Set UnItem = ListView1.ListItems.Add(Text:="eeeee") Set UnItem = ListView1.ListItems.Add(Text:="ffffffffffffffffhhhhhhhhh") Command1.Caption = " Ajustar encabezados " End Sub

Buscar en Recursos vb