Ejemplos usando el Api de windows para Visual basic

158 - Obtener datos de la configuración regional de windows

Volver al Listado Api - Anterior - Siguiente

Ejemplo que usa el Api GetLocaleInfo y las constantes que permiten obtener los datos de la configuración regional del sistema

Hay una función de ajuste llamada Obtener_Simbolo que tiene un parámetro de tipo Long donde se debe pasar la constante a la cual se quiere obtener el símbolo.

Por ejemplo para obtener el separador decimal de windows

Call Obtener_Simbolo(LOCALE_SDECIMAL)

Nota: En el ejemplo no incluí todas las constantes, solo algunas. Para acceder a las demás podés usar el ApiViewer ( Visor de apis, constantes y UDT ) en la opción buscar.

Vista del visor de apis constantes para obte3ner los valores que se pueden pasar para obtener los datos de configuración regional

Código fuente en un formulario:

Option Explicit 'Declaraciones del Api Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long Private 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 'Constante para obtener algunos de los simbolos de la configuración regional Private Const LOCALE_SCURRENCY = &H14 Private Const LOCALE_SCOUNTRY As Long = &H6 Private Const LOCALE_SDATE As Long = &H1D Private Const LOCALE_SDECIMAL As Long = &HE Private Const LOCALE_SLANGUAGE As Long = &H2 Private Const LOCALE_SLONGDATE As Long = &H20 Private Const LOCALE_SMONDECIMALSEP As Long = &H16 Private Const LOCALE_SMONGROUPING As Long = &H18 Private Const LOCALE_SMONTHOUSANDSEP As Long = &H17 Private Const LOCALE_SNATIVECTRYNAME As Long = &H8 Private Const LOCALE_SNATIVECURRNAME As Long = &H1008 Private Const LOCALE_SNATIVEDIGITS As Long = &H13 Private Const LOCALE_SNEGATIVESIGN As Long = &H51 Private Const LOCALE_SSHORTDATE As Long = &H1F Private Const LOCALE_STIME As Long = &H1E Private Const LOCALE_STIMEFORMAT As Long = &H1003 ' Función que Devuelve un String con el símbolo Private Function Obtener_Simbolo(Valor As Long) As String Dim Simbolo As String Dim r1 As Long Dim r2 As Long Dim p As Integer Dim Locale As Long Locale = GetUserDefaultLCID() r1 = GetLocaleInfo(Locale, Valor, vbNullString, 0) 'buffer Simbolo = String$(r1, 0) 'En esta llamada devuelve el símbolo en el Buffer r2 = GetLocaleInfo(Locale, Valor, Simbolo, r1) 'Localiza el espacio nulo de la cadena para eliminarla p = InStr(Simbolo, Chr$(0)) If p > 0 Then 'Elimina los nulos Obtener_Simbolo = Left$(Simbolo, p - 1) End If End Function Private Sub Form_Load() 'Obtener el separador decimal MsgBox Obtener_Simbolo(LOCALE_SDECIMAL), 64, " Separador decimal " 'Obtener el símbolo de Moneda MsgBox Obtener_Simbolo(LOCALE_SCURRENCY), 64, " Símbolo de moneda " 'Obtener el símbolo separador de Hora MsgBox Obtener_Simbolo(LOCALE_STIME), 64, " Separador de Hora " 'Obtener el país MsgBox Obtener_Simbolo(LOCALE_SCOUNTRY), 64, " El país " 'Obtener el idioma MsgBox Obtener_Simbolo(LOCALE_SLANGUAGE), 64, " El idioma " End Sub

Enlaces relacionados

Buscar en Recursos vb