Skip to content

Instantly share code, notes, and snippets.

@Navisho

Navisho/new_gist_file.vbs

Created October 3, 2013 22:52
Show Gist options
  • Save Navisho/6818354 to your computer and use it in GitHub Desktop.
Save Navisho/6818354 to your computer and use it in GitHub Desktop.
Download ZIP
Check if font is installed
Raw
new_gist_file.vbs
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment