B4A Library MultiDayCalendarView

mdcv1.ClickEventName = "Morning Meeting"
mdcv1.ClickEventDetail = "All Operations Personnel"
mdcv1.ClickEventColor = Colors.DarkGray

Sub mdcv1_event_selected(eventname As String, eventdetail As String)

    Log("B4A: calendar eventname = " & eventname)
    Log("B4A: calendar eventdetail = " & eventdetail)
    nativeMe.RunMethod("showToastMessage", Array(eventname & " : " & eventdetail))

End Sub

Sub mdcv1_calendar_scrolling(firstday As String)

    Log("B4A: first day = " & firstday)

End Sub


Sub mdcv1_event_added(eventstartdatetime As Long, clickeventname As String, clickeventdetail As String, clickeventcolor As Int)

    Log("B4A : eventstartdatetime = " & eventstartdatetime)
    Log("B4A : clickeventname = " & clickeventname)
    Log("B4A : clickeventdetail = " & clickeventdetail)
    Log("B4A : clickeventcolor = " & clickeventcolor)

End Sub

mdcv1.DefaultEventSelectColor = Colors.Yellow
mdcv1.DayOfMonthTextSize = 40
mdcv1.DayOfWeekTextSize = 25
mdcv1.TimeTextSize = 18
mdcv1.EventTextSize = 20

#Region  Project Attributes
    #ApplicationLabel: MultiDayCalendarView
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

    Dim nativeMe As JavaObject

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private mdcv1 As MultiDayCalendarView

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")

    nativeMe.InitializeContext

    mdcv1.ClickEventName = "Morning Meeting"
    mdcv1.ClickEventDetail = "All Operations Personnel"
    mdcv1.ClickEventColor = Colors.DarkGray
    mdcv1.DefaultEventSelectColor = Colors.Yellow
    mdcv1.DayOfMonthTextSize = 40
    mdcv1.DayOfWeekTextSize = 25
    mdcv1.TimeTextSize = 18
    mdcv1.EventTextSize = 20  

End Sub

Sub Activity_Resume

    Dim tim As Long = DateTime.TimeZoneOffset * 60 * 60 * 1000
'    tim = tim + DateTime.Now  - DateTime.GetMinute(DateTime.Now) * 60 * 1000 - DateTime.GetSecond(DateTime.Now) * 1000
'    tim = tim/1000

    DateTime.DateFormat = "yyyy/MM/dd"
    DateTime.TimeFormat = "HH:mm:ss"

    tim = tim + DateTime.DateTimeParse("2016/04/18", "18:00:00")                  'tim = in milliseconds
    tim = tim/1000                                                                'tim = converted to seconds
    mdcv1.addEvent(tim, "Supper with John", "The Butcher Boys", Colors.Blue)      'seconds need to be passed
    'mdcv1.removeEvent(tim)                                                       'this will remove the same event that we have just set in the line above

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub mdcv1_event_selected(eventname As String, eventdetail As String)

    Log("B4A: calendar eventname = " & eventname)
    Log("B4A: calendar eventdetail = " & eventdetail)
    nativeMe.RunMethod("showToastMessage", Array(eventname & " : " & eventdetail))

End Sub

Sub mdcv1_calendar_scrolling(firstday As String)

    Log("B4A: first day = " & firstday)

End Sub


Sub mdcv1_event_added(eventstartdatetime As Long, clickeventname As String, clickeventdetail As String, clickeventcolor As Int)

    Log("B4A : eventstartdatetime = " & eventstartdatetime)
    Log("B4A : clickeventname = " & clickeventname)
    Log("B4A : clickeventdetail = " & clickeventdetail)
    Log("B4A : clickeventcolor = " & clickeventcolor)

End Sub


#If Java

import android.widget.Toast;

    //this will display a Toast Message (Event Name and Event Detail) when a cell containing an Event is touched
    public void showToastMessage(String message) {
        Toast.makeText(BA.applicationContext, message, Toast.LENGTH_SHORT).show();
    }

#End If