Sub ShowPicker
Dim AccountPicker As JavaObject
AccountPicker.InitializeStatic("com/google/android/gms/common/AccountPicker".Replace("/", "."))
Dim i As Intent = AccountPicker.RunMethod("newChooseAccountIntent", Array(Null, Null, Array As String("com.google"), _
False, Null, Null, Null, Null))
StartActivityForResult(i)
End Sub
Sub ion_Event (MethodName As String, Args() As Object) As Object
If Args(0) = -1 Then 'resultCode = RESULT_OK
Dim data As Intent = Args(1)
Dim StaticAccountManager As JavaObject
StaticAccountManager.InitializeStatic("android.accounts.AccountManager")
Log(data.ExtrasToString)
Dim Name As String = data.GetExtra(StaticAccountManager.GetField("KEY_ACCOUNT_NAME"))
Log(Name)
End If
Return Null
End Sub
Sub StartActivityForResult(i As Intent)
Dim jo As JavaObject = GetBA
ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
jo.RunMethod("startActivityForResult", Array As Object(ion, i))
End Sub
Sub GetBA As Object
Dim jo As JavaObject
Dim cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
Return jo.GetField("processBA")
End Sub