CodePaste Logo
New Snippet New Snippet Recent Snippets Recent Snippets My Snippets My Snippets Web Code Search Snippets Search
Sign inor Register
Language: VB.NET

Get a list of Installed Fonts

199 Views
Copy Code Show/Hide Line Numbers
   1:  Dim fc As New System.Drawing.Text.InstalledFontCollection
   2:  Fonts = (From x In Enumerable.Range(0, fc.Families.Count) _
   3:           Select New With {.Id = x + 1, _
   4:                            .Name = fc.Families(x).Name, _
   5:                            .SortOrder = (x + 1) * 100}).ToList
   6:  fc = Nothing
by Thom Lamb
  June 30, 2010 @ 10:54am
Tags:

Add a comment


Report Abuse
brought to you by:
West Wind Techologies



If you find this site useful and use it frequently please consider making a donation to support this free service.
Donate