请问怎么用VB代码判断操作系统的语言种类？？如中文、英文...

Question

请问怎么用VB代码判断操作系统的语言种类？？如中文、英文...

Answer 1

用api函数GetSystemDefaultLCID：Option Explicit
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As LongPrivate Sub Command1_Click()
    Dim LocaleID As Long
    LocaleID = GetSystemDefaultLCID
    Select Case LocaleID
    Case &H404
        MsgBox "中文繁体"
    Case &H804
        MsgBox "中文简体"
    Case &H409
        MsgBox "english"
    Case Else
        MsgBox "其它返回值，可查找msdn"
    End Select
End Sub