Rubrik: Grafik und Font · Font & Text | VB-Versionen: VB2005, VB2008 | 09.03.10 |
Prüfen, ob Schriftart installiert Die Funktion überprüft, ob eine bestimmte Schriftart auf dem System vorhanden ist. | ||
Autor: Dietrich Herrmann | Bewertung: | Views: 13.309 |
ohne Homepage | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Diese kleine Funktion kann eventuell ganz nützlich sein.
Mit ihr kann man überprüfen, ob eine ganz bestimmte Schriftart auf dem aktuellen System installiert ist.
''' <summary> ''' Existiert ein bestimmter Font im System ''' </summary> ''' <param name="FontfileName">der zu überprüfende Font (Name)</param> Public Function SystemFontExists(ByVal FontfileName As String) As Boolean For i As Integer = 0 To FontFamily.Families.Length - 1 If UCase(FontFamily.Families(i).Name) = UCase(FontfileName) Then Return True Exit For End If Next Return False End Function