Sub Notification (nid As Int, Channel As String, Title As String, Body As String, Priority As String, Tag As String, Sound As String)
'pro moje zvuky
Dim rp As RuntimePermissions
Dim folder As String = rp.GetSafeDirDefaultExternal("shared")
Dim FileName As String = "novaAukce.mp3"
'copy the file to the shared folder
File.Copy(File.DirAssets, FileName, folder, FileName)
'pro moje zvuky
Dim n As NB6
n.Initialize(Channel, Application.LabelName, Priority).AutoCancel(True)
n.SmallIcon(LoadBitmapResize(File.DirAssets, "smiley.png", 32dip, 32dip, True))
'disable the default sound
n.SetDefaults(False, True, True)
'set custom sound
n.CustomSound(CreateFileProviderUri(folder, FileName))
End Sub
'pro moje zvuky
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