Elencare i font (caratteri) disponibili nel sistema

[simcario]

Ciao a tutti,

come posso ricavare la lista dei caratteri di sistema per inserirli in una combobox?

grazie

[hkproj]

allora prima di tutto devi avere la lista dei fonts
dim Fonts as new System.Drawing.Text.InstalledFontCollection
dim Families as FontFamily = Fonts.Families
for each FF as FontFamily in families
'Qui metti il codice per la scrittura nella Combobox
console.write ff.name
next

Bye
Bye

[simcario]

ThankYou