GetDayFromPoint(Point) Method

Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports Infragistics.Win.UltraWinSchedule.WeekView

    Private Sub GetObjectsFromPoint(ByVal point As Point, ByVal objects As Object())

        '	Declare objects of each type that we are looking for
        Dim appointment As Appointment
        Dim holiday As Holiday
        Dim note As Note
        Dim day As Infragistics.Win.UltraWinSchedule.Day
        Dim dayOfWeek As Infragistics.Win.UltraWinSchedule.DayOfWeek
        Dim week As Week

        '	Use the GetAppointmentFromPoint method to get the appointment
        '	at this point if it returns Nothing, there is no Appointment there
        appointment = Me.ultraWeekView.GetAppointmentFromPoint(point.X, point.Y)

        '	Use the GetHolidayFromPoint method to get the holiday
        '	at this point if it returns Nothing, there is no Holiday there
        holiday = Me.ultraWeekView.GetHolidayFromPoint(point.X, point.Y)

        '	Use the GetNoteFromPoint method to get the note
        '	at this point if it returns Nothing, there is no Note there
        note = Me.ultraWeekView.GetNoteFromPoint(point.X, point.Y)

        '	Use the GetDayFromPoint method to get the day
        '	at this point if it returns Nothing, there is no day there
        day = Me.ultraWeekView.GetDayFromPoint(point.X, point.Y)

        '	Use the GetDayOfWeekFromPoint method to get the day of the week
        '	at this point if it returns Nothing, there is no DayOfWeek there
        dayOfWeek = Me.ultraWeekView.GetDayOfWeekFromPoint(point.X, point.Y)

        '	Use the GetDayOfWeekFromPoint method to get the week
        '	at this point if it returns Nothing, there is no week there
        week = Me.ultraWeekView.GetWeekFromPoint(point.X, point.Y)

        '	Add each non-null object to a new ArrayList, which we
        '	will then convert to an array and assign to the 'objects'
        '	out parameter
        Dim objectsFound As ArrayList = New ArrayList()

        '   Add each valid object to the array list
        If Not appointment Is Nothing Then objectsFound.Add(appointment)
        If Not holiday Is Nothing Then objectsFound.Add(holiday)
        If Not note Is Nothing Then objectsFound.Add(note)
        If Not day Is Nothing Then objectsFound.Add(day)
        If Not dayOfWeek Is Nothing Then objectsFound.Add(dayOfWeek)
        If Not week Is Nothing Then objectsFound.Add(week)

        '	Return the entities we found  as an object array 
        objects = objectsFound.ToArray()

        '	Output what we found to the debugger
        Debug.WriteLine(objects.Length.ToString() + " UltraWinSchedule objects were found: " + vbCrLf)
        Dim i As Integer
        For i = 0 To objects.Length - 1
            Debug.WriteLine(objects(i).GetType().ToString())
        Next

    End Sub