Hi,
I use Resource View and Location for display my time plan... My intention is to have hour-sensitive items, but I always have day-sensitive display as you can see in attachment... Calendar accepts all my items as all-day item, and result is overlap... My code is bellow... Have you got some idea how to solve my problem... Best Regards Tomy
Dim location1 As MindFusion.Scheduling.Location = New MindFusion.Scheduling.Location location1.Id = "London" location1.Name = "London" Me.Calendar1.Locations.Add(location1)
Dim location2 As MindFusion.Scheduling.Location = New MindFusion.Scheduling.Location location2.Id = "Paris" location2.Name = "Paris" Me.Calendar1.Locations.Add(location2)
Me.Calendar1.GroupType = GroupType.GroupByLocations Me.Calendar1.ResourceViewSettings.GroupHeaderSize = 120
Dim app As New Appointment() app.HeaderText = "R / 1" app.DescriptionText = "Showtime" app.Location = Me.Calendar1.Locations(1) app.StartTime = New DateTime(2012, 8, 1, 14, 0, 0) app.EndTime = New DateTime(2012, 8, 5, 8, 0, 0) app.Style.HeaderTextColor = Drawing.Color.Black app.Style.FillColor = Drawing.Color.Yellow Me.Calendar1.Schedule.Items.Add(app)
Dim app1 As New Appointment() app1.HeaderText = "R / 2" app1.DescriptionText = "Showtime 2" app1.Location = Me.Calendar1.Locations(1) app1.StartTime = New DateTime(2012, 7, 28, 14, 0, 0) app1.EndTime = New DateTime(2012, 8, 1, 8, 0, 0) app1.Style.HeaderTextColor = Drawing.Color.Black app1.Style.FillColor = Drawing.Color.Yellow Me.Calendar1.Schedule.Items.Add(app1)
Dim app2 As New Appointment() app2.HeaderText = "R / 3" app2.DescriptionText = "Showtime 3" app2.Location = Me.Calendar1.Locations(1) app2.StartTime = New DateTime(2012, 8, 5, 14, 0, 0) app2.EndTime = New DateTime(2012, 8, 8, 8, 0, 0) app2.Style.HeaderTextColor = Drawing.Color.Black app2.Style.FillColor = Drawing.Color.Yellow Me.Calendar1.Schedule.Items.Add(app2)
|