How to List all Fonts on a system by VB usable name?

[jack]

Hello,

I need to be able to list all the fonts on a system in a way I can then use
the names to format my vb app. text.

Thanks for any help,

Jack

[jack]

Thanks!!!
"Ken Tucker" <vb***@bellsouth.net> wrote in message
news:ej**************@tk2msftngp13.phx.gbl...

Hi,

Try this.
Dim ff As FontFamily

For Each ff In System.Drawing.FontFamily.Families

ListBox1.Items.Add(ff.Name)

Next

Ken

---------------------

"jack" <ja**@mrolinux.com> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

Hello,

I need to be able to list all the fonts on a system in a way I can then

use

the names to format my vb app. text.

Thanks for any help,

Jack

[Herfried K. Wagner [MVP]]

Hello,

"jack" <ja**@mrolinux.com> schrieb:

I need to be able to list all the fonts on a system in a way I can then use the names to format my vb app. text.

\\\
Imports System.Drawing
..
..
..
Dim fntfam As FontFamily
For Each fntfam In FontFamily.Families
Console.WriteLine(fntfam.Name)
Next fntfam
///

HTH,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet