Caldendar Resource

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

    Dim m_pEvent As CalendarEvent

    ' Create a New event for the Calendar
    Set m_pEvent = CalendarControl.DataProvider.CreateEvent

    ' The following code will add an All Day Event which appears at the top of the Calendar for a given date.
    With m_pEvent
        .StartTime = <Start Date Time Goes Here>
        .EndTime = <End Date Time Goes Here>
        .Subject = <Subject Title Goes Here>
        .Body = <Body Text Goes Here>
        .AllDayEvent = True
        .Label = 10    ' Gives the Event a Colour... The colours are from 1 to 10
    End With

    CalendarControl.DataProvider.AddEvent m_pEvent

    ' Create a New event for the Calendar
    Set m_pEvent = CalendarControl.DataProvider.CreateEvent

    ' The following code will add an Event which appears in the Calendar for a given date.
    With m_pEvent
        .StartTime = <Start Date Time Goes Here>
        .EndTime = <End Date Time Goes Here>
        .Subject = <Subject Title Goes Here>
        .Body = <Body Text Goes Here>
    End With

    CalendarControl.DataProvider.AddEvent m_pEvent

    ' Notes:
    ' AllDayEvent defaults as false therefore is only required to add an AllDayEvent 
    ' You don't have to pass a Label Colour, it has a default colour if nothing is passed
    ' The m_pEvent variable used has many more useful events built in, but the above should give you the basics on how to add two types of events to the Calendar Control