Solved

List all font in list box (VB6)

Posted on 1998-11-16
2
908 Views
Last Modified: 2013-12-03
I want to list all font available on computer in a list box! Please post your sample code! Need this for VB6
0
Comment
Question by:Acid_Buzz
2 Comments
 
LVL 2

Accepted Solution

by:
schild earned 200 total points
ID: 1445158
This is the needed code

********************************
    Dim Index As Integer
   
    For Index = 0 To Screen.FontCount
        List1.AddItem Screen.Fonts(Index)
    Next

****************************

you can rtrive the printer fornt as well like this:
********************************
    Dim Index As Integer
   
    For Index = 0 To Printer.FontCount
        List1.AddItem Printer.Fonts(Index)
    Next

****************************

Good Luck
Schild
0
 

Author Comment

by:Acid_Buzz
ID: 1445159
Ok.. I don't know why i post this question.. anyway.. i give you the point.. heheh..
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now