Teil der Programmierung einer Desktop-Anwendung wird den Benutzern die Möglichkeit zu drucken . Bevor Benutzer ein Dokument drucken, können Sie alle verfügbaren Drucker auf dem System eingerichteten aufzulisten. Dies gibt dem Nutzer die Möglichkeit zu wählen , wo sie das Dokument gedruckt werden kann. Sie erhalten eine Liste der konfigurierten Drucker mit dem Visual Basic (VB) "Printer" -Objekt. Das Printer-Objekt enthält eine Liste von Druckern, so können Sie eine Schleife durch und zeigt jeden einzelnen. Anleitung
1
erstellen eine Integer-Variable , und weisen Sie die Gesamtzahl der Drucker. Dies ist notwendig, damit Sie wissen, wie viele Male eine Schleife durch das Printer-Objekt . Der Code , um eine VB Variable zu erstellen ist unten: Dim i als Integeri = Printer.Count
2
Display " Keine Drucker konfiguriert ", wenn der Benutzer hat keine Geräte installiert . Das ist ein Fehler Prüfmethode zu vermeiden Anzeige nichts an den Benutzer. Wenn die Variable i in Schritt 1 erstellte Null ist, dann wissen Sie, keine Drucker konfiguriert sind. Der folgende Code gibt dem Benutzer , dass es keine Drucker installiert : Wenn i = 0 ThenMsgBox " keine Drucker installiert " End If
3
Schleife durch das Printer-Objekt und fügen Sie den Drucker Liste zu einem Listenfeld-Steuerelement . Dies gibt dem Anwender die Möglichkeit, auf einen Drucker klicken . Der Code , um jeden Drucker angezeigt ist unten: Dim j als IntegerFor j = 0 bis i - 1listbox1.AddItem Drucker ( j) DeviceNameLoop
4
Speichern Sie den neuen Code ein und drücken Sie die Taste "F5" . . Die Taste "F5" läuft die Anwendung im Debugger und ermöglicht es Ihnen, den neuen Code zu überprüfen. Wenn es ausgeführt wird , sehen Sie jeden Drucker im Listenfeld aufgeführt.
