取得系统的语言ID

mccad

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

2. Declare Function GetSystemDefaultLangID Lib "kernel32" () As IntegerSub GetLang()
3. Dim id As Integer
4. Dim txt As String
5. id = GetSystemDefaultLangID
6. Select Case id
7.        Case 2052
8.                txt = "简体中文"
9.        Case 1033
10.                txt = "英文版本"
11.        Case 0 '此处ID不知道
12.                txt = "繁体中文"
13. End Select
14. Debug.Print "目前系统的语言版本为："; txt
15. End Sub

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

谁能提供繁体中文的ID号？我这里查不到。

mccad

如无意外，应该是1028吧。

zfbj

龙龙仔不是用的繁体版吗？