Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorte celočíselnú premennú a priradiť mu celkový počet tlačiarní . To je nevyhnutné , aby ste vedeli , koľkokrát sa prechádzať objekt tlačiarne . Kód vytvoriť VB premennej je nasledujúci : Dim i ako integer = Printer.Count
2
voľbu " Nie tlačiarne nakonfigurovaný " , ak užívateľ nemá nainštalované zariadenie . To je metóda kontroly chýb , aby sa zabránilo zobrazovanie nič užívateľmi . Ak je premenná i vytvorený v kroku 1 je nulový , potom viete , že žiadne tlačiarne sú nakonfigurované . Nasledujúci kód oznamuje užívateľovi , že sú nainštalované žiadne tlačiarne : Je-li i = 0 ThenMsgBox " nainštalované žiadne tlačiarne " End If
Sims 3
slučku cez objekt tlačiarne a pridať zoznam tlačiarne na ovládací prvok zoznam . To dáva užívateľovi možnosť kliknúť na tlačiarni . Kód pre zobrazenie každú tlačiareň je nasledujúci : Dim j ako IntegerFor j = 0 pre i - 1listbox1.AddItem tlačiarne ( j ) DeviceNameLoop
4
Uložte nový kód a stlačte klávesu " F5 " . . Tlačidlo " F5 " spustí aplikáciu v debuggeri a umožňuje kontrolovať nový kód . Keď je spustený , môžete vidieť každú tlačiareň uvedené v ovládací prvok zoznam .