Android Question how to get the device locale

[wbtcpip]

How i could get the current device language? I want to know if the device is in english, french, italian or what ... thanks

 

[Douglas Farias]

Sub Get_Language As String 
    Try
       Dim r As Reflector
       r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
       Return r.RunMethod("toString")
    Catch
        Return "en"
    End Try
End Sub

 

[Erel]

This code will never throw an error.
A bit simpler:

Sub Get_Language As String
   Dim jo As JavaObject
   Return jo.InitializeStatic("java.util.Locale").RunMethod("getDefault", Null)
End Sub