Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
' Interate thru each time slot in the TimeSlotsCollection and display information
' about each one in the output window.
Debug.WriteLine("Time slots list (" + Me.UltraDayView1.TimeSlots.Count.ToString() + " total time slots)")
Debug.IndentLevel += 1
Dim timeSlot As TimeSlot
For Each timeSlot In Me.UltraDayView1.TimeSlots
Debug.WriteLine("Info for Time Slot: " + timeSlot.StartTime.ToShortTimeString() + "-" + timeSlot.EndTime.ToShortTimeString() + " --------------")
Debug.IndentLevel += 1
Debug.WriteLine("Index: " + timeSlot.Index.ToString())
If timeSlot.IsVisible = True Then
Debug.WriteLine("Time slot is currently visible")
Else
Debug.WriteLine("Time slot is currently NOT visible")
End If
Debug.IndentLevel -= 1
Next
Debug.IndentLevel -= 1
Debug.WriteLine("End of time slots list")
End Sub