Good morning,

I am in a process of evaluating Pocket Planner so that i can buy it when i see that it works normally. Therefore i have come againist a strange problem : I am handling the ItemClicked Event with this simple code :

    Private Sub Calendar1_ItemClick(ByVal sender As Object, ByVal e As MindFusion.Scheduling.Compact.ItemMouseEventArgs) Handles Calendar1.ItemClick

       MsgBox(e.Item.DescriptionText)

    End Sub

When msgbox appears and i click OK in the messagebox window then i get an exception in my form designer :

System.ArgumentOutOfRangeException was unhandled
  Message="ArgumentOutOfRangeException"
  StackTrace:
    in System.PInvoke.EE.Array_Copy()
    in System.Array.Copy()
    in MindFusion.SortedList.Insert()
    in MindFusion.SortedList.Add()
    in MindFusion.Scheduling.Schedule.GetAllItems()
    in MindFusion.Scheduling.Compact.Calendar.GetAllItems()
    in MindFusion.Scheduling.Compact.ScheduleColumnCell.Draw()
    in MindFusion.Scheduling.Compact.Cell.Draw()
    in MindFusion.Scheduling.Compact.ScheduleCell.Draw()
    in MindFusion.Scheduling.Compact.Calendar.OnPaint()
    in System.Windows.Forms.Control.WnProc()
    in System.Windows.Forms.Control._InternalWnProc()
    in Microsoft.AGL.Forms.EVL.EnterMainLoop()
    in System.Windows.Forms.Application.Run()
    in RDSCRMMobile.frmMain.Main()

What am i doing wrong? This is a very simple code.

Additionally i would like to ask why you didn't include a DoubleClick event with the item? Imagine a user that clicks an appoitment just to select it or to move it. He doesn't want that time to open a form to edit the appointment. So, how can i open a form (my form of appointment) for editing to the user when he double clicks the appointment? Is there any way to do this?

Thank you very much for your answer, and sorry for my english. I would appreciate your fast answer because we are very hurry to start our project, we are commited to our clients, and the only control that fits our demands is your control !! Thank you again !!

Hello Meppy and thank you for your rapid answer.

I am using Timetable View.

The Init code of the form for the control is the following :

       '
       'Calendar1
       '
       Me.Calendar1.CurrentView = MindFusion.Scheduling.Compact.CalendarView.Timetable
       Me.Calendar1.Date = New Date(2007, 9, 14, 0, 0, 0, 0)
       Me.Calendar1.EndDate = New Date(2007, 10, 14, 0, 0, 0, 0)
       Me.Calendar1.Location = New System.Drawing.Point(0, 0)
       Me.Calendar1.Name = "Calendar1"
       Me.Calendar1.Size = New System.Drawing.Size(240, 240)
       Me.Calendar1.TabIndex = 0
       Me.Calendar1.Theme = MindFusion.Scheduling.Compact.ThemeType.LightBlue

The NetCF Version is 2.0.6129.0

PocketPlanner Version is 4.2.1.0

I have also tested your suggestion with ResetDrag but i get the same exception.

I am waiting for your answer. Thank you again !!

This is the testing code with the creation of the object (it happens at Form Activate Event) :


'CALENDAR TEST



Calendar1.TimetableSettings.Dates.Clear()



For i As Int16 = 0 To 5


Calendar1.TimetableSettings.Dates.Add(DateTime.Today + New TimeSpan(i, 0, 0, 0))


Next


Calendar1.TimetableSettings.VisibleColumns = 3



Calendar1.EndInit()



Calendar1.TimetableSettings.CellSize = Calendar1.TimetableSettings.CellSize * (Me.Height / 320) * 2



Calendar1.TimetableSettings.TimelineSize = Calendar1.TimetableSettings.TimelineSize * (Me.Height / 320)



Calendar1.BeginInit()


Dim s As New MindFusion.Scheduling.Appointment



s.Id = "210921"


s.HeaderText = "Bill Gates"


s.DescriptionText = "Meeting with Bill"


s.StartTime = New DateTime(2007, 9, 17, 13, 30, 0)


s.EndTime = New DateTime(2007, 9, 17, 16, 30, 0)



Calendar1.Schedule.Items.Add(s)



s = New MindFusion.Scheduling.Appointment


s.Id = "29823"


s.HeaderText = "Secretary"


s.DescriptionText = "Meeting with my Secretary"


s.StartTime = New DateTime(2007, 9, 17, 16, 0, 0)


s.EndTime = New DateTime(2007, 9, 17, 18, 30, 0)


s.Style.FillColor = Color.Gold


Calendar1.Schedule.Items.Add(s)

Also i noticed that even when a do anything in the handler routine (ItemClicked), not only msgbox (e.g. when i try to raise a form dialog), when the sub finished i get the same exception. Only when the handler sub is empty, it works properly...