VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 目前执行的是哪一国语言的 Windows 
发表评论(0)作者:, 平台:, 阅读:8938, 日期:2000-03-12
目前执行的是哪一国语言的 Windows 


只要呼叫 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 英文 ...