El ListView Visual BASIC es un control que muestra los datos en forma de lista. El ListView puede mostrar información como una lista de iconos pequeños o grandes, un pequeño icono con el texto a la derecha de la misma, o un formato de informe en el que se muestra el texto de cada "elemento secundario" a la derecha debajo de cada encabezado. Estos puntos de vista puede sonar familiar para usted ya que esto es como el Explorador de Windows muestra información de la carpeta y el archivo. La información que se muestra en el ListView se puede ver, seleccionado, reordenado, actualizados o exportado a otra aplicación, como el Bloc de notas o Excel.
Instrucciones
1 Abra un nuevo proyecto EXE estándar de Visual Basic. Agregue el objeto ListView a la caja de herramientas haciendo clic en "Proyecto", "Componentes" y haciendo clic en la casilla de verificación junto a "Microsoft Windows Common Controls 6.0 (SP6)". Seleccione el objeto ListView de la caja de herramientas y haga clic en la opción predeterminada "Form1". Cambiar el nombre de "Form1" a algo más significativo, tales como "frmMain" y el ListView recién creado para "lvCustomer."
2 Añadir un botón para "frmMain" y establecer el título de "Exportar". En el caso de "Form_Load", poblar "lvCustomer" con los datos del cliente, ya sea por fuerza codificante o recuperar los datos de una base de datos. Añadir los títulos de las columnas de la misma manera. Un ejemplo básico de la adición de una cabecera de columna es "lvCustomer.ColumnHeaders.Add 1," CustName "," Nombre "." Esta línea de código indica que la primera cabecera de la columna tendrá una clave de "CustName" y un valor que se muestra al usuario del "nombre". Un ejemplo básico de la adición de una fila de datos a la "lvCustomer" es "lvCustomer.ListItems.Add 1," John Smith "." Esta línea de código crea una fila de datos en la primera columna, sin llave y un valor de "John Smith".
3 Recuperar los títulos de las columnas haciendo un bucle a través de los elementos ListView ColumnHeader.
Para i = 1 Para lvCustomer.ColumnHeaders.Count
sHeader = sHeader + lvCustomer.ColumnHeaders.Item(i).Text + vbTab
Siguiente
Este código recorre cada ColumnHeader y almacena el valor en la cadena de la variable "Sheader", seguido de un carácter de espacio pestaña.
4 Crear un archivo de texto para almacenar los datos ColumnHeader con el Microsoft FileSystemObject. El siguiente código crea un archivo de texto denominado "salida.txt" y guarda el valor de la variable cadena "Sheader" a ese archivo:
Dim FSO Como Nueva FileSystemObject
Establecer NewFile = FSO.CreateTextFile ( "c: \ temp \ salida.txt", True, False)
newFIle.Write (Sheader)
5 Abrir el contenido del nuevo archivo "salida.txt" en el Bloc de notas con el comando "Shell":
dblNotePadID = Shell ( "Bloc de notas c: \ temp \ salida.txt")