Hvordan Sett Listview topper i en Notepad Bruke VB6

Visual Basic Listview er en kontroll som viser data i listeform. Den Listview kan vise informasjon som en liste med små eller store ikoner, et lite ikon med tekst til høyre for det, eller en rapport formatet som teksten i hver "subitem" vises til høyre under hver kolonneoverskriften. Disse synspunktene kan høres kjent for deg, da dette er hvordan Windows Explorer viser mappen og filinformasjon. Informasjonen som vises i Listview kan vises, velges, omorganisert, oppdatert eller eksporteres til et annet program, for eksempel Notisblokk eller Excel.

Bruksanvisning

1 Åpne en ny Visual Basic Standard EXE-prosjekt. Tilsett Listview objektet til verktøykassen ved å klikke på "Project", "Components" og klikke i boksen ved siden av "Microsoft Windows Common Controls 6.0 (SP6)." Velg Listview objekt fra verktøykassen og klikk på default "Form1." Gi nytt navn "Form1" til noe mer meningsfylt som "frmMain" og den nyopprettede List til "lvCustomer."

2 Legg til en knapp for å "frmMain" og sette bildeteksten til "Export". I "Form_Load" hendelse, befolke "lvCustomer" med kundedata enten ved hard-koding eller hente data fra en database. Legg kolonneoverskriftene på samme måte. En grunnleggende eksempel på å legge til en kolonneoverskriften er "lvCustomer.ColumnHeaders.Add 1," CustName "," Name "." Dette kodelinje indikerer at den første kolonneoverskriften vil ha en nøkkel "CustName" og en verdi vises til brukeren for "Name". En grunnleggende eksempel på å legge til en rad med data til "lvCustomer" er "lvCustomer.ListItems.Add 1," John Smith "." Dette kodelinje skaper en rad med data i den første kolonnen, uten nøkkel og en verdi på "John Smith".

3 Hent kolonneoverskriftene ved looping gjennom listevisningen ColumnHeader elementer.
For i = 1 Til lvCustomer.ColumnHeaders.Count

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

neste
Denne koden looper gjennom hver ColumnHeader og lagrer verdien i strengen variabelen "sHeader" etterfulgt av en fane mellomrom.

4 Opprett en tekstfil å lagre ColumnHeader data med Microsoft File. Følgende kode oppretter en tekstfil kalt "output.txt" og lagrer verdien av strengen variabelen "sHeader" til denne filen:
Dim FSO som New File
Sett newfile = FSO.CreateTextFile ( "c: \ temp \ output.txt", true, false)
newFIle.Write (sHeader)

5 Åpne innholdet i den nye "output.txt" filen i Notisblokk med "Shell" kommando:
dblNotePadID = Shell ( "Notepad c: \ temp \ output.txt")