Menampilkan seluruh Font pada Windows di Visual Basic

Mengetahui font – font yang ada di Windows sebenarnya cukup mudah, secara manual anda bisa melihatnya di C:\Windows\Fonts. Anda juga bisa menggunakan program untuk menampilkan seluruh font yang terinstall di Windows, atau anda bisa membuat program itu sendiri.

.NET Framework sendiri telah menyediakan fasilitas tersebut seperti di CommonDialog atau yang akan dicontohkan nanti adalah dengan sedikit usaha sehingga secara fleksibel dapat ditampilkan di combobox, listbox atau di komponen lainnya.
Kita akan membuat prosedur dengan nama TampilFont() yang bertugas untuk menampilkan semua font di combobox.

Public Sub TampilFont()

        'Mendapatkan informasi mengenai semua font yang terinstall

        Dim semuaFont As New Drawing.Text.InstalledFontCollection

        'Seluruh keluarga Font(Font Families) dijadikan Array

        Dim keluargaFont() As FontFamily = semuaFont.Families()

        ' Menampilkan Font

        For Each Fontku As FontFamily In keluargaFont

            comboFont.AddItem(Fontku.Name)

        Next

End Sub

 Potongan kode di atas hanya menampilkan font – font yang terinstall di Windows dan biasanya terletak di C:\Windows\Fonts.