Get a List of 'all' available Fonts

   'This will get all of the available fonts on the computer and add 
        'them to the 'cmbFont' combobox control.
        Dim f As System.Drawing.Text.InstalledFontCollection = New _
            System.Drawing.Text.InstalledFontCollection
 
        Dim fFamily As FontFamily
 
        For Each fFamily In f.Families
 
            lst.Items.Add(fFamily.Name)
 
        Next

Current Page: : get_a_list_of__all_available_fonts vb_net : get_a_list_of__all_available_fonts Author: Jaruzel Modified: 02 July 2007 @ 17:46