Πώς να πάρει μια λίστα των εκτυπωτών σε VB6

Μέρος του προγραμματισμού μια desktop εφαρμογή δίνει στους χρήστες τη δυνατότητα να εκτυπώσετε . Πριν χρήστες να εκτυπώσετε ένα έγγραφο , μπορεί να θέλετε να απαριθμήσει όλες τις διαθέσιμες εκτυπωτές έχει ρυθμιστεί στο μηχάνημα . Αυτό δίνει στους χρήστες τη δυνατότητα να επιλέξουν πού να εκτυπώσετε το έγγραφο . Μπορείτε να αποκτήσετε μια λίστα με τις διαμορφωμένες εκτυπωτές που χρησιμοποιούν το Visual Basic ( VB ) " Printer " αντικείμενο . Το αντικείμενο εκτυπωτή διατηρεί μια λίστα των εκτυπωτών , ώστε να μπορείτε να βρόχο μέσω και να εμφανίσει κάθε μία . Οδηγίες
Η 1

Δημιουργήστε μια ακέραια μεταβλητή και να ορίσετε το συνολικό αριθμό των εκτυπωτών . Αυτό είναι απαραίτητο , έτσι ώστε να ξέρετε πόσες φορές στο βρόχο μέσα από το αντικείμενο εκτυπωτή . Ο κώδικας για να δημιουργήσετε μια μεταβλητή VB είναι οι παρακάτω: Dim i ως Integeri = Printer.Count 2

Ένδειξη " Δεν εκτυπωτές διαμορφωθεί « αν ο χρήστης δεν έχει εγκατεστημένες συσκευές . Αυτή είναι μια μέθοδος ελέγχου σφάλματος για να αποφευχθεί η εμφάνιση τίποτα στον χρήστη . Αν η μεταβλητή i που δημιουργήσατε στο βήμα 1 είναι μηδέν , τότε ξέρετε δεν υπάρχει κανένας εκτυπωτής έχει ρυθμιστεί . Ο κώδικας που ακολουθεί ανακοινώνει στο χρήστη ότι δεν υπάρχουν εγκατεστημένων εκτυπωτών : Αν i = 0 ThenMsgBox " Δεν εκτυπωτές που έχουν εγκατασταθεί " End If
εικόνων 3

Loop μέσα από το αντικείμενο εκτυπωτή και προσθέστε το στη λίστα εκτυπωτών σε ένα στοιχείο ελέγχου πλαισίου λίστας . Αυτό δίνει στο χρήστη τη δυνατότητα να κάνετε κλικ σε έναν εκτυπωτή . Ο κώδικας για την εμφάνιση του κάθε εκτυπωτή είναι οι παρακάτω: Dim j ως IntegerFor j = 0 για i - 1listbox1.AddItem Εκτυπωτές ( ι ) DeviceNameLoop
Η 4

Αποθηκεύστε το νέο κωδικό και πατήστε το πλήκτρο "F5 " . . Το πλήκτρο " F5 " εκτελεί την εφαρμογή του προγράμματος εντοπισμού σφαλμάτων και σας επιτρέπει να ελέγξετε το νέο κωδικό . Όταν εκτελείται , μπορείτε να δείτε κάθε εκτυπωτή που αναφέρονται στο στοιχείο ελέγχου πλαισίου λίστας .
Η
εικόνων