Spanish Leer idioma del dispositivo

[CSesma]

Hola,:sign0085:

Seguro que es algo muy sencillo pero llevo varias horas intentando averiguar cómo obtener el lenguaje usado en un dispositivo. Sabiendo esto presentaré mi aplicación en un idioma u otro.

Os agradecería mucho si podéis darme alguna pista.

Muchas gracias

 

[Fastpho]

17.19 Getting language and country from device You can get the current language and country from a device with the following code.
Sub Activity_Create(FirstTime As Boolean)
Log(GetDefaultLanguage)
End Sub
Sub GetDefaultLanguage
Dim r As Reflector
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
Return
r.RunMethod("getDisplayName")
End Sub
GetDefaultLanguage returns a string with the language and the country. Needs the Reflection library (available only for users who bought Basic4Android) ! Examples:  English (United States)  Deutsch (Österreich)  français (Suisse)

 

[CSesma]

Thank you

Thanks. I will try it.

 

[desof]

Thanks. I will try it.

Hola podrias pasarlo en limpio como quedo el code funcionando me vendria bien!!!

Gracias

 

[CSesma]

Copié el código tal cual y funciona, lo único es que devuelve una descripción larga del idioma, pero sirve igualmente. Tengo que investigar un poco más.

Sub GetDefaultLanguage

Dim r As Reflector
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
Return r.RunMethod("getDisplayName")

End Sub

 

[socialnetis]

Una forma fácil y precisa es como dicen usando la libreria Reflection.

Dim r As Reflector
Dim language As String
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
language = r.RunMethod("getLanguage")

Esto te devuelve las dos primeras iniciales del idioma ("en" - english, "es" spanish, "fr" - frances, etc)