Part of programmere en desktop applikasjon er å gi brukerne muligheten til å skrive ut . Før brukerne skriver ut et dokument , kan det være lurt å liste alle tilgjengelige skrivere som er konfigurert på maskinen. Dette gir brukerne muligheten til å velge hvor de kan skrive ut dokumentet . Du kan få en liste over konfigurerte skrivere ved hjelp av Visual Basic ( VB ) "Skriver" objekt. Skriver objekt har en liste over skrivere , slik at du kan sløyfe gjennom og vise hver enkelt. Instruksjoner
en

Lag en heltallsvariabel og gi den det totale antallet av skriverne . Dette er nødvendig slik at du vet hvor mange ganger til sløyfe gjennom skriveren objektet . Koden for å lage en VB variabelen er under: Dim jeg som Integeri = Printer.Count
2

Display " Ingen skrivere konfigurert " hvis brukeren har ikke installert enheter. Dette er en feil sjekk metode for å unngå å vise ingenting for brukeren. Hvis jeg variabel opprettet i trinn 1 er null , så du vet at ingen skrivere konfigurert. Koden nedenfor kunngjør for brukeren at det ikke finnes skrivere som er installert : Hvis i = 0 ThenMsgBox " Ingen skrivere er installert " End If
3

Loop gjennom skriveren objektet og legg til skriveren liste til en liste kontroll. Dette gir brukeren muligheten til å klikke på en skriver . Koden for å vise hver skriver er under: Dim j som IntegerFor j = 0 til i - 1listbox1.AddItem Skrivere ( j ) DeviceNameLoop
4

Lagre den nye koden og trykk " F5" tasten. . Den " F5" tasten kjører programmet i debugger og lar deg kontrollere den nye koden . Når det er kjørt, vil du se hvert skriveren som er oppført i listen kontroll.