Sub btnContacts_Click
' TODO perfezionare
' If mPermitGranted Then
' Activity_PermissionResult (rp.PERMISSION_READ_CONTACTS, True)
' Else
' Msgbox2Async("Permetti a quest'app di accedere ai contatti?", "Accesso ai contatti", "Sì", "", "No", Null, False)
' Wait For Msgbox_Result (Result As Int)
' Activity_PermissionResult(rp.PERMISSION_READ_CONTACTS, (Result = DialogResponse.POSITIVE))
' End If
rp.CheckAndRequest ("android.permission.READ_CONTACTS")
wait for Activity_PermissionResult (Permission As String, result As Boolean)
If result Then
StartActivity(actContacts)
End If
End Sub
'Sub Activity_PermissionResult (Permission As String, Result As Boolean)
' If Permission = rp.PERMISSION_READ_CONTACTS Then
' mPermitGranted = result
' If result Then
' StartActivity(actContacts)
' Else
' ' TODO chiudere l'app
' End If
' End If
'End Sub