Da form a listbox con ciclo

Article View: free.it.visual-basic

Article #3281

Back to free.it.visual-basic Previous Next

#3281

From: Webby
Date: Fri, 26 Jul 2002 09:12

16 lines
1545 bytes

Ciao a tutti,
ho creato un ciclo for next che mi visualizza sul form la lista di tutti i
font utilizzati dalla mia stampante...
vorrei invece che la lista mi apparisse all'interno di una listbox.

Dim I As Integer
WindowState = 2
Print "Elenco dei font disponibili per la tua stampante:"
For I = 0 To Printer.FontCount - 1
Font.Name = Printer.Fonts(I)
Print "Questa scritta � visualizzata in "; Printer.Fonts(I)
Next I

End Sub

Grazie per l'aiuto

Technical Details

Message-ID: <ahr3kv$gce$2@lacerta.tiscalinet.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-04!supernews.com!209.251.2.10.MISMATCH!newshosting.com!news-xfer1.newshosting.com!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!draco.tiscalinet.it!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,73712a18e66ffa2a,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-07-26 02:14:47 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-04!supernews.com!209.251.2.10.MISMATCH!newshosting.com!news-xfer1.newshosting.com!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!draco.tiscalinet.it!not-for-mail
From: "Webby" <webby77@tiscali.it>
Newsgroups: free.it.visual-basic
Subject: Da form a listbox con ciclo
Date: Fri, 26 Jul 2002 11:12:45 +0200
Organization: Tiscali Spa
Lines: 20
Message-ID: <ahr3kv$gce$2@lacerta.tiscalinet.it>
NNTP-Posting-Host: ppp-62-11-3-233.dialup.tiscali.it
X-Trace: lacerta.tiscalinet.it 1027674591 16782 62.11.3.233 (26 Jul 2002 09:09:51 GMT)
X-Complaints-To: newsadmin@it.tiscali.com
NNTP-Posting-Date: 26 Jul 2002 09:09:51 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000