Prüfen, ob Schriftart installiert Die Funktion überprüft, ob eine bestimmte Schriftart auf dem System vorhanden ist.
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  13.876
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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