IsFontInstalled – Test whether a font name and size is supported

IsFontInstalled – Test whether a font name and size is supported

' Test whether a font name and size is supported' Returns True if the font is supported, False otherwise'' If the font is supported but the size is not, it returns the actual font size ' in the second argument' If the font isn't supported, it return the system font name and size in the ' two arguments.'' Example:'   Dim fontName As String = "Times New Roman"'   Dim fontSize As Single = 48'   Debug.WriteLine(IsFontInstalled(fontName, fontSize))'   Debug.WriteLine(fontName & " - " & fontSize)''   fontName = "Not a valid font, of course!"'   Debug.WriteLine(IsFontInstalled(fontName, fontSize))'   Debug.WriteLine(fontName & " - " & fontSize)Function IsFontInstalled(ByRef fontName As String, Optional ByRef fontSize As _    Single = 8) As Boolean    Try        Dim fnt As New Font(fontName, fontSize)        IsFontInstalled = (fnt.FontFamily.Name = fontName)        fontName = fnt.FontFamily.Name        fontSize = fnt.Size    Catch e As Exception        Return False    End TryEnd Function

See also  5 Tips for Working With an Onsite Interpreter

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist