Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim activeOwner As Infragistics.Win.UltraWinSchedule.Owner = Me.UltraDayView1.ActiveOwner
If Not activeOwner Is Nothing Then
Debug.WriteLine("The ActiveOwner's 'Name' is '" + activeOwner.Name + "'")
Debug.WriteLine("The ActiveOwner's 'EmailAddress' is '" + activeOwner.EmailAddress + "'")
Debug.WriteLine("The ActiveOwner's 'Key' is '" + activeOwner.Key + "'")
Debug.WriteLine("The ActiveOwner's 'Index' is " + activeOwner.Index.ToString())
If (activeOwner.Locked) Then
Debug.WriteLine("The ActiveOwner is locked")
Else
Debug.WriteLine("The ActiveOwner is not locked")
End If
If (activeOwner.Visible) Then
Debug.WriteLine("The ActiveOwner is visible")
Else
Debug.WriteLine("The ActiveOwner is hidden")
End If
If (activeOwner.AppointmentActionsEnabledResolved) Then
Debug.WriteLine("The ActiveOwner's appointment actions are enabled")
Else
Debug.WriteLine("The ActiveOwner's appointment actions are disabled")
End If
If (activeOwner.IsUnassigned) Then
Debug.WriteLine("The ActiveOwner is the UnassignedOwner")
Else
Debug.WriteLine("The ActiveOwner is not the UnassignedOwner")
End If
Debug.WriteLine("The 'Owners' collection to which the ActiveOwner belongs contains " + activeOwner.CalendarInfo.Owners.Count.ToString() + " members")
Else
Debug.WriteLine("ActiveOwner is Nothing")
End If
End Sub