Rubrik: Grafik und Font · Font & Text | VB-Versionen: VB2008 | 10.08.10 |
Alle installierten Schriften ermitteln Eine elegante Möglichkeit, wie man mittels LINQ alle im System installierten Schriften ermitteln und in sortierter Reihenfolge in einer ListBox zur Auswahl anzeigen lassen kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 12.593 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgendem Code lassen sich alle im System installierten Schriften ermitteln und zur Auswahl in einer ListBox anzeigen.
Der nachfolgende "Zweizeiler" verwendet hierfür ein einfaches LINQ-Kommando:
' alle installierten Schriften ermitteln und in ' sortierter Reihenfolge in einer ListBox zur Auswahl anzeigen ListBox1.DisplayMember = "Name" ListBox1.DataSource = ( _ From FontFamily In Drawing.FontFamily.Families _ Order By FontFamily.Name Ascending).ToList