Come mettere ListView intestazioni in un blocco note Utilizzando VB6

June 15

Come mettere ListView intestazioni in un blocco note Utilizzando VB6


Il ListView di Visual Basic è un controllo che visualizza i dati sotto forma di lista. La ListView può visualizzare informazioni come un elenco di piccole o grandi icone, una piccola icona con testo alla destra di esso, o un formato di report in cui il testo di ogni "elemento secondario" viene visualizzato a destra sotto ogni colonna. Questi punti di vista può suonare familiare a voi come questo è come Windows Explorer visualizza cartelle e file di informazioni. Le informazioni visualizzate nella ListView può essere visualizzato, selezionare, riordinare, aggiornato o esportati in un'altra applicazione quale Blocco note o Excel.

istruzione

1 Aprire un nuovo progetto di Visual Basic EXE standard. Aggiungere l'oggetto ListView alla casella degli strumenti facendo clic su "Progetto", "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 predefinito "Form1". Rinomina "Form1" per qualcosa di più significativo, come "frmMain" e il ListView appena creato per "lvCustomer."

2 Aggiungere un pulsante a "frmMain" e impostare la didascalia di "Esporta". Nel caso in cui "Form_Load", popolare "lvCustomer" con i dati dei clienti sia da hard-codifica o recuperare i dati da un database. Aggiungere le intestazioni delle colonne 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à una chiave di "CustName" e un valore visualizzato all'utente di "Nome". Un esempio di base di aggiunta di 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 Recuperare le intestazioni delle colonne dai scorrendo le voci ListView ColumnHeader.
Per i = 1 Per lvCustomer.ColumnHeaders.Count

sHeader = sHeader + lvCustomer.ColumnHeaders.Item(i).Text + vbTab

Il prossimo
Questo codice 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 Microsoft FileSystemObject. Il codice seguente crea un file di testo denominato "output.txt" e salva il valore della variabile stringa "sHeader" per quel file:
Dim UST come nuovo FileSystemObject
Set newfile = FSO.CreateTextFile ( "c: \ temp \ output.txt", True, False)
newFIle.Write (sHeader)

5 Aprire il contenuto del nuovo file "output.txt" in Blocco note con il comando "Shell":
dblNotePadID = Shell ( "Notepad c: \ temp \ output.txt")


Articoli Correlati