[CLOSED] CalendarPanel Limit No. Of CalendarModel ?

  1. #1

    [CLOSED] CalendarPanel Limit No. Of CalendarModel ?

    Is It Calendar Panel limit No. of CalendarModel (<= 3)?

        Private Sub InitCalStore()
            Dim objCalendarStore As New Ext.Net.CalendarStore
            Dim objCalendarModel As New Ext.Net.CalendarModel
            Dim objCalendars As New Ext.Net.CalendarModelCollection
            Dim i As Integer
            'myCorpCalendar.EventStore = evtstoCorp
            i = 0
            For i = 0 To mobjLstOfCalendarMaster.Count - 1
                objCalendarModel = New Ext.Net.CalendarModel
                objCalendarModel.CalendarId = mobjLstOfCalendarMaster(i).CalendarID   ''From 1 to4 
                objCalendarModel.Title = mobjLstOfCalendarMaster(i).CalendarTitle
                objCalendarModel.Description = mobjLstOfCalendarMaster(i).CalendarDescription
                objCalendarStore.Calendars.Add(objCalendarModel)
            Next i
            myCorpCalendar.CalendarStore = objCalendarStore
        End Sub
        Private Sub InitShopAndCalEvent(ByVal intShopID As Integer)
            Dim objEvtModel As Ext.Net.EventModel
            Dim i As Integer
            objEvtModel = New Ext.Net.EventModel
            mobjLstOfCalvwShopAndCalEvent = prjIntNetDB.clsIntNetDB.FillclsCal_vwShopAndCalEvent(, , , , , , , , , , , , , , , , , , , , , , intShopID)
            For i = 0 To mobjLstOfCalvwShopAndCalEvent.Count - 1
                With mobjLstOfCalvwShopAndCalEvent(i)
                    objEvtModel = New Ext.Net.EventModel
                    objEvtModel.CalendarId = .CalendarID               ''When .CalendarID = 4 that cannot display
                    objEvtModel.EventId = .EventID
                    objEvtModel.EndDate = .EndDate
                    objEvtModel.IsAllDay = .IsAllDay
                    objEvtModel.Location = .Location
                    objEvtModel.Notes = .Notes
                    objEvtModel.Reminder = .Reminder
                    objEvtModel.StartDate = .StartDate
                    objEvtModel.Title = .Title
                    objEvtModel.Url = .URL
                End With
                mobjColEvtModel.Add(objEvtModel)
            Next
            myCorpCalendar.EventStore.Events.AddRange(mobjColEvtModel)
        End Sub
    Last edited by Baidaly; May 10, 2013 at 2:02 AM. Reason: [CLOSED]
  2. #2
    Hi,

    Yes, there is built-in support for 3 calendars.

    But it is easy to extend it. There are 4 calendars in this example.
    https://examples2.ext.net/#/Calendar/Overview/Basic/

    You should define CSS rules for additional calendars, see the <style> tag.
  3. #3
    Quote Originally Posted by Daniil View Post
    Hi,

    Yes, there is built-in support for 3 calendars.

    But it is easy to extend it. There are 4 calendars in this example.
    https://examples2.ext.net/#/Calendar/Overview/Basic/

    You should define CSS rules for additional calendars, see the <style> tag.


    It works, thanks

Similar Threads

  1. Replies: 5
    Last Post: Mar 19, 2013, 3:27 AM
  2. [CLOSED] CalendarModel: ColorId appears to be ignored
    By sbg in forum 2.x Legacy Premium Help
    Replies: 3
    Last Post: Nov 12, 2012, 3:52 PM
  3. Replies: 2
    Last Post: Apr 17, 2012, 12:00 PM
  4. Limit of a Multiselect
    By ddolan in forum 1.x Help
    Replies: 0
    Last Post: Jun 02, 2011, 8:45 PM
  5. FileUploadField has limit ???
    By Puia in forum 1.x Help
    Replies: 3
    Last Post: Mar 01, 2010, 4:02 PM

Tags for this Thread

Posting Permissions