Calendar - Set Label

Print Page | Close Window

Set Label

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: http://forum.codejock.com/forum_posts.asp?TID=5272
Printed Date: 28 September 2024 at 3:24pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Set Label

Posted By: cmm2006
Subject: Set Label
Date 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,

Replies:

Posted By: sserge
Date 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