如何在vb程序中确定win 95的语种.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

可 以 有 很 多 办 法 来 确 定 Win 95的 语 种 ， 采 用 何 种 方 法 要 看 你 的 目 的 。 如 果 你 想 知 道 货 币 、 时 间 格 式 等 语 种 信 息 ， 可 以 访 问 WIN.INI的 [Intl]节 ， 其 中 iCountry表 示 国 家 代 码 ， sCountry表 示 国 家 名 称 。 如 果 你 想 获 得 当 前 Win 95的 语 言 版 本 ， 可 以 使 用 Win32 API的 GetOEMCP函 数 获 得 当 前 系 统 的 国 家 代 码 。 也 可 以 使 用 Windows API函 数 GetSystemDefaultLCID()。 
    LCID这 里 称 之 为 “ 地 方 ” ， 是 个 32位 的 位 的 值 ， 用 于 为 现 成 或 系 统 标 识 语 言 和 平 台 。 其 中 0～ 15位 指 出 语 言 。 0～ 15位 又 分 为 两 个 部 分 。 其 中 0～ 9标 识 主 语 言 。 10～ 15标 识 语 言 的 一 个 子 集 。 所 以 我 们 的 思 路 是 先 得 出 系 统 的 地 方 值 ， 然 后 取 出 第 10位 值 即 可 。 
    '语 言 常 数 
    Public Const LANG_CHINESE& = &H4 
    Public Const LANG_BULGARIAN& = &H2 
    Public Const LANG_CROATIAN& = &H1A 
    Public Const LANG_CZECH& = &H5 
    Public Const LANG_DANISH& = &H6 
    Public Const LANG_DUTCH& = &H13 
    Public Const LANG_ENGLISH& = &H9 
    Public Const LANG_FINNISH& = &HB 
    Public Const LANG_FRENCH& = &HC 
    Public Const LANG_GERMAN& = &H7 
    Public Const LANG_GREEK& = &H8 
    Public Const LANG_HUNGARIAN& = &HE 
    Public Const LANG_ICELANDIC& = &HF 
    Public Const LANG_ITALIAN& = &H10 
    Public Const LANG_JAPANESE& = &H11 
    Public Const LANG_KOREAN& = &H12 
    Public Const LANG_NEUTRAL& = &H0 
    Public Const LANG_NORWEGIAN& = &H14 
    Public Const LANG_POLISH& = &H15 
    Public Const LANG_PORTUGUESE& = &H16 
    Public Const LANG_ROMANIAN& = &H18 
    Public Const LANG_RUSSIAN& = &H19 
    Public Const LANG_SLOVAK& = &H1B 
    Public Const LANG_SLOVENIAN& = &H24 
    Public Const LANG_SPANISH& = &HA 
    Public Const LANG_SWEDISH& = &H1D 
    Public Const LANG_TURKISH& = &H1F 
    '函 数 声 明 
    Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long 
     
    '例 子 代 码 
     Dim lngLCID As Long 
     Dim lngLangID As Long 
     
     lngLCID = GetSystemDefaultLCID 
     '取 低 10位 
     lngLangID = (lngLCID And (Not &HFC00)) 
     
     Select Case lngLangID 
     Case LANG_CHINESE 
     MsgBox "您 使 用 的 是 中 文 Windows", vbInformation, "信 息 " 
     case LANG_ENGLISH 
     MsgBox "您 使 用 的 英 文 Windows",vbInformation,"信 息 " 
     End Select 
    但 要 注 意 ： 如 果 你 的 程 序 依 赖 于 某 个 特 定 的 DLL， 它 支 持 的 语 种 可 能 与 当 前 系 统 的 语 种 不 同 ， 因 为 某 些 软 件 (特 别 是 微 软 的 软 件 )可 能 会 安 装 一 些 版 本 比 较 新 的 DLL到 用 户 的 系 统 中 ， 通 常 这 些 DLL是 英 文 版 的 ， 而 用 户 使 用 的 系 统 可 能 是 中 文 版 的 ， 所 以 检 测 某 个 DLL的 语 言 版 本 可 以 使 用 WIndows API的 GetFileVersionInfo函 数 。 如 果 你 只 是 想 知 道 Win 95是 否 支 持 双 字 节 ， 可 以 使 用 WIndows API的 GetSystemMetrics(SM_DBCSENABLED)。 
<END>