Aprire un nuovo progetto EXE standard di Visual . Aggiungere l'oggetto ListView alla casella degli strumenti facendo clic su "progettare", "Componenti" e facendo clic sulla casella di controllo accanto a " Microsoft Windows Common Controls 6.0 ( SP6 ) . " Selezionare l'oggetto ListView dalla casella degli strumenti e fare clic sul default " . Form1 " Rinomina " Form1 " a qualcosa di più significativo , come " frmMain " e la nuova creazione ListView a " lvCustomer . "
2
aggiungere un pulsante " frmMain "e impostare la voce su" Esporta ". Nel" Form_Load "evento , popolano " lvCustomer " con i dati dei clienti sia per codificare o estratto i dati da un database. Aggiungere le intestazioni di colonna nello stesso modo. Un esempio di base di aggiunta di una colonna è " lvCustomer.ColumnHeaders.Add 1 , " CustName " , " Nome " . " Questa riga di codice indica che la prima intestazione di colonna avrà un tasto di " CustName " e un valore visualizzato per l'utente "del nome . " un esempio di base di aggiungere una riga di dati alla " lvCustomer " è " lvCustomer.ListItems.Add 1 , , " John Smith " . " Questa linea di codice crea una riga di dati nella prima colonna , senza chiave e un valore di " John Smith ".
3
Recupera le intestazioni delle colonne, scorrendo le voci ColumnHeader ListView . For i = 1 To lvCustomer.ColumnHeaders.CountsHeader = sHeader + lvCustomer.ColumnHeaders.Item ( i) . Text + codice vbTabNextThis loop attraverso ogni ColumnHeader e memorizza il valore nella variabile stringa " sHeader " seguito da uno spazio scheda .
4
Creare un file di testo per memorizzare i dati ColumnHeader con il Microsoft File System Object . Il codice seguente crea un file di testo denominato " output.txt " e salva il valore della variabile stringa " sHeader " a quel file : Dim FSO As New FileSystemObjectSet nuovofile = FSO.CreateTextFile ( "c : \\ temp \\ output . txt ", True , False) newFIle.Write ( sHeader ) economici 5
Aprire il contenuto del nuovo " output.txt " file nel Blocco note con il comando" Shell " : dblNotePadID = Shell ( "Notepad c: \\ temp \\ output.txt " ) economici
Programmazione © www.354353.com