Breadcrumbs

[Danny]

heey people!

I was bored so I created this(it is very very very basic!):

screens1.png

Source:

Code: Select all

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

Application:

Nomesoft® Installed Fonts Viewer.rar

Love on!

[Dummy1912]

loove; thanks

keep it going :lol:

[comathi]

Awesome, this is very useful for people making text editors and such

Keep it up

-Comathi-

[Danny]

Awesome, this is very useful for people making text editors and such

Keep it up

-Comathi-

Thanks!

[CleverBoy]

Good, but its old, if you found my oldest notepad you will find this xD

Thanks anyway

[Axel]

Good, but its old, if you found my oldest notepad you will find this xD

Thanks anyway

What do you mean old ?

[CleverBoy]

old code. ( nothing special with this i mean ) lol