|
2#
楼主 |
发表于 2012-2-24 16:01:25
|
只看该作者
API函数GetOEMCP:
找個一個資料了,如下,我測試OK啊。高興啊
Private Declare Function GetOEMCP Lib "kernel32 " () As Long
Private Sub Form_Load()
Debug.Print GetOEMCP
End Sub
语言代码,语言代码如下:
437 MS-DOS United States
708 Arabic (ASMO 708)
709 Arabic (ASMO 449+, BCON V4)
710 Arabic (Transparent Arabic)
720 Arabic (Transparent ASMO)
737 Greek (formerly 437G)
775 Baltic
850 MS-DOS Multilingual (Latin I)
852 MS-DOS Slavic (Latin II)
855 IBM Cyrillic (primarily Russian)
857 IBM Turkish
860 MS-DOS Portuguese
861 MS-DOS Icelandic
862 Hebrew
863 MS-DOS Canadian-French
864 Arabic
865 MS-DOS Nordic
866 MS-DOS Russian (former USSR)
869 IBM Modern Greek
874 Thai
932 Japan
936 Chinese (PRC, Singapore)
949 Korean
950 Chinese (Taiwan; Hong Kong SAR, PRC)
1361 Korean (Johab) |
|