Solved

List all font in list box (VB6)

Posted on 1998-11-16
2
920 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

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

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

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
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…

810 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