Nomesoft® Installed Fonts Viewer + source code (basic)
Posted: Thu Sep 15, 2011 6:46 pm
heey people!
I was bored so I created this(it is very very very basic!): Source:
I was bored so I created this(it is very very very basic!): Source:
Code: Select all
Application:
Love on!Imports System.Drawing.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fonts As New InstalledFontCollection
For Each one As FontFamily In fonts.Families
ListBox1.Items.Add(one.Name)
Next
Label2.Text = "Amount fonts: " & ListBox1.Items.Count & " fonts are installed."
End Sub
End Class