vb6,获取系统区域设置语言标识

日志记录1:根据系统当前区域语言自动切换GUI语言,解决客户因系统区域设置不一致而打开软件出现乱码的异常.

Declare Function GetSystemDefaultLangID Lib "kernel32" Alias "GetSystemDefaultLangID" () As IntegeDeclare Function GetSystemDefaultLangID Lib "kernel32" Alias "GetSystemDefaultLangID" () As Intege

dim str as strng

str=GetSystemDefaultLangID

ID对应关系
  0x0404   Chinese   (Taiwan)    
  0x0804   Chinese   (PRC)    
  0x0c04   Chinese   (Hong   Kong   SAR,   PRC)    
  0x1004   Chinese   (Singapore)