Visual Basic Listevisning er en kontrol , der viser data i listeform. Den Listevisning kan vise oplysninger som en liste over små eller store ikoner, et lille ikon med tekst til højre for det , eller en rapport, i hvilket format teksten til hver " underpunkt " vises til højre under hver kolonneoverskrift . Disse synspunkter kan lyde bekendt for dig , da dette er, hvordan Windows Explorer viser mappe og fil information. De oplysninger, der vises i ListView kan ses , vælges, omorganiseret , opdateres eller eksporteres til et andet program som f.eks Notepad eller Excel . Instruktioner
1
Åbn et nyt Visual BASIC Standard EXE -projekt. Tilsæt Listevisning objektet til værktøjskassen ved at klikke på "Projekt ", " Components" og klikke på afkrydsningsfeltet ud for " Microsoft Windows Common Controls 6.0 ( SP6 ) . " Vælg det Listevisning objekt fra værktøjskassen , og klik på default " Form1 . " Rename " Form1 " til noget mere meningsfuldt som " frmMain ", og den nyoprettede ListView til " lvCustomer ".
2
Tilføj en knap til " frmMain "og sæt billedteksten til" Export ". i" Form_Load "begivenhed , befolke " lvCustomer " med kundens data enten ved hårdt kodning eller hente data fra en database. Tilføj kolonneoverskrifterne på samme måde. Et grundlæggende eksempel for at tilføje en kolonneoverskrift er " lvCustomer.ColumnHeaders.Add 1" CustName "," navn ". " Dette linje kode angiver, at den første kolonneoverskrift vil have en nøgle " CustName ", og en værdi, der vises for brugeren af "Navn ". en grundlæggende eksempel på at tilføje en række data til " lvCustomer " er " lvCustomer.ListItems.Add 1 ,," John Smith " . " Denne linje af kode opretter en række af data i den første kolonne , uden nøgle og en værdi på " John Smith ".
3
Hent kolonneoverskrifterne ved looping gennem ListView ColumnHeader poster. for i = 1 Til lvCustomer.ColumnHeaders.CountsHeader = sHeader + lvCustomer.ColumnHeaders.Item ( i) . Text + vbTabNextThis kode sløjfer gennem hver ColumnHeader og gemmer værdien i strengen variablen " sHeader " efterfulgt af et tabulatormellemrum karakter. < br >
4
Opret en tekstfil for at gemme ColumnHeader data med Microsoft FileSystemObject . Følgende kode opretter en tekstfil med navnet " output.txt " og gemmer værdien af strengen variablen " sHeader " til denne fil: Dim FSO As New FileSystemObjectSet newfile = FSO.CreateTextFile ( "c: \\ temp \\ output. txt " Sandt , Falsk ) newFIle.Write ( sHeader )
5
Åbn indholdet af den nye" output.txt "-fil i Notesblok med" Shell "kommando : dblNotePadID = Shell ( " Notesblok c: \\ temp \\ output.txt " )