投稿者 snowmansnow  (社会人) 投稿日時 2021/11/12 21:48:37

 こんばんは魔界の仮面弁士様、るきお様、皆様
  教えて頂いたGekka様のNamesを使って、
   自分の環境のTTC、TTF調べてみました。(371個)
   言語は、米国語、ドイツ語、中国語(繁体字)、韓国語をインストールしています。
   
   ただ一つだけエラーになりました。
   C:\Windows\Fonts\mingliub.ttc
    MingLiU_HKSCS-ExtB 標準 繁体字  
    MingLiU-ExtB 標準 繁体字
    PMingLiU-ExtB 標準 繁体字


 Gekka様の
    Public Sub Read(ByVal stream As System.IO.Stream)
        stream.Seek(0, System.IO.SeekOrigin.Begin)
        ttcTag = New Byte(4 - 1) {}
        If stream.Read(ttcTag, 0, 4) <> 4 Then
            Throw New System.IO.InvalidDataException()
        End If

        If Not (IsTTC) Then
            offsetTables = New Offset32(1 - 1) {}
            offsetTables(0) = New Offset32()
        Else
            majorVersion = stream.ReadUInt16BE()
            minorVersion = stream.ReadUInt16BE()
            numFonts = stream.ReadUInt32BE()
            offsetTables = New Offset32(numFonts - 1) {}
            With Nothing
                Dim i As Integer = 0
                For _F_2 As Integer = 0 To 1 Step 0
                    If Not (i < numFonts) Then
                        Exit For
                    End If

                    offsetTables(i) = New Offset32()
                    offsetTables(i).offset = stream.ReadUInt32BE()
                    i += 1
                Next
            End With
            If majorVersion >= 2 Then
                dsigTag = stream.ReadUInt32BE()
                dsigLength = stream.ReadUInt32BE()
                dsigOffset = stream.ReadUInt32BE()
                If dsigTag <> &H44534947 Then
       ★             Throw New System.IO.InvalidDataException()
                End If
            End If
        End If
    End Sub


★でエラーになります。
 漢字圏でも中国語はダメなのでしょうか?
 何か御存じでしたら、教えて頂きたいです。