Så här får du en lista över skrivare i VB6

Även i digital informationstiden är det viktigt att behålla poster och skriva ut kopior av information på papper. Du eller din personal kan ständigt byta ut, reparera eller på annat sätt ändra skrivare eller skrivarinställningar. Microsoft VB6 möjliggör enkel interaktion med skrivare anslutna till systemet via "Printer" -objektet. Använd några rader med VB6-kod för att få en lista över skrivare som är tillgängliga för din användning.

1.

Förklara en ListBox-kontroll för att välja från skrivarna och en matris som innehåller skrivarobjekten:

Dim printerListBox som ListBox Dim currentPrinterList () som skrivare

2.

Förklara en ny privat subrutin för att hämta skrivarlistan. Denna subrutin accepterar som input en ListBox-kontroll som skapats någon annanstans i ditt VB-program och fyller den med listan över tillgängliga skrivare. Parametrar skickas genom referens snarare än värde, så att de kan ändras:

Private Function getPrinterList (ByRef myListBox som ListBox, ByRef myPrinterList som skrivare) 'Byt ut denna kommentar med koden från resten av stegen EndSub

3.

Skapa en ny heltalvariabel och lagra antalet upptäckta skrivare:

Dim printerCount as Integer printerCount = Printer.Count

4.

Kasta ett fel via en meddelandebox om inga skrivare detekteras i systemet:

Om printerCount = 0 Then MsgBox "Inga skrivare upptäcktes på systemet." Avsluta om

5.

Återställ längden på skrivaruppsättningen till lika med det aktuella antalet skrivare:

ReDim myPrinterList (0 till printerCount)

6.

Iterera genom varje detekterad skrivare, spara enhetens namn till ListBox och referensen till arrayen:

Dim count som integer För count = 0 till printerCount-1 myPrinterList (count) = Skrivare (räkna) myListBox.addItem Printers (count) .DeviceName Loop