none
如何取得字体的字符集 RRS feed

  • 问题

  •  

    我通过以下方法取得的值都为 1

     

        For Each ff As FontFamily In FontFamily.Families
          If ff.IsStyleAvailable(FontStyle.Regular) Then
            Me.cboName.Items.Add(ff.Name)
            Using objFont As Font = New Font(ff.Name, 9)
              Dim i As Integer = Convert.ToInt32(objFont.GdiCharSet)
              Debug.Print("Name= " & objFont.Name & ",GdiCharSet= " & i.ToString)
            End Using
          End If
        Next

     

     

    2008年12月5日 2:26

答案