如何取得系统语言
是这样,要做一个VB的程序,通过操作系统的语言设置来选择需要显示的窗体,中文或英文,俄文,或繁体。怎么取得系统的这个参数呢。谢谢 !
[解决办法]
Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As IntegerPrivate Sub Form_Load()S = GetSystemDefaultLangIDSelect Case SCase Val(&H804)MsgBox "简体中文"Case Val(&H404)MsgBox " 繁体中文"End SelectEnd Sub
[解决办法]
Option ExplicitPrivate Declare Function GetThreadLocale Lib "KERNEL32" () As LongPrivate Sub Form_Load() Dim lLCID As Long lLCID = GetThreadLocale() Select Case lLCID Case &H404 Me.Caption = "正體中文" Case &H804 Me.Caption = "简体中文" Case &H409 Me.Caption = "English" Case &H419 Me.Caption = "Russian" Case Else Me.Caption = Hex(lLCID) End SelectEnd Sub
[解决办法]
其它语言自己仿照上例和下表解决:
請自行轉換為十六進制
以利與下表對照
地點標識符 語言 子語言- 地點 缺省代碼表 語言代碼0x0436南非荷蘭語南非1252 年AFK0x041c阿爾巴尼亞語阿爾巴尼亞1250 年SQI0x1401阿拉伯阿爾及利亞1256 年ARG0x3c01阿拉伯巴林1256 年ARH0x0c01阿拉伯埃及1256 年ARE0x0801阿拉伯伊拉克1256 年ARI0x2c01阿拉伯喬丹1256 年ARJ0x3401阿拉伯科威特1256 年ARK0x3001阿拉伯黎巴嫩1256 年ARB0x1001阿拉伯利比亞1256 年ARL0x1801阿拉伯摩洛哥1256 年ARM0x2001阿拉伯阿曼1256 年ARO0x4001阿拉伯卡塔爾1256 年ARQ0x0401阿拉伯沙烏地阿拉伯1256 年ARA0x2801阿拉伯敘利亞1256 年ARS0x1c01阿拉伯突尼斯1256 年ART0x3801阿拉伯阿拉伯聯合酋長國。1256 年ARU0x2401阿拉伯也門1256 年ARY0x042b亞美尼亞語亞美尼亞Unicode 唯一HYE0x044dAssamese印度Unicode 唯一ASM0x082cAzeri阿塞拜疆(斯拉夫語字母)1251 年AZE0x042cAzeri阿塞拜疆(拉丁語)1254 年AZE0x042d巴斯克□西班牙1252 年EUQ0x0423BelarusianBelarus1251 年BEL0x0445孟加拉語印度BEN0x0402保加利亞語保加利亞1251 年BGR0x0403Catalan西班牙1252 年CAT0x0c04漢語香港SAR950ZHH0x1404漢語澳門SAR950ZHM0x0804漢語中華人民共和國936CHS0x1004漢語新加坡936ZHI0x0404漢語臺灣950CHT0x0827經典立陶宛語立陶宛1257 年LTC0x041a克羅地亞人克羅地亞1250 年HRV0x0405捷克語捷克1250 年CSY0x0406丹麥語丹麥1252 年DAN0x0465Divehi馬爾地夫Unicode 唯一DIV0x0813荷蘭語比利時1252 年NLB0x0413荷蘭語荷蘭1252 年NLD0x0c09英語澳洲1252 年ENA0x2809英語伯利茲1252 年ENL0x1009英語加拿大1252 年ENC0x2409英語加勒比1252 年ENB0x1809英語愛爾蘭1252 年ENI0x2009英語牙買加1252 年ENJ0x1409英語紐西蘭1252 年ENZ0x3409英語菲律賓1252 年ENP0x1c09英語南非1252 年ENS0x2c09英語特立尼達1252 年ENT0x0809英語英國1252 年ENG0x0409英語美國1252 年USA0x3009英語津巴布韋1252 年ENW0x0425愛沙尼亞愛沙尼亞1257 年ETI0x0438法羅語法羅島1252 年FOS0x0429Farsi伊朗1256 年FAR0x040b芬蘭語芬蘭1252 年FIN0x080c法語比利時1252 年FRB0x0c0c法語加拿大1252 年FRC0x040c法語法國1252 年FRA0x140c法語盧森堡1252 年FRL0x180c法語摩納哥1252 年FRM0x100c法語瑞士1252 年FRS0x042f馬其頓語(FYROM)馬其頓語(FYROM)1251 年MKI0x0456加利西亞人西班牙1252 年GLC0x0437英王喬治一世至三世時期佐治亞Unicode 唯一KAT0x0c07德語奧地利1252 年DEA0x0407德語德國1252 年DEU0x1407德語列支敦斯登1252 年DEC0x1007德語盧森堡1252 年DEL0x0807德語瑞士1252 年DES0x0408希臘語希臘1253 年ELL0x0447Gujarati印度 Unicode 唯一GUJ0x040d希伯來語以色列1255 年HEB0x0439Hindi印度Unicode 唯一HIN0x040e匈牙利語匈牙利1250 年HUN0x040f冰島語冰島1252 年ISL0x0421印度尼西亞語印度尼西亞(Bahasa)1252 年IND0x0410義大利語義大利1252 年ITA0x0810義大利語瑞士1252 年ITS0x0411日語日本932JPN0x044bKannada印度(Kannada 劇本)Unicode 唯一KAN0x043f哈薩克人Kazakstan1251 年KKZ0x0457Konkani印度Unicode 唯一KNK0x0412韓國語韓國949KOR0x0440KyrgyzKyrgyzstan1251 年KYR0x0426拉脫維亞語拉脫維亞1257 年LVI0x0427立陶宛語立陶宛1257 年LTH0x083eMalay汶□Darussalam1252 年MSB0x043.eMalay馬來西亞1252 年MSL0x044cMalayalam印度Unicode 唯一MAL0x044eMarathi印度Unicode 唯一MAR0x0450蒙古語(斯拉夫語字母)蒙古1251 年MON0x0414挪威語挪威(Bokm8al)1252 年NOR0x0814挪威語挪威(Nynorsk)1252 年NON0x0448Oriya印度ORI0x0415波蘭語波蘭1250 年PLK0x0416葡萄牙語巴西1252 年PTB0x0816葡萄牙語葡萄牙1252 年PTG0x0446Punjabi印度(Gurmukhi 劇本)Unicode 唯一PAN0x0418羅馬尼亞語羅馬尼亞1250 年ROM0x0419俄語俄國1251 年RUS0x044fSanskrit印度Unicode 唯一SAN0x0c1aSerbian塞爾維亞(斯拉夫語字母)1251 年SRB0x081aSerbian塞爾維亞(拉丁語)1250 年SRL0x041b斯洛伐克語斯洛伐克1250 年SKY0x0424斯洛文尼亞語斯洛文尼亞1250 年SLV0x2c0a西班牙語阿根廷1252 年ESS0x400a西班牙語玻利維亞1252 年ESB0x340a西班牙語智利1252 年ESL0x240a西班牙語哥倫比亞1252 年ESO0x140a西班牙語格斯達里加1252 年ESC0x1c0a西班牙語多米尼加共和國1252 年ESD0x300a西班牙語厄瓜多爾1252 年ESF0x440a西班牙語薩爾瓦多1252 年ESE0x100a西班牙語危地馬拉1252 年ESG0x480a西班牙語洪都拉斯1252 年ESH0x080a西班牙語墨西哥1252 年ESM0x4c0a西班牙語尼加拉瓜1252 年ESI0x180a西班牙語巴拿馬1252 年ESA0x3c0a西班牙語巴拉圭1252 年ESZ0x280a西班牙語秘魯1252 年ESR0x500a西班牙語波多里哥1252 年ESU0x040a西班牙語西班牙(傳統排序)1252 年ESP0x0c0a西班牙語西班牙(國際排序)1252 年ESN0x380a西班牙語烏拉圭1252 年ESY0x200a西班牙語委內瑞拉1252 年ESV0x0441斯瓦希裡語肯尼亞1252 年SWK0x081d瑞典語芬蘭1252 年SVF0x041d瑞典語瑞典1252 年SVE0x045aSyriac敘利亞Unicode 唯一SYR0x0449泰米爾語印度Unicode 唯一TAM0x0444TatarTatarstan1251 年TTT0x044a泰盧固語印度(泰盧固人劇本)Unicode 唯一TEL0x041e泰國泰國874THA0x041f土耳其土耳其1254 年TRK0x0422烏克蘭烏克蘭1251 年UKR0x0420Urdu巴基斯坦1256 年URP0x0820Urdu印度1256 年URI0x0843烏茲別克語烏茲別克斯坦(斯拉夫語字母)1251 年UZB0x0443烏茲別克語烏茲別克斯坦(拉丁語)1254 年UZB0x042a越南語越南1258 年VIT
[解决办法]
有系统API可以调用的
[解决办法]