May 07, 2013, 4:13 AM
[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]