Service.StartForeground(1, CreateNotification("..."))
Sub CreateNotification (Body As String) As Notification
Dim notification As Notification
notification.Initialize2(notification.IMPORTANCE_LOW)
notification.Sound = False
notification.Vibrate = False
notification.Light = False
notification.Icon = "icon"
notification.SetInfo("Status", Body, Starter.WhatFormName)
Return notification
End Sub
Sub BigText_Notification2(Body As String, Body2 As String)
'the behavior will not be same if channels is changed or setdefaults
Dim n As NB6
n.Initialize(1, Application.LabelName, "LOW").SmallIcon(TripIcon2).AutoCancel(True)
n.SetDefaults(False, False ,False)
n.BigTextStyle("Status", "", Body2)
n.Build("Status", Body, "tag2", Starter.WhatFormName).Notify(1)
End Sub
Sub BigText_Notification (Body As String)
'the behavior will not be same if channels is changed or setdefaults
Dim n As NB6
n.Initialize(2, "Vehicle Maintenance", "DEFAULT").SmallIcon(TripIcon1).AutoCancel(True)
n.SetDefaults(True, False ,True)
n.BigTextStyle("Maintenance Service Schedule", "", Body)
n.Build("Maintenance Service Schedule", "Alert", "tag", Maintenance).Notify(2)
End Sub