Codejock Developer Community : Set Label

Set Label : Hi,Use corresponding Calendar's...

Thu, 12 Oct 2006 03:26:26 +0000

Author: sserge
Subject: 5272
Posted: 12 October 2006 at 3:26am

Hi,

Use corresponding Calendar's notifications. Example for your task:


Private Sub CalendarControl_EventAdded(ByVal EventID As Long)
    Dim pEvent As CalendarEvent
    Set pEvent = CalendarControl.DataProvider.GetEvent(EventID)
    If Not pEvent Is Nothing Then
        pEvent.Label = 2
    End If
    CalendarControl.DataProvider.ChangeEvent pEvent
End Sub

--
WBR,
Serge

Set Label : Hi, I checked the calendar sample,...

Wed, 11 Oct 2006 18:10:43 +0000

Author: cmm2006
Subject: 5272
Posted: 11 October 2006 at 6:10pm

Hi,

I checked the calendar sample, but I was wondering if there is anyway to set the event label without double click on the calendar and open a new event window.

what I am trying to say is: if I just select the starttime and the endtime, then type the subject, can I set the the event label to "Business" or any other label (will be set by default)?

Thank you,