De Visual BASIC ListView is een controle die gegevens in een lijst weergegeven . De ListView kan informatie weergeven als een lijst van kleine of grote pictogrammen , een klein pictogram met tekst rechts ervan , of een verslag formaat waarin de tekst van de " subitem " verschijnt rechts onder elke kolomkop . Deze standpunten kunnen bekend voor je klinkt als dit is hoe de Windows Verkenner map-en bestandsinformatie . De weergegeven in de ListView informatie kan worden bekeken , geselecteerd , bijbesteld , geactualiseerd of geëxporteerd naar een andere applicatie zoals Kladblok of Excel . Instructies
1 Open een nieuw Visual Basic Standard EXE-project . Voeg de ListView object naar de toolbox door te klikken op " Project ", " componenten" en klikken op het selectievakje naast " Microsoft Windows Common Controls 6.0 ( SP6 ) . " Selecteer de ListView object uit de toolbox en klik op de default " Form1 . " Rename " Form1 " naar iets met meer betekenis zoals " frmMain " en de nieuw gecreëerde ListView aan " lvCustomer . " kopen van 2 Voeg een knop om " frmMain " en stel de titel op" Exporteren . " In de" Form_Load " event , bevolken " lvCustomer " met klantgegevens , hetzij door harde - codering of het ophalen van de gegevens uit een database . Voeg de kolomkoppen op dezelfde manier . Een eenvoudig voorbeeld van het toevoegen van een kolom header is " lvCustomer.ColumnHeaders.Add 1 , " CustName " , " Naam " . " Deze lijn van code geeft aan dat de eerste kolom header een sleutel van " CustName " zal hebben en een waarde die wordt weergegeven aan de gebruiker van ' Name . " een eenvoudig voorbeeld van het toevoegen van een rij van gegevens aan de " lvCustomer "is " lvCustomer.ListItems.Add 1 , , " John Smith " . " Deze lijn van code wordt een rij gegevens in de eerste kolom , zonder sleutel en een waarde van " John Smith . "
3 Haal de kolomkoppen door het doorlussen van de ListView kolomnaam items . voor i = 1 To lvCustomer.ColumnHeaders.CountsHeader = sHeader + lvCustomer.ColumnHeaders.Item ( i ) . tekst + vbTabNextThis code lussen door elke kolomnaam en slaat de waarde in de string variabele " sHeader " gevolgd door een tab spatie . < br > Goedkope 4 Maak een tekstbestand op de kolomnaam gegevens op te slaan met de Microsoft FileSystemObject . De volgende code maakt een tekstbestand met de naam " uitvoer.txt " en slaat de waarde van de string variabele " sHeader " om dat bestand : Dim FSO als Nieuwe FileSystemObjectSet nieuwbestand = FSO.CreateTextFile ( " c: \\ temp \\ output. txt " , True , False ) newFIle.Write ( sHeader )
5 Open de inhoud van de nieuwe " uitvoer.txt "bestand in Kladblok met de " Shell " command : dblNotePadID = Shell ( " Notepad c: \\ temp \\ uitvoer.txt " ) op Twitter
|
