cambiar idioma de configuracion regional
Como puedo cambiar mi idioma de configuracion regional a través de visual basic. necesito cambiar. HE visto que existe forma de cambiar el formato de fecha, coma decimal, etc... pero yo quiero cambiar el idioma y que con esto se cambien todas las especificaciones por consiguiente, es decir el formato de la fecha...etc... Por favor ayudenme necesito esto urgente
En un módulo declaro:
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
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SYSTEM_DEFAULT = &H800
Const LOCALE_ICURRDIGITS = &H19
Const LOCALE_SSHORTDATE = &H1F
Const LOCALE_SCURRENCY = &H14
Const LOCALE_SDATE = &H1D
Const LOCALE_SDECIMAL = &HE
Const LOCALE_STHOUSAND = &HF
Public Sub AjustarConfgReg()
PonerConfgRegional LOCALE_ICURRDIGITS, "3"
PonerConfgRegional LOCALE_SSHORTDATE, "dd/MM/yyyy"
PonerConfgRegional LOCALE_SCURRENCY, "" \' "pts"
PonerConfgRegional LOCALE_SDATE, "/"
PonerConfgRegional LOCALE_SDECIMAL, ","
PonerConfgRegional LOCALE_STHOUSAND, "."
End Sub
En el formulario que te interesa, llamo a la función:
AjustarConfgReg
Espero que te sirva
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
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SYSTEM_DEFAULT = &H800
Const LOCALE_ICURRDIGITS = &H19
Const LOCALE_SSHORTDATE = &H1F
Const LOCALE_SCURRENCY = &H14
Const LOCALE_SDATE = &H1D
Const LOCALE_SDECIMAL = &HE
Const LOCALE_STHOUSAND = &HF
Public Sub AjustarConfgReg()
PonerConfgRegional LOCALE_ICURRDIGITS, "3"
PonerConfgRegional LOCALE_SSHORTDATE, "dd/MM/yyyy"
PonerConfgRegional LOCALE_SCURRENCY, "" \' "pts"
PonerConfgRegional LOCALE_SDATE, "/"
PonerConfgRegional LOCALE_SDECIMAL, ","
PonerConfgRegional LOCALE_STHOUSAND, "."
End Sub
En el formulario que te interesa, llamo a la función:
AjustarConfgReg
Espero que te sirva
Disculpa, para el idioma faltaba:
Const LOCALE_SENGCOUNTRY = &H1002 ' nombre del país en inglés
Const LOCALE_SENGLANGUAGE = &H1001 ' nombre del idioma en inglés
Otra cosa:
En la función AjustarConfgReg() antes y después hay la barra invertida. No sé por qué al enviar el mensaje, las ha añadido.
Un saludo
Const LOCALE_SENGCOUNTRY = &H1002 ' nombre del país en inglés
Const LOCALE_SENGLANGUAGE = &H1001 ' nombre del idioma en inglés
Otra cosa:
En la función AjustarConfgReg() antes y después hay la barra invertida. No sé por qué al enviar el mensaje, las ha añadido.
Un saludo
Y, por último:
Public Sub PonerConfgRegional(lngTipo As Long, strNuevoValor As String)
Dim intRetorno As Integer
intRetorno = SetLocaleInfo(LOCALE_USER_DEFAULT, lngTipo, strNuevoValor)
End Sub
Public Sub PonerConfgRegional(lngTipo As Long, strNuevoValor As String)
Dim intRetorno As Integer
intRetorno = SetLocaleInfo(LOCALE_USER_DEFAULT, lngTipo, strNuevoValor)
End Sub
Faltaba declarar esta función.
Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
P.D. Es la edad. Me hago mayor
Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
P.D. Es la edad. Me hago mayor