Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte nový projekt Visual Basic Štandardné EXE . Pridať ListView objekt na paneli nástrojov kliknutím na tlačidlo " projekt " , " súčasti " a kliknutím na zaškrtávacie políčko vedľa " Microsoft Windows Common Controls 6.0 ( SP6 ) . " Vyberte prvok ListView objekt z panela nástrojov a kliknite na default " Form1 . " Premenovať " Form1 " na niečo viac zmysluplného , ako je " frmMain " a novovytvorenej ListView na " lvCustomer . "
2
Pridanie tlačidla " frmMain " a nastaviť titulok " Vývoz . " V " Form_Load " udalosť , naplnenie " lvCustomer " s údajmi o zákazníkovi buď hard - kódovanie , alebo načítanie dát z databázy . Pridať na záhlavie stĺpcov rovnakým spôsobom . Základné príklad pridanie hlavičku stĺpca je " lvCustomer.ColumnHeaders.Add 1 , " CustName " , " Name " . " Tento riadok kódu ukazuje , že prvý záhlavie stĺpca bude mať kľúč " CustName " a zobrazená hodnota pre užívateľa " mená . " základné príklad pridá riadok dát k " lvCustomer " je " lvCustomer.ListItems.Add 1 , " John Smith " . " Tento riadok kód vytvorí riadok dát v prvom stĺpci , bez kľúča a hodnoty " John Smith . "
3
Načítať hlavičky stĺpcov slučkou cez položky ListView ColumnHeader . pre i = 1 To lvCustomer.ColumnHeaders.CountsHeader = sHeader + lvCustomer.ColumnHeaders.Item ( i ) . Text + vbTabNextThis kód prechádza každé ColumnHeader a uloží hodnotu do premennej reťazca " sHeader " nasleduje karte medzerou .
Stránka 4
Vytvorte textový súbor pre ukladanie dát ColumnHeader s Microsoft FileSystemObject . Nasledujúci kód vytvorí textový súbor s názvom " výstup.txt " a uloží hodnotu reťazca premennej " sHeader " k tomuto súboru : Dim FSO ako nový FileSystemObjectSet newfile = fso.CreateTextFile ( " c : \\ temp \\ výstupu . txt " , TRUE , FALSE ) newFIle.Write ( sHeader )
5
Otvorte obsahom nového " výstup.txt " súbor v poznámkovom bloku s príkazom " Shell " : dblNotePadID = Shell ( " Poznámkový blok c: \\ temp \\ výstup.txt " )