Language: VB.NET
Get a list of Installed Fonts
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
Tags:
Report Abuse
Subscribe
Discuss
What's new
What is it
New Snippet
Recent Snippets
My Snippets
Web Code
Search

