一个菜鸟的问题（哈哈！！）

Question

to get the default system language, use GetSystemDefaultLangID and VerLanguageName APIPrivate Declare Function GetSystemDefaultLangID Lib _
    "kernel32" () As IntegerPrivate Declare Function VerLanguageName Lib "kernel32" _
    Alias "VerLanguageNameA" (ByVal wLang As Long, _
    ByVal szLang As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()    Dim lLangID As Long
    Dim sBuffer As String
    Dim lBuffSize As Long
    Dim lRet As Long    lLangID = GetSystemDefaultLangID    lBuffSize = 50
    sBuffer = String$(lBuffSize, vbNullChar)    lRet = VerLanguageName(lLangID, sBuffer, lBuffSize)    If lRet > 0 Then
        MsgBox Left$(sBuffer, lRet)
    End If
End Subto get other languages, read
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&selm=u2Zknt2wAHA.236%40tkmsftngp05

Answer 1

是不是对所有的系统用这个api函数都可以呀，在我的机子上是可以呀，谢谢你的关照呀，