Visual Basic - Leer Configuracion Regional

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Julio Cesar

Leer Configuracion Regional

Publicado por Julio Cesar (9 intervenciones) el 04/06/2005 01:31:04
Deseo saber como determinar el pais que se ha configurado en una PC en su configuracion regional, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Leer Configuracion Regional

Publicado por SetFocus (183 intervenciones) el 04/06/2005 03:16:06
Hola! Lo que podes usar es la API GetLocaleInfo, te paso un ejemplo de como utilizarla
En un form agrega el siguiente codigo (las constantes y declaraciones de API's) en la seccion general

'Nombre del lenguaje
Const LOCALE_SLANGUAGE As Long = &H2
'Nombre del Lenguaje(Ingles)
Const LOCALE_SENGLANGUAGE As Long = &H1001
'Nombre del Pais
Const LOCALE_SCOUNTRY As Long = &H6
'Nombre del Pais(Ingles)
Const LOCALE_SENGCOUNTRY As Long = &H1002
Const LOCALE_SNATIVECTRYNAME As Long = &H8

Private Declare Function GetThreadLocale Lib "kernel32" () As Long

Private Declare Function GetSystemDefaultLCID 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

Luego en el evento Click de un boton, este otro codigo:

Private Sub Command3_Click()

Dim LCID As Long
Dim sNombrePais As String
Dim X As Long

LCID = GetSystemDefaultLCID()

X = GetLocaleInfo(LCID, LOCALE_SCOUNTRY, sNombrePais, Len(sNombrePais))

If X Then
sNombrePais = Space$(X)

X = GetLocaleInfo(LCID, LOCALE_SCOUNTRY, sNombrePais, Len(sNombrePais))

If X Then
MsgBox "Nombre del Pais: " & Left$(sNombrePais, X - 1), vbInformation, "Configuración Regional"
End If
End If

End Sub

Fijate los valores que te devuelve si cambias las constantes, por ejemplo proba cambiar LOCALE_SCOUNTRY por LOCALE_SENGCOUNTRY y asi vas determinar cual es la mejor opcion para tu proyecto.
Bueno, espero te sirva.Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar