字体字符集的问题

Question

我用EnumFontFamilies 获取了所有字体的名字，还有他的字符集lfCharSet：ANSI_CHARSET = 0
DEFAULT_CHARSET = 1 
SYMBOL_CHARSET = 2 再请问下， 有没有办法知道他对应于系统的描述名字呢？ 
比如 ANSI_CHARSET 在中文系统中是：西文 
在英文系统中应该对应的是： Western如果不明我的意思，请看下图所示：http://www.cnsubmit.com/-1_177.gif谢谢。

Answer 1

思路：
把你得到的字体名填充到LOGFONT结构中，再用CreateFontIndirectA API建立字体，有了字体就好办了。
参考：
Dim uLF   As LOGFONT
Dim lChar As Long
Dim lLMargin As Long
Dim lRMargin As Long
Dim b()   As Byte With New_Font
        b = StrConv(.Name & vbNullChar, vbFromUnicode)
        ReDim Preserve b(0 To 31) As Byte
        CopyMemory uLF.lfFaceName(0), b(0), 32&        uLF.lfHeight = -MulDiv(.Size, GetDeviceCaps(UserControl.hDC, LOGPIXELSY), 72)
        uLF.lfItalic = .Italic
        uLF.lfWeight = IIf(.Bold, FW_BOLD, FW_NORMAL)
        uLF.lfUnderline = .Underline
        uLF.lfStrikeOut = .Strikethrough
        uLF.lfCharSet = .Charset
    End With
    Call fDestroyFont    m_hFont = CreateFontIndirectA(uLF)
    Call SendMessageLongA(m_hWndEB, WM_SETFONT, m_hFont, ByVal 1&)    Set m_oFont = New_Font

Answer 2

中文对话框的翻译不是很准，英文是Script,中文叫字符集(R)？？？

Answer 3

不管如何都要感谢你的参与。呵呵 我自己用EnumFontFamiliesEx 解决了。谢谢