Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Me.UltraDayView1.ActiveOwner Is Nothing Then
Dim activities As ArrayList = Me.GetOwnerActivity(Me.UltraDayView1.ActiveOwner, DateTime.Today, DateTime.Today.AddDays(1))
End If
End Sub
Private Function GetOwnerActivity(ByVal theOwner As Infragistics.Win.UltraWinSchedule.Owner, ByVal startDate As DateTime, ByVal endDate As DateTime) As ArrayList
If (Not theOwner Is Nothing) Then
Dim activities As ArrayList = New ArrayList(100)
activities.AddRange(theOwner.GetAppointmentsInRange(startDate, endDate))
activities.AddRange(theOwner.GetNotesInRange(startDate, endDate))
Return activities
Else
Return Nothing
End If
End Function