[VB.NET] Ottenere il nome del font da un file TTF

[Veronica80]

Ciao a tutti!
Ho necessità di ottenere il nome di vari font partendo dal loro file .TTF.
Ho trovato un metodo che mi sembrava valido ma sto incontrando qualche intoppo.


Il metodo è il seguente:

 Dim p As New Text.PrivateFontCollection
        p.AddFontFile("D:\Fonts\13588.TTF")
        Dim f As New Font(p.Families(0), 12)
        MsgBox(f.name)

Diciamo che in linea di massima funziona.
Dico in linea di massima perchè mi capitano alcuni file dello stesso font (per esempio MICRA) dove cambia lo stile (grassetto, italico, ecc) ma il nome che ottengo è sempre lo stesso (MICRA).


Mi spiego meglio:


ho 2 file:

• File01.ttf
  
  • Nome Font: MICRA
  
  
• File02.ttf
  
  • Nome Font: MICRA BOLD

Però quando li leggo da VB.NET ottengo sempre MICRA e quindi mi sovrascrive il precedente...


Una cosa che ho notato con il visualizzatore font di win10 è che il nome del titolo del form è corretto, ma quello nella descrizione del font è sempre MICRA. (vedi screenshot allegato)




come posso fare a leggere MICRA BOLD invece che solo MICRA????


Grazie a tutti!

[optime]

vedi se trovi qualcosa di utile
https://stackoverflow.com/questions/...tf-or-ttf-file
https://superuser.com/questions/1432...m-command-line

[Veronica80]

Grazie 1000 Optime!
Guardando uno dei tuoi link ho capito che quello che dovevo recuperare era il titolo (title) cosa che con l'oggetto font non si pu� fare.
Cercando un po' sulla base di questo dato ho trovato un modo di recuperare il titolo usando le librerie Shell.
Dopo aver installato il relativo pacchetto nuGet ho usato questo codice:

Imports Microsoft.WindowsAPICodePack.Shell

 Dim fiInfo As New IO.FileInfo("D:\Fonts\13588.ttf")        Dim sFile As ShellFile = ShellFile.FromFilePath(fiInfo.FullName)
        Dim title As String = sFile.Properties.System.Title.Value
        MsgBox(title)

ed ora mi recupera il nome completo (titolo) del font!!

Grazieeee

[optime]

optime!