怎么判断操作系统是中文或英文.....

Question

win2000,win98,winme,winxp都要!

Answer 1

Option ExplicitPrivate 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