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

La aplicación Bloc de notas ordenador funciona casi de la misma manera que un bloc de notas física. 

ListView CABECERAS

El 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.

Abra un nuevo proyecto EXE estándar de Visual Basic. Agregue el objeto ListView a la caja de herramientas, haga clic en Proyectos, Componentes y haciendo clic en la casilla de verificación situada junto a Microsoft Windows Common Controls 6.0 (SP6). Seleccione el objeto ListView de la caja de herramientas y haga clic en el Form1 predeterminada. Cambiar el nombre de Form1 a algo más significativo, como frmMain y el ListView recién creado lvCustomer.

Agregar un botón para frmMain y establecer el título para exportar. En el evento Form_Load, lvCustomer rellenar con los datos del cliente, ya sea por codificar o recuperar los datos de una base de datos. Agregue las columnas encabezados de la misma manera. Un ejemplo básico de agregar un encabezado de columna se 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 del nombre. Un ejemplo básico de la adición de una fila de datos a la lvCustomer se lvCustomer.ListItems.Add 1,, John Smith. Esta línea de código crea una fila de datos en la primera columna, sin clave y un valor de John Smith.

Recuperar la columna encabezados por recorrer a través de los elementos ColumnHeader ListView. For i = 1 To lvCustomer.ColumnHeaders.Count Sheader = Sheader + lvCustomer.ColumnHeaders.Item (i). Texto + vbTab Siguiente Este código recorre cada ColumnHeader y almacena el valor en la cadena de Sheader variable seguido de un carácter de espacio de tabulación.

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 cadena Sheader variable en ese archivo: FSO Dim As New FileSystemObject Set NewFile = FSO.CreateTextFile (c: \ temp \ output.txt, Verdadero, Falso) NewFile . Write (Sheader)

Abra el contenido del nuevo archivo output.txt en el Bloc de notas con el comando Shell: dblNotePadID = Shell (Bloc de notas c: \ temp \ output.txt)