Programación en castellano. Foros de debate. Visual Basic programacion gratis

Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.

Enviado por didi el día 6 de abril de 2008

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

Responder

Re: cambiar idioma de configuracion regional

Enviado por Pere el día 7 de abril de 2008

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

Responder

Re: Re: cambiar idioma de configuracion regional

Enviado por Pere el día 7 de abril de 2008

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

Responder

Re: Re: Re: cambiar idioma de configuracion regional

Enviado por Pere el día 7 de abril de 2008

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

Responder

Re: Re: Re: Re: cambiar idioma de configuracion regional

Enviado por Pere el día 8 de abril de 2008

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

Responder

Re: Re: Re: Re: Re: cambiar idioma de configuracion regional

Enviado por papo1288 el día 11 de junio de 2008

podrias especificar el ejemplo para cambiar el idioma xq no cambia para nada.

Responder