Een deel van het programmeren van een desktop- applicatie geeft gebruikers de mogelijkheid om te printen . Voordat gebruikers een document afdrukt , kunt u een lijst van alle beschikbare printers geconfigureerd op de machine . Dit geeft gebruikers de mogelijkheid om te kiezen waar ze het document kunnen afdrukken . U kunt een lijst met geconfigureerde printers met behulp van de Visual Basic ( VB ) " Printer " object te verkrijgen . Het object printer bevat een lijst met printers , zodat u kunt lus door en geven elk een. Instructies 1 Maak een integer variabele en toewijzen van de totale telling van de printers . Dit is nodig , zodat u weet hoeveel keer een lus door het object Printer . De code om een VB variabele te maken is hieronder : Dim i als Integeri = Printer.Count Display 2 " Geen printers geconfigureerd ' wanneer de gebruiker geen heeft geïnstalleerde apparaten . Dit is een fout controlemethode vermijden weergave niets met de gebruiker . Als de i variabele gemaakt in stap 1 is nul , dan weet je er geen printers zijn geconfigureerd . De onderstaande code kondigt aan de gebruiker dat er geen printers geïnstalleerd : Als i = 0 ThenMsgBox " Geen printers geïnstalleerd " End If Loop 3 door het object printer en voeg de lijst printer een keuzelijst . Dit geeft de gebruiker de mogelijkheid om te klikken op een printer . De code voor elke printer weer te geven is hieronder : Dim j als IntegerFor j = 0 tot i - 1listbox1.AddItem Printers ( j ) DeviceNameLoop 4 Bewaar de nieuwe code in en druk op de toets " F5 " . . De toets " F5 " loopt de applicatie in de debugger en stelt u in staat om de nieuwe code te controleren . Wanneer het wordt uitgevoerd , zie je elk in de keuzelijst vermeld printer .
|