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) End If End Sub Private Function GetOwnerActivity(ByVal theOwner As Infragistics.Win.UltraWinSchedule.Owner) As ArrayList If (Not theOwner Is Nothing) Then Dim activities As ArrayList = New ArrayList(100) activities.AddRange(theOwner.GetOwnedRecurringAppointments()) activities.AddRange(theOwner.GetOwnedNonRecurringAppointments()) activities.AddRange(theOwner.GetOwnedNotes()) Return activities Else Return Nothing End If End Function
using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; using System.Diagnostics; private void button1_Click(object sender, System.EventArgs e) { if ( this.ultraDayView1.ActiveOwner != null ) ArrayList activities = this.GetOwnerActivity( this.ultraDayView1.ActiveOwner ); } private ArrayList GetOwnerActivity( Owner owner ) { if ( owner != null ) { ArrayList activities = new ArrayList( 100 ); activities.AddRange( owner.GetOwnedRecurringAppointments() ); activities.AddRange( owner.GetOwnedNonRecurringAppointments() ); activities.AddRange( owner.GetOwnedNotes() ); return activities; } else return null; }