Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Make the month and year scroll buttons visible
Me.ultraMonthViewMulti1.MonthScrollButtonsVisible = DefaultableBoolean.True
Me.ultraMonthViewMulti1.YearScrollButtonsVisible = DefaultableBoolean.True
' Assign different background colors to the month and year scroll buttons,
' and suppress theming for both
Me.ultraMonthViewMulti1.MonthScrollButtonAppearance.BackColor = Color.LightBlue
Me.ultraMonthViewMulti1.YearScrollButtonAppearance.BackColor = Color.LightGreen
Me.ultraMonthViewMulti1.ScrollButtonAppearance.ThemedElementAlpha = Alpha.Transparent
' Resolve the MonthScrollButtonAppearance and use the same background color
' for the associated command button.
Dim appearanceData As AppearanceData = New AppearanceData()
Dim requestedProps As AppearancePropFlags = AppearancePropFlags.BackColor
Me.ultraMonthViewMulti1.ResolveMonthScrollButtonAppearance(appearanceData, requestedProps)
Me.cmdMonth.BackColor = appearanceData.BackColor
' Resolve the YearScrollButtonAppearance and use the same background color
' for the associated command button.
appearanceData = New AppearanceData()
requestedProps = AppearancePropFlags.BackColor
Me.ultraMonthViewMulti1.ResolveYearScrollButtonAppearance(appearanceData, requestedProps)
Me.cmdYear.BackColor = appearanceData.BackColor
' Set the MonthScrollChange property to 2 so that the control is scrolled
' by 2 months when the month scroll buttons are clicked
Me.ultraMonthViewMulti1.MonthScrollChange = 2
' Set the YearScrollChange property to 5 so that the control is scrolled
' by 5 months when the year scroll buttons are clicked
Me.ultraMonthViewMulti1.YearScrollChange = 5
' Set the visibility of the associated command buttons based on whether
' the month/year scroll buttons are visible in the control.
Me.cmdMonth.Visible = Me.ultraMonthViewMulti1.MonthScrollButtonsVisibleResolved
Me.cmdYear.Visible = Me.ultraMonthViewMulti1.YearScrollButtonsVisibleResolved
' Display the actual values of the MonthScrollChange/YearScrollChange properties
' in a TextBox.
Me.txtMonthScrollChange.Text = String.Format("Actual value: {0}", Me.ultraMonthViewMulti1.MonthScrollChangeResolved)
Me.txtYearScrollChange.Text = String.Format("Actual value: {0}", Me.ultraMonthViewMulti1.YearScrollChangeResolved)
End Sub