只要呼叫 GetSystemDefaultLCID API 函數即可, 細節如下:
1. API 的宣告:
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
註:如果以上的宣告放在「一般模組」底下, 應將 Private 保留字去掉。
2. 程式範例:
Dim LocaleID As Long
LocalID = GetSystemDefaultLCID
而以下是傳回值 LocalID 所代表的語言:
LocaleID | 語言 |
&H404 | 中文繁體(台灣) |
&H804 | 中文簡體(大陸) |
&H409 | 英文 |
... |