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

取得系统的语言ID

准备为“对象对齐均布”程序写个多语言版本，需要对系统的语言做判断。
使用：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 发表于 2004-11-21 13:14:00

如无意外，应该是1028吧。

zfbj 发表于 2004-11-21 17:59:00

龙龙仔不是用的繁体版吗？
页: [1]
查看完整版本: 取得系统的语言ID