Sub Simple_Notification_2
Dim n As NB6
n.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(Smiley)
n.OnlyAlertOnce(True)
n.Build("Arriving at", Starter.strBody, "", Main).Notify(2) 'It will be Main (or any other activity) instead of Me if called from a service.
End Sub
Sub Simple_Notification_3
Dim rp As RuntimePermissions
Dim folder As String = rp.GetSafeDirDefaultExternal("shared")
Dim FileName As String = "NOA.mp3"
'copy the file to the shared folder
File.Copy(File.DirAssets, FileName, folder, FileName)
Dim n As NB6
n.Initialize("custom sound", Application.LabelName, "DEFAULT")
n.SmallIcon(LoadBitmapResize(File.DirAssets, "smiley.png", 32dip, 32dip, True))
'disable the default sound
n.SetDefaults(False, True, False)
'set custom sound
n.CustomSound(CreateFileProviderUri(folder, FileName))
Dim Notification As Notification = n.Build("Arriving at", Starter.strBody, "", Main)
Notification.Notify(3)
End Sub
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
Dim FileProvider As JavaObject
Dim context As JavaObject
context.InitializeContext
FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub