Problemas al usar listview en VB

Seleccione "Componentes" en el menú del proyecto, luego verifique Microsoft Windows Common Controls 6.0 y confirme.

Haga doble clic en el control ImageList en la caja de herramientas y haga clic derecho en el icono de control que aparece en el formulario Seleccionar atributos. Vaya a la pestaña Imágenes y agregue algunas imágenes al control

. El nombre del control es ImageList1.

Puede establecer una ImageList para cada vista

Utilice el control ListView para crear un ListView1 en el formulario, haga clic derecho y seleccione Propiedades, vaya a lista de imágenes, luego especifique ImageList1 para todos, vaya a la pestaña Preferencias de columna, agregue al menos una columna, especifique un índice de ícono para cada columna, establezca otras configuraciones usted mismo y finalmente determine el formato de código para agregar elementos de la tabla, tomando ListView1 como un ejemplo

ListView1.ListItems.Add [índice], [clave], [texto de etiqueta], [número de índice de icono grande], [número de índice de icono pequeño]

Agregar sub- formato del elemento

ListView1.ListItems (número de índice del elemento de lista).ListSubItems.Add [índice], [clave], etiqueta de texto, número de índice del icono de detalle, texto de información sobre herramientas

Eliminar elemento

ListView1.ListItems.eliminar número de índice del artículo

Borrar todo

ListView1.ListItems.clear

Modificar la etiqueta del primer artículo

p>

ListView1.ListItems.Item(1).Text="New Label"

Modificar los subelementos del primer elemento

ListView1.ListItems.Item(1).ListSubItems(1).Text ="Nueva etiqueta"

Operación de clic derecho

Sub ListView1_MouseDown privado (botón como entero, desplazamiento como entero, x como único, y como único)

Atenuar este elemento como ListItem

Si Button = MouseButtonConstants.vbRightButton Entonces

Si ListView1.HitTest(x, y) es Nada entonces

Más

Establecer este elemento = ListView1.HitTest(x, y)

'Por ejemplo, realizar las acciones correspondientes según el índice del elemento en el que se hizo clic

Llamar a dosomething(thisitem.Index )

End If

End If

End Sub

Los corchetes arriba son opcionales

Por ejemplo

ListView1.ListItems.Add, , "hola", 1, 1

ListView1.ListItems(1).ListSubItems.Add , , "segundo", 2, "hola "