Del af programmering en desktop applikation giver brugerne mulighed for at udskrive. Før brugerne udskriver et dokument, kan du ønsker at liste alle tilgængelige printere konfigureret på maskinen. Dette giver brugerne mulighed for at vælge , hvor de kan udskrive dokumentet. Du kan få en liste over konfigurerede printere ved hjælp af Visual Basic ( VB) "Printer" objekt. Printer objekt rummer en liste over printere , så du kan sløjfe igennem og vise hver enkelt. Instruktioner
1

Opret et heltal variabel og tildele den samlede optælling af printere. Dette er nødvendigt, så du ved, hvor mange gange til loop gennem printeren objekt. Koden til at oprette en VB variabel er følgende: Dim i som Integeri = Printer.Count
2

Display " Ingen printere konfigureret ", hvis brugeren ikke har installeret enheder. Dette er en fejl kontrol metode til at undgå at vise noget for brugeren . Hvis jeg variablen blev oprettet i trin 1 er nul , så ved du ikke printere er konfigureret. Koden nedenfor annoncerer til brugeren at der ikke er installerede printere : Hvis i = 0 ThenMsgBox "No installerede printere " End If
3

Loop gennem printeren objektet og tilføje printeren listen til en liste kontrol. Dette giver brugeren mulighed for at klikke på en printer . Koden til at vise hver printer er følgende: Dim j som IntegerFor j = 0 til i - 1listbox1.AddItem Printere ( j ) DeviceNameLoop
4

Gem den nye kode, og tryk på " F5 "-tasten. . Den " F5 "-tasten kører programmet i debugger og giver dig mulighed for at kontrollere den nye kode. Når den køres , kan du se hver printer opført på listen kontrol.