Rubrik: Grafik und Font · Font & Text | VB-Versionen: VB6 | 22.03.10 |
Prüfen, ob Schriftart installiert Die Funktion überprüft, ob eine bestimmte Schriftart auf dem System vorhanden ist | ||
Autor: Dennis Hemken | Bewertung: | Views: 13.841 |
gadgets.hemken.org | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit dieser Funktion kann man überprüfen, ob eine ganz bestimmte Schriftart auf dem aktuellen System installiert ist.
' Prüft, ob die angegebene Schrift existiert Public Function SystemFontExists(sFontFileName As String) As Boolean Dim SystemFont As New StdFont SystemFont.Name = sFontFileName SystemFontExists = IIf(sFontFileName = SystemFont.Name, True, False) End Function
Aufruf der Funktion:
Dim strFontFileName As String strFontFileName = "Verdana" MsgBox SystemFontExists(strFontFileName)