投稿者 魔界の仮面弁士  (社会人) 投稿日時 2021/11/10 01:27:12
> Fontには、名前とファミリーとファイルがあると思いますが、
……?

仰っている意味が良く分かりませんが、Naming table のことでしょうか。
Name ID =  1 → Font Family name
Name ID =  2 → Font Subfamily name
Name ID =  4 → Full font name
Name ID = 16 → Typographic family name
Name ID = 17 → Typographic Subfamily name

https://docs.microsoft.com/en-us/typography/opentype/spec/name
https://docs.microsoft.com/en-us/typography/opentype/spec/namesmp


Gekka さんのコードだと、Names プロパティから得られる List(Of Name)  コレクションにて受け取れます。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.BeginUpdate()
        ListBox1.Items.Clear()

        Dim fontFile As String
        'fontFile = "C:\Windows\Fonts\ipamjm.ttf" 
        'fontFile = "C:\Windows\Fonts\arial.ttf" 
        fontFile = "C:\Windows\Fonts\meiryo.ttc"


        For Each ttf In Gekka.Text.Font.TrueType.TTC.Read(fontFile)
            ListBox1.Items.Add("-----------")
            For Each nm In ttf.Names
                ListBox1.Items.Add($"Id={nm.ID:d}({nm.ID:G})")
                ListBox1.Items.Add($"LanguageID={nm.LanguageID}")
                ListBox1.Items.Add($"Language={nm.Language}")
                ListBox1.Items.Add($"Text={nm.Text}")
                ListBox1.Items.Add("")
            Next
        Next
        ListBox1.EndUpdate()
    End Sub
End Class