Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_BeforeActiveOwnerChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeActiveOwnerChangedEventArgs) Handles UltraDayView1.BeforeActiveOwnerChanged
' If the new ActiveOwner is the unassigned owner, cancel
' the event to disallow the unassigned owner from becoming
' activated.
If e.NewActiveOwner.IsUnassigned Then
e.Cancel = True
End If
End Sub
Private Sub UltraWeekView1_BeforeActiveOwnerChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeActiveOwnerChangedEventArgs) Handles UltraWeekView1.BeforeActiveOwnerChanged
' If the new ActiveOwner is the unassigned owner, cancel
' the event to disallow the unassigned owner from becoming
' activated.
If e.NewActiveOwner.IsUnassigned Then
e.Cancel = True
End If
End Sub
Private Sub UltraWeekView1_AfterActiveOwnerChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterActiveOwnerChangedEventArgs) Handles UltraWeekView1.AfterActiveOwnerChanged
' Synchronize the UltraWeekView's ActiveOwner when the
' ActiveOwner changes in the UltraDayView control
If Not Me.UltraDayView1.ActiveOwner Is e.NewActiveOwner Then
Me.UltraDayView1.ActiveOwner = e.NewActiveOwner
End If
End Sub
Private Sub UltraDayView1_AfterActiveOwnerChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterActiveOwnerChangedEventArgs) Handles UltraDayView1.AfterActiveOwnerChanged
' Synchronize the UltraWeekView's ActiveOwner when the
' ActiveOwner changes in the UltraDayView control
If Not Me.ultraWeekView1.ActiveOwner Is e.NewActiveOwner Then
Me.ultraWeekView1.ActiveOwner = e.NewActiveOwner
End If
End Sub