使用api GetLocaleInfo GetLocaleInfo The GetLocaleInfo function retrieves information about a locale. int GetLocaleInfo( LCID Locale, // locale identifier LCTYPE LCType, // type of information LPTSTR lpLCData, // address of buffer for information int cchData // size of buffer );
Parameters Locale Specifies the locale to retrieve information for. This parameter can be a locale identifier created by the MAKELCID macro, or one of the following predefined values: LOCALE_SYSTEM_DEFAULT Default system locale. LOCALE_USER_DEFAULT Default user locale. LOCALE_NEUTRAL Default language-neutral locale. LCType Specifies one of the LCTYPE constants to indicate the type of information to be retrieved. All LCTYPE values are mutually exclusive, with the exception of LOCALE_NOUSEROVERRIDE. An application may use the binary-OR operator to combine LOCALE_NOUSEROVERRIDE with any other LCTYPE value. If passed such an LCType value, the function bypasses user overrides, and returns the system default value for the requested LCID. lpLCData Points to a buffer to receive the requested data. cchData Specifies the size, in bytes (ANSI version) or characters (Unicode version), of the lpLCData buffer. If cchData is zero, the function returns the number of bytes or characters required to hold the information, and the buffer pointed to by lpLCData is not used.
在module中定义API Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long Public Const LOCALE_SCOUNTRY = &H6 在form中画一个commandbutton写下如下代码： Private Sub Command1_Click() Dim str As String str = String(100, " ") GetLocaleInfo local_system_default, LOCALE_SCOUNTRY, str, 100 MsgBox str End Sub
GetLocaleInfo
The GetLocaleInfo function retrieves information about a locale. int GetLocaleInfo(
LCID Locale, // locale identifier
LCTYPE LCType, // type of information
LPTSTR lpLCData, // address of buffer for information
int cchData // size of buffer
);
Parameters
Locale
Specifies the locale to retrieve information for. This parameter can be a locale identifier created by the MAKELCID macro, or one of the following predefined values: LOCALE_SYSTEM_DEFAULT Default system locale.
LOCALE_USER_DEFAULT Default user locale.
LOCALE_NEUTRAL Default language-neutral locale.
LCType
Specifies one of the LCTYPE constants to indicate the type of information to be retrieved.
All LCTYPE values are mutually exclusive, with the exception of LOCALE_NOUSEROVERRIDE. An application may use the binary-OR operator to combine LOCALE_NOUSEROVERRIDE with any other LCTYPE value. If passed such an LCType value, the function bypasses user overrides, and returns the system default value for the requested LCID. lpLCData
Points to a buffer to receive the requested data.
cchData
Specifies the size, in bytes (ANSI version) or characters (Unicode version), of the lpLCData buffer. If cchData is zero, the function returns the number of bytes or characters required to hold the information, and the buffer pointed to by lpLCData is not used.
Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Public Const LOCALE_SCOUNTRY = &H6
在form中画一个commandbutton写下如下代码：
Private Sub Command1_Click()
Dim str As String
str = String(100, " ")
GetLocaleInfo local_system_default, LOCALE_SCOUNTRY, str, 100
MsgBox str
End Sub