如何取得系统语言
是这样，要做一个VB的程序，通过操作系统的语言设置来选择需要显示的窗体，中文或英文，俄文，或繁体。怎么取得系统的这个参数呢。谢谢 ！
[解决办法]
- VB code
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
[解决办法]
- VB code
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新加坡936ZHI0x0404950CHT0x0827典立陶宛立陶宛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 唯一KNK0x0412949KOR0x0440KyrgyzKyrgyzstan1251 年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可以调用的
[解决办法]
[解决办法]
学习