系统语言判断

Demo · 发表于 2014-8-20 14:20

本帖最后由 Demo 于 2014-8-20 14:27 编辑

[Visual Basic] 纯文本查看 复制代码

Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer
Function GetSysLangID()
    
    Select Case GetSystemDefaultLangID

        Case &H804
            GetSysLangID = "中国"

        Case &H404
            GetSysLangID = "中国台湾"

        Case &HC04
            GetSysLangID = "中国香港"

        Case &H409
            GetSysLangID = "美国"

        Case &H407
            GetSysLangID = "德国"

        Case &H408
            GetSysLangID = "英国"

        Case &H411
            GetSysLangID = "日本"

        Case Else
            GetSysLangID = "其他语言版本"
    End Select

End Function

kyjzbiao · 发表于 2014-8-20 14:24

这个是VC？

88424450 · 发表于 2014-8-20 15:06

kyjzbiao 发表于 2014-8-20 14:24
这个是VC？

不是写了VB么

opelwang · 发表于 2015-4-21 08:47

这个可以的，学习了。

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 系统语言判断

点评