We are evaluating whether we can use the planner.net control in a hotel booking system. So the appointments will actually be room bookings. The rooms will be the locations. Therefore the same room can not be booked more than once in the same period. In the resource view if I create a new  appointment and drag it over an existing appointment it creates another lane. I need to prevent this. I saw in another post in this forum an example using the ItemModifying event. I put similar code in that event.

Private Sub Calendar1_ItemModifying(ByVal sender As Object, ByVal e As MindFusion.Scheduling.WinForms.ItemModifyConfirmEventArgs) Handles Calendar1.ItemModifying
       Dim fromDate As DateTime = e.NewStartTime.Date
       Dim toDate As DateTime = e.NewEndTime.Date

       Dim col As MindFusion.Scheduling.ItemCollection = Calendar1.Schedule.GetAllItems(fromDate, toDate)
       If col.Count < 2 Then Return

       For Each i As MindFusion.Scheduling.Item In col
           If i.Location Is e.Item.Location Then
               e.Confirm = False
           End If
       Next

    End Sub

But it still seems to create a new row and therefore let appointments overlap.

Thanks

Thanks Meppy,

Another thing we need to is drag the appointments vertically, between locations. How can I do this. Also I tried loading 200 locations:

       locs = Locations.GetLocations()
       Dim l As Ribby.Library.Location

       Dim loc As MindFusion.Scheduling.Location

       For Each l In locs
           loc = New MindFusion.Scheduling.Location
           loc.Address = l.Address
           loc.Id = l.ID.ToString
           loc.Name = l.Address
           Calendar1.Locations.Add(loc)
       Next

unfortunately it took many seconds.

(a) Will the databinding version improve things.
(b) Any idea when this will be released (or is there a pre-release I can try).

Thanks for all your help.

Simon

I forgot to mention that you can drag appointments between locations by holding down the modifier key specified by Calendar.ItemChangeReferenceKey (by default this is the Alt key).

Meppy

You have to hold down the ItemChangeReferenceKey before clicking and dragging the item.

Meppy

Try using e.Resource instead of e.Item.Location, i.e. replace:

...GetAllItems(..., e.Item.Location) 

with

...GetAllItems(..., CType(e.Resource, location)) 

Meppy