Imports System.Collections.Generic
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
AddHandler Me.dayView.MouseDown, AddressOf dayView_MouseDown
Private Sub dayView_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim dayView As UltraDayView = sender
Dim ownerAtPoint = dayView.OwnerFromPoint(e.Location)
Dim timeSlot As TimeSlot = Nothing
Dim dateAtPoint As Nullable(Of DateTime) = dayView.DateTimeFromPoint(e.Location, timeSlot)
If Not ownerAtPoint Is Nothing AndAlso dateAtPoint.HasValue Then
Dim timeRange As TimeRange = Nothing
If Not timeSlot Is Nothing Then timeRange = Infragistics.Win.UltraWinSchedule.TimeRange.FromTimeSlot(timeSlot, False)
Dim timeRangeString As String = String.Empty
If Not timeRange Is Nothing Then timeRangeString = String.Format(", TimeSlot = {0}", timeRange.ToString(True))
Console.WriteLine(String.Format("Owner = '{0}', Date = {1}{2}", ownerAtPoint.Key, dateAtPoint.Value.ToShortDateString(), timeRangeString))
End If
End Sub