iOS Code Snippet UserNotificationCenter class - Schedule Notifications

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.

developer.apple.com

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

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 Sub

Examples:
Every Monday at 14 o clock

            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)

Every day at 14 o clock

            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)

 

[mcqueccu]

Just to confirm: If i want everyday at Midnight


Dim DateComponent As NotificationCenter_DateComponents
DateComponent.Initialize
DateComponent.Day = 1
DateComponent.Hour = 0
DateComponent.Minute = 0

Is this correct?

 

[Alexander Stolte]

Is this correct?

yes