Sub Process_Globals
Dim RM As RingtoneManager
End Sub
Sub Globals
Private btnoti As Button
End Sub
Sub btnoti_Click
' Dim uri As String
' uri = RM.GetDefault(RM.TYPE_NOTIFICATION)
' uri = "content://settings/system/notification_sound"
RM.ShowRingtonePicker("RM",RM.TYPE_NOTIFICATION,False,btnoti.Tag)
End Sub
Sub RM_PickerResult (Success As Boolean, Uri As String)
If Success Then
' Dim R As Reflector
' 'Convert the selected Uri string to a Uri Object compatible with the getRingtone method.
' Dim RTUri As Object = R.RunStaticMethod("android.net.Uri","parse",Array As Object(Uri),Array As String("java.lang.String"))
' 'Get the actual ringtone object from the Uri
' R.Target = R.RunStaticMethod("android.media.RingtoneManager","getRingtone",Array As Object(R.GetContext,RTUri),Array As String("android.content.Context","android.net.Uri"))
' 'Get the title from the ringtone object
' Dim Name As String = R.RunPublicmethod("getTitle",Array As Object(R.GetContext),Array As String("android.content.Context"))
' 'Silent returns Unknown ringtone
Dim name As String
name = ringname(Uri)
btnoti.Tag = Uri
lblnotiring.Text = name
Log("Uri :" & Uri)
Log("RingToneName="&name)
Else
Log("Pickerresult Error")
End If
End Sub
Private Sub ringname(Uri As String) As String
Try
Dim R As Reflector
'Convert the selected Uri string to a Uri Object compatible with the getRingtone method.
Dim RTUri As Object = R.RunStaticMethod("android.net.Uri","parse",Array As Object(Uri),Array As String("java.lang.String"))
'Get the actual ringtone object from the Uri
R.Target = R.RunStaticMethod("android.media.RingtoneManager","getRingtone",Array As Object(R.GetContext,RTUri),Array As String("android.content.Context","android.net.Uri"))
'Get the title from the ringtone object
Dim Name As String = R.RunPublicmethod("getTitle",Array As Object(R.GetContext),Array As String("android.content.Context"))
'Silent returns Unknown ringtone
Return Name
Catch
Log("ERRORE NOTIFICA :" & LastException.Message)
' ToastMessageShow("Errore :" & LastException.Message,False)
End Try
Return "default"
End Sub