如何分辨字体的语言.txt

VB技巧问答10000例 VB技巧问答10000例

可 通 过 GetTextCharset API来 实 现 。 以 下 是 该 函 数 的 声 明 ： 
    Public Declare Function GetTextCharset Lib "gdi32" (ByVal hdc As Long) As Long 
    参 数 hdc为 设 备 场 景 句 柄 。 
    返 回 值 ： DEFAULT_CHARSET代 表 缺 省 字 符 集 ， — 1表 示 出 错 。 
    注 ： 
    MSDN中 称 预 定 义 了 
    ANSI_CHARSET 0 
    BALTIC_CHARSET 186 
    CHINESEBIG5_CHARSET 136 
    DEFAULT_CHARSET 1 
    EASTEUROPE_CHARSET 238 
    GB2312_CHARSET 
    GREEK_CHARSET 161 
    HANGUL_CHARSET 129 
    MAC_CHARSET 77 
    OEM_CHARSET 255 
    RUSSIAN_CHARSET 204 
    SHIFTJIS_CHARSET 128 
    SYMBOL_CHARSET 2 
    TURKISH_CHARSET 162 
    JOHAB_CHARSET 130 
    HEBREW_CHARSET 177 
    ARABIC_CHARSET 178 
    THAI_CHARSET 222 
    等 常 量 ， 但 在 Api Viewer中 ， 我 却 没 有 发 现 GB2312_CHARSET的 定 义 ， 测 试 中 当 设 置 为 宋 体 (gb2312)时 ， 时 ， 返 回 为 134， 可 能 就 是 GB2312_CHARSET的 值 了 。 
<END>