Skip to content

Instantly share code, notes, and snippets.

@Navisho

Navisho/new_gist_file.vbs

Created October 3, 2013 22:52
Download ZIP

Revisions

  1. Navisho created this gist Oct 3, 2013.
    4 changes: 4 additions & 0 deletions new_gist_file.vbs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,4 @@
    Public Function IsFontInstalled(ByVal FontName As String) As Boolean
    Dim TestFont As Font = New Font(FontName, 10)
    Return CBool(String.Compare(FontName, TestFont.Name, StringComparison.InvariantCultureIgnoreCase) = 0)
    End Function