The Visual BASIC ListView 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 el texto de cada " subtema " se muestra a la derecha debajo de cada encabezado de columna . Estos puntos de vista pueden parecer familiar a usted , ya que es como el Explorador de Windows muestra carpetas y archivos de información. La información que se muestra en el ListView se puede ver , seleccionar , reordenado , actualizado o exportados a otra aplicación, como 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 "proyectar", "Componentes" y haciendo clic en la casilla de verificación al lado de " Microsoft Windows Common Controls 6.0 (SP6 ) . " Seleccione el objeto ListView de la caja de herramientas y haga clic en el defecto " Form1 . " Rename " Form1 " a algo más significativo , como " frmMain " y el ListView recién creado " lvCustomer . "
2

Agregar un botón para " frmMain "y establecer el título de " Exportar . " En el" Form_Load "evento , pueblan " lvCustomer " con los datos del cliente , ya sea por codificar o recuperar los datos de una base de datos. Agregue los encabezados de las columnas de la misma manera . Un ejemplo básico de agregar un encabezado de la columna es " lvCustomer.ColumnHeaders.Add 1 , " CustName " , " Nombre ". " Esta línea de código indica que el primer título de la columna tendrá una clave de " CustName " y un valor que se muestra al usuario de " 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 de la primera columna , sin llave y un valor de " John Smith ".
3

Recuperar los encabezados de columna haciendo un bucle a través de los objetos ColumnHeader ListView . For i = 1 To lvCustomer.ColumnHeaders.CountsHeader = Sheader + lvCustomer.ColumnHeaders.Item ( i ) . Texto + vbTabNextThis código recorre cada ColumnHeader y almacena el valor en la variable de cadena " Sheader " seguido de un carácter de espacio de tabulación.
4

Crear un archivo de texto para almacenar los datos ColumnHeader con el Microsoft FileSystemObject . El siguiente código crea un archivo de texto llamado " output.txt " y guarda el valor de la variable de cadena " Sheader " a ese archivo : Dim FSO As New FileSystemObjectSet NewFile = FSO.CreateTextFile ("c : \\ temp \\ output . txt " , Verdadero , Falso) newFIle.Write ( Sheader )
5

abrir el contenido de la nueva " output.txt " archivo en el Bloc de notas con la orden" Shell " : dblNotePadID = Shell ( "Notepad c: \\ temp \\ output.txt " )