Calendar - Add Label

Print Page | Close Window

Add Label

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: https://forum.codejock.com/forum_posts.asp?TID=13841
Printed Date: 15 November 2026 at 3:14pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Add Label

Posted By: DataFlowJoe
Subject: Add Label
Date Posted: 28 March 2009 at 1:33pm

Hi, can someone help me with a snippet of code to add new labels and colors to a calendar control.

All the help file says is

Public Sub AddLabel( _
   ByVal mk:@MSITStore:C:\Program%20Files\Codejock%20Software\ActiveX\Xtreme%20Calendar%20ActiveX%20v11.2.0\Help\SymbolReference.chm::/XtremeCalendarControl~CalendarEventLabels~AddLabel.html# - LabelID As Long, _
   ByVal mk:@MSITStore:C:\Program%20Files\Codejock%20Software\ActiveX\Xtreme%20Calendar%20ActiveX%20v11.2.0\Help\SymbolReference.chm::/XtremeCalendarControl~CalendarEventLabels~AddLabel.html# - Color As ULong, _
   ByVal mk:@MSITStore:C:\Program%20Files\Codejock%20Software\ActiveX\Xtreme%20Calendar%20ActiveX%20v11.2.0\Help\SymbolReference.chm::/XtremeCalendarControl~CalendarEventLabels~AddLabel.html# - Name As String _
)

It would be useful if the helpfile gave a simple example.

I'm using VBA in microsoft Access

Thanks for your time.

-------------
He is no fool who gives what he cannot keep to gain what he cannot lose. (Jim Elliott)

Replies:

Posted By: mbrogdon
Date Posted: 31 March 2009 at 3:11pm

Hi DataFlowJoe,

I use this function to extend my Labels


Public Sub AddLabel(ByVal LabelNr As Long, ByVal R As Long, ByVal G As Long, ByVal B As Long, ByVal Name As String)
   ctlCalendar.DataProvider.LabelList.AddLabel LabelNr, RGB(R, G, B), Name
End Sub

-------------
Xtreme SuitePro ActiveX 13.2.0 - Windows XP SP3 - VB6/Ingres Openroad 2006