如何取得操作系统的语言id?急，在线等候

[qianhao]

如题，急求答案！

[lxcc]

Response.Write(Request.ServerVariables["HTTP_ACCEPT_LANGUAGE"].ToString());

[孟子E章]

System.Environment.OSVersion.ToString()
System.OperatingSystem

[Montaque]

System.Threading.Thread.CurrentThread.CurrentCulture.EnglishName

[qianhao]

我要的结果应该是如下所示的Identifier:
Identifier Language
0x0000 Language Neutral
0x007f The language for the invariant locale (LOCALE_INVARIANT). See MAKELCID.
0x0400 Process or User Default Language

而不是一串文字说什么chinese Language什么的
net_lover(孟子E章) ；
System.OperatingSystem 是什么意思？

[xDotNet]

操作系统语言ID？ 我想知道是什么来的？

[qianhao]

LANGID
Language identifier

[qianhao]

Language Identifiers
A language identifier is a standard international numeric abbreviation for the language in a country or geographical region. Each language has a unique language identifier (LANGID), a 16-bit value that consists of a primary language identifier and a sublanguage identifier. The LANGID is constructed using the MAKELANGID macro. The following illustration shows the format of the bits in a LANGID.

[qianhao]

谁来帮帮我呀！！

[dofly]

System.Threading.Thread.CurrentThread.CurrentCulture.EnglishName
'这一段返回的是区域设置的国别
System.Environment.OSVersion.ToString()
'这一段返回的是操作系统版本呀

[swiminfish_9999]

帮你 up 有空就做做好事，逞点分 ，呵呵

[3tzjq]

通过 API 函数GetSystemDefaultLCID 判断系统的语言
Option Explicit
Dim lang As String
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "当前系统为：中文繁体", , "语言"
Case &H804
MsgBox "当前系统为：中文简体", , "语言"
lang = "1"
Case &H409
MsgBox "当前系统为：英文", , "语言"
lang = "2"
End Select
End Sub