Visual Basic ListView är en kontroll som visar data i listform . Den ListView kan visa information som en lista med små eller stora ikoner , en liten ikon med text till höger om det , eller en rapport i vilken form texten för varje " delpost " visas till höger under varje kolumnrubrik . Dessa åsikter kanske låter bekant för dig , eftersom detta är hur Windows Explorer visar mapp -och filinformation . Den information som visas i ListView kan ses , väljs omredigerats , uppdateras eller exporteras till andra program som Anteckningar eller Excel . Instruktioner
1
Öppna ett nytt Visual Basic Standard -EXE-projekt . Lägg till ListView objektet till verktygslådan genom att klicka på " projekt", " komponenter" och klicka i kryssrutan bredvid " Microsoft Windows Common Controls 6.0 ( SP6 ) . " Välj ListView objektet från verktygslådan och klicka på default " Form1 . " Byt namn " Form1 " till något mer meningsfullt som " frmMain " och den nyinrättade ListView till " lvCustomer . "
2
Lägg till en knapp " frmMain " och ställ in bildtexten att" exportera ". i " Form_Load " händelse , befolkar " lvCustomer " med kunduppgifter antingen genom stela eller hämta data från en databas . Lägg kolumnrubrikerna på samma sätt . Ett grundläggande exempel att lägga till en kolumnrubrik är " lvCustomer.ColumnHeaders.Add 1 , " CustName " , " Name " . " Denna kodrad anger att den första kolumnrubriken kommer att ha en nyckel " CustName " och ett värde som visas för användaren i " Namn ". ett grundläggande exempel att lägga till en rad med data till " lvCustomer " är " lvCustomer.ListItems.Add 1 , , " John Smith " . " Denna rad av kod skapar en rad med data i den första kolumnen , med ingen nyckel och ett värde av " John Smith . " Addera 3
Hämta kolumnrubrikerna genom att loopa igenom ListView ColumnHeader objekt . för i = 1 till lvCustomer.ColumnHeaders.CountsHeader = sHeader + lvCustomer.ColumnHeaders.Item ( i) . Text + vbTabNextThis kod loopar igenom varje ColumnHeader och lagrar värdet i strängen variabeln " sHeader " följt av en tabb karaktär .
4
Skapa en textfil för att lagra ColumnHeader uppgifter med Microsoft FileSystemObject . I följande kod skapas en textfil med namnet " output.txt " och sparar värdet av strängen variabeln " sHeader " till denna fil : Dim FSO Som New FileSystemObjectSet newfile = FSO.CreateTextFile ( " c : \\ temp \\ utgång . txt " , Sant, Falskt ) newFIle.Write ( sHeader )
5
Öppna innehållet i den nya " output.txt " fil i Anteckningar med " Shell " -kommandot : dblNotePadID = Shell ( " Anteckningar c : \\ temp \\ output.txt " ) Addera
