Tips Visual Basic 6.0: Llenar un ListView

Cuando un programador desarrolla una aplicación (de escritorio o web) debe pensar en el usuario final, éste está acostumbrado a ciertas ventanas (interfaz), cierta forma de trabajar (los contadores por ejemplo utilizan el ENTER mucho más que el ratón) entonces por esa razón es que se recomienda incluir algunas características que los usuarios finales están acostumbrados a ver.

En Microsoft Excel 2003, podemos observar la siguiente ventana XXX la cual se nos muestra al momento de pulsar el botón derecho del ratón/Insertar sobre el nombre de una hoja de cálculo. Entonces en este ejemplo he simulado esta ventana.

Este ejemplo es parte de un sistema de kardex. La idea es que el usuario podrá seleccionar: DOC. VARIOS (para trabajar con documentos), kardex (para ver los movimientos de un artículo) o bien MAESTRO DE ARTICULOS (para ver los datos propios de los artículos), una vez seleccionada la opción, pulsar el botón ACEPTAR.

En este ejemplo se utiliza Microsoft Visual Basic 6.0 como lenguaje de programación y principalmente los siguientes controles:
1 ListView (para mostrar imágenes).
1 ImageList (para guardar imágenes).

CÓDIGO FUENTE PARA LLENAR EL LISTVIEW
Private Sub Form_Load()
    Dim column_header As ColumnHeader
    Dim list_item As ListItem
    Valor = ""
    Campo = ""
    ' Create the column headers.
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "Abbrev", _
        TextWidth("DOCUMENTOS VARIOS"))
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "Title", _
        TextWidth("KARDEX"))
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "ISBN", _
        TextWidth("MAESTRO DE ARTICULO"))
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "ISBN", _
        TextWidth("SALIR"))
    ListView1.Icons = imgLarge
    Set list_item = ListView1.ListItems.Add(, , " DOC. VARIOS")
    list_item.Icon = 1
    list_item.SmallIcon = 1
    list_item.SubItems(1) = "Ready-to-Run Visual Basic Algorithms"
    list_item.SubItems(2) = "0-471-24268-3"
    Set list_item = ListView1.ListItems.Add(, , "KARDEX")
    list_item.Icon = 2
    list_item.SmallIcon = 2
    list_item.SubItems(1) = "Visual Basic Graphics Programming"
    list_item.SubItems(2) = "0-471-15533-0"
    Set list_item = ListView1.ListItems.Add(, , "MAESTRO DE ARTICULO")
    list_item.Icon = 3
    list_item.SmallIcon = 3
    list_item.SubItems(1) = "Custom Controls"
    list_item.SubItems(2) = "0-471-24267-5"
    Set list_item = ListView1.ListItems.Add(, , "SALIR")
    list_item.Icon = 4
    list_item.SmallIcon = 4
    list_item.SubItems(1) = "Advanced Visual"
    list_item.SubItems(2) = "0-471-18881-6"
End Sub

CÓDIGO FUENTE PARA OBTENER EL ELEMENTO PULSADO DEL LISTVIEW

Private Sub cmdAceptar_Click()
    On Error GoTo e
           
    If Me.ListView1.ListItems(3).Selected Then
        frmCatArticulos.Show 1
    End If
    ‘ ......
e:
Resume Next
End Sub
 

---

---