BigPicture_Notification
Notification_WithCustomSound
Sub BigPicture_Notification
Dim n As NB6
testotitle="PPPPP"
testobody="QQQQQ"
smiley = LoadBitmapResize(File.DirAssets, "smiley2.png", 24dip, 24dip, False)
n.Initialize("default", Application.LabelName, "DEFAULT").SmallIcon(smiley)
Dim b As Bitmap = LoadBitmap(File.DirInternal, "dentista4.png")
n.BigPictureStyle(b.Resize(256dip, 256dip, True), b, testotitle, testobody)
n.Color(0xFF00AEFF)
n.Build("title", "collapsed content", "tag", Main).Notify(7)
End Sub
Sub Notification_WithCustomSound
Dim FileName As String = "tada.mp3"
File.Copy(File.DirAssets, FileName, provider.SharedFolder, FileName)
Dim in As Intent
in.Initialize(in.ACTION_VIEW, "")
provider.SetFileUriAsIntentData(in, 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, True)
'set custom sound
n.CustomSound(provider.GetFileUri(FileName))
'Dim Notification As Notification = n.Build("Notification with custom sound", "...", "", Main)
Dim Notification As Notification
Notification.Initialize
Notification.Icon="icon"
'Notification.SetInfo("TITLE","BODY",Main)
Notification.Notify(3)
End Sub