取得系统的语言ID

mccad · 发表于 2004-11-21 12:12:00

准备为“对象对齐均布”程序写个多语言版本，需要对系统的语言做判断。
使用：


Declare Function GetSystemDefaultLangID Lib "kernel32" () As IntegerSub GetLang()
Dim id As Integer
Dim txt As String
id = GetSystemDefaultLangID
Select Case id
       Case 2052
               txt = "简体中文"
       Case 1033
               txt = "英文版本"
       Case 0 '此处ID不知道
               txt = "繁体中文"
End Select
Debug.Print "目前系统的语言版本为："; txt
End Sub