Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports Infragistics.Win.UltraWinSchedule.MonthViewMulti
Private Sub CustomizeKeyActionMappings()
' Create a new KeyActionMapping object, which we will add to
' the control's KeyActionMappings collection. The new KeyActionMapping
' object will have the following property settings:
'
' KeyCode = Tab
' ActionCode = SameDayInNextMonth
' StateDisallowed = None
' StateRequired = ActiveDay
' SpecialKeysDisallowed = All (disallow the action if either Alt, Ctrl, or Shift is pressed)
' SpecialKeysRequired = 0 (no special keys required to perform the action)
'
Dim nextMonthMapping As KeyActionMapping = _
New KeyActionMapping(Keys.Tab, MonthViewMultiAction.SameDayInNextMonth, 0, MonthViewMultiState.ActiveDay, SpecialKeys.All, 0)
' Create another new KeyActionMapping object, which we will add to
' the control's KeyActionMappings collection. The new KeyActionMapping
' object will have the following property settings:
'
' KeyCode = Tab
' ActionCode = SameDayInPreviousMonth
' StateDisallowed = None
' StateRequired = ActiveDay
' SpecialKeysDisallowed = AltShift (disallow the action if either Alt or Shift is pressed)
' SpecialKeysRequired = Ctrl
'
Dim prevMonthMapping As KeyActionMapping = _
New KeyActionMapping(Keys.Tab, MonthViewMultiAction.SameDayInPreviousMonth, 0, MonthViewMultiState.ActiveDay, SpecialKeys.AltShift, SpecialKeys.Ctrl)
' Remove all KeyActionMappings that use the Tab key
Dim keyMapping As KeyActionMapping
For Each keyMapping In Me.ultraMonthViewMulti1.KeyActionMappings
If (keyMapping.KeyCode = Keys.Tab) Then
Me.ultraMonthViewMulti1.KeyActionMappings.Remove(keyMapping)
End If
Next
' Now we can add the custom mappings
Me.ultraMonthViewMulti1.KeyActionMappings.Add(nextMonthMapping)
Me.ultraMonthViewMulti1.KeyActionMappings.Add(prevMonthMapping)
End Sub