Cómo poner ListView cabecera en un bloc de notas Usando VB6

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 " )