Del av programmera ett datorprogram som ger användarna möjlighet att skriva ut . Innan användarna skriver ut ett dokument , kan du lista alla tillgängliga skrivare konfigurerade på maskinen . Detta ger användarna möjlighet att välja var de kan skriva ut dokumentet . Du kan få en lista med konfigurerade skrivare med hjälp av Visual Basic ( VB ) " Skrivare " objektet . Skrivarobjektet innehåller en lista över skrivare , så du kan loopa igenom och visar var och en . Instruktioner
1
Skapa ett heltal variabel och tilldela den totala räkningen på skrivarna . Detta är nödvändigt så att du vet hur många gånger att slinga genom Printer objektet . Koden för att skapa ett VB variabel är följande: Dim I som Integeri = Printer.Count
2
Display " Inga skrivare konfigurerade " om användaren inte har installerat enheter . Detta är en felkontroll metod för att undvika att visa något för användaren. Om jag variabeln som skapades i steg 1 är noll , då vet ingen skrivare har konfigurerats . Koden nedan meddelar användaren om att det inte finns några installerade skrivare : Om i = 0 ThenMsgBox " Inga installerade skrivare " End If Addera 3
Loop genom skrivaren objektet och lägg till skrivaren listan till en listruta kontroll . Detta ger användaren möjligheten att klicka på en skrivare . Den kod för att visa varje skrivare är nedan : Dim j som IntegerFor j = 0 till i - 1listbox1.AddItem Printers ( j ) DeviceNameLoop
4
Spara den nya koden och tryck på " F5 " tangenten . . Den " F5 " tangenten kör programmet i debugger och gör att du kan kontrollera den nya koden . När det körs , ser du varje skrivare visas i listrutan kontroll .
