Cómo mostrar y escribir datos en varias columnas en vb listview
'Parámetros de entrada; HeadArray() es una matriz de variables bidimensionales, donde 0 representa texto y 1 representa el valor de ancho
'Parámetros de entrada IsCheckBoxes Si se muestran casillas de verificación
p >'Función Inicializar el control ListView al formato de informe Inicialización común del cabezal de control ListView
Función privada ListViewInitialize(ByRef ListView1 As ListView.HeadArray())ByRef HeadArray() As Variant, ByVal IsCheckBoxes como booleano)
En caso de error, vaya a ONERROR
Atenuar itmX como elemento de lista
Atenuar clmX como encabezado de columna
Atenuar i como largo
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.View = lvwReport
ListView1.Gridlines = TrueBorderStyle = ccFixedSingle
Seleccionar caso IsCheckBoxes
Caso Is = True
ListView1.ListItems.Clear
ListView1 .CheckBoxes = True 'Si mostrar casillas de verificación
Finalizar selección
For i = LBound(HeadArray) To UBound(HeadArray)
Establecer clmX = ListView1 .ColumnHeaders.Number
Caso más
MsgBox "Código de error:" amp; Err.Number amp "Descripción del error:" Err.Description, vbExclamation, "Inicialización"< / p>
Finalizar selección
Finalizar si
Finalizar función