UserNotificationCenter class
A class that creates local notifications based on the newer iOS 10+ API. The notifications are configured to show even when the app is in the foreground. You can also add actions to the notifications: See the attached example
www.b4x.com
This is an addition to the UserNotificationCenter class.
Scheduling a notification locally from your app | Apple Developer Documentation
Create and schedule notifications from your app when you want to get the user’s attention.
Class_Globals:
Sub Class_Globals
Private NotificationCenter As NativeObject
Type NotificationCenter_DateComponents(Year As Int,Month As Int,Day As Int,Hour As Int, Minute As Int, Second As Int,Weekday As Int)
End Sub
Schedule Notification:
Public Sub CreateNotificationWithContentAndScheduling(Title As String, Body As String, Identifier As String, Category As String,DateComponent As NotificationCenter_DateComponents,Repeats As Boolean)
Dim ln As NativeObject
ln = ln.Initialize("UNMutableNotificationContent").RunMethod("new", Null)
ln.SetField("title", Title)
ln.SetField("body", Body)
Dim n As NativeObject
ln.SetField("sound", n.Initialize("UNNotificationSound").RunMethod("defaultSound", Null))
If Category <> "" Then ln.SetField("categoryIdentifier", Category)
Dim dateComponents As NativeObject
dateComponents = dateComponents.Initialize("NSDateComponents").RunMethod("new", Null)
If DateComponent.Year > 0 Then dateComponents.SetField("year", DateComponent.Year)
If DateComponent.Month > 0 Then dateComponents.SetField("month", DateComponent.Month)
If DateComponent.Day > 0 Then dateComponents.SetField("day", DateComponent.Day)
If DateComponent.Hour > 0 Then dateComponents.SetField("hour", DateComponent.Hour)
If DateComponent.Minute > 0 Then dateComponents.SetField("minute", DateComponent.Minute)
If DateComponent.Second > 0 Then dateComponents.SetField("second", DateComponent.Second)
If DateComponent.Weekday > 0 Then dateComponents.SetField("weekday", DateComponent.Weekday)
Dim trigger As NativeObject
trigger = trigger.Initialize("UNCalendarNotificationTrigger").RunMethod("triggerWithDateMatchingComponents:repeats:", Array(dateComponents, Repeats))
Dim request As NativeObject
request = request.Initialize("UNNotificationRequest").RunMethod("requestWithIdentifier:content:trigger:", _
Array(Identifier, ln, trigger))
Dim NotificationCenter As NativeObject
NotificationCenter = NotificationCenter.Initialize("UNUserNotificationCenter").RunMethod("currentNotificationCenter", Null)
NotificationCenter.RunMethod("addNotificationRequest:", Array(request))
End SubExamples:
Every Monday at 14 o clock
B4X:
Dim DateComponent As NotificationCenter_DateComponents
DateComponent.Initialize
DateComponent.Weekday = 2
DateComponent.Hour = 14
DateComponent.Minute = 0
Main.UNC.CreateNotificationWithContentAndScheduling("Weekly Staff Meeting","Every Monday at 2pm" , "meetings", "Meeting_001",DateComponent,True)
B4X:
Dim DateComponent As NotificationCenter_DateComponents
DateComponent.Initialize
DateComponent.Day = 1
DateComponent.Hour = 14
DateComponent.Minute = 0
Main.UNC.CreateNotificationWithContentAndScheduling("Weekly Staff Meeting","Every day at 2pm" , "meetings", "Meeting_001",DateComponent,True)
Last edited:
