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
using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; using System.Diagnostics; private void Form1_Load(object sender, System.EventArgs e) { // Make the month and year scroll buttons visible this.ultraMonthViewMulti1.MonthScrollButtonsVisible = DefaultableBoolean.True; this.ultraMonthViewMulti1.YearScrollButtonsVisible = DefaultableBoolean.True; // Assign different background colors to the month and year scroll buttons, // and suppress theming for both this.ultraMonthViewMulti1.MonthScrollButtonAppearance.BackColor = Color.LightBlue; this.ultraMonthViewMulti1.YearScrollButtonAppearance.BackColor = Color.LightGreen; this.ultraMonthViewMulti1.ScrollButtonAppearance.ThemedElementAlpha = Alpha.Transparent; // Resolve the MonthScrollButtonAppearance and use the same background color // for the associated command button. AppearanceData appearanceData = new AppearanceData(); AppearancePropFlags requestedProps = AppearancePropFlags.BackColor; this.ultraMonthViewMulti1.ResolveMonthScrollButtonAppearance( ref appearanceData, ref requestedProps ); this.cmdMonth.BackColor = appearanceData.BackColor; // Resolve the YearScrollButtonAppearance and use the same background color // for the associated command button. appearanceData = new AppearanceData(); requestedProps = AppearancePropFlags.BackColor; this.ultraMonthViewMulti1.ResolveYearScrollButtonAppearance( ref appearanceData, ref requestedProps ); this.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 this.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 this.ultraMonthViewMulti1.YearScrollChange = 5; // Set the visibility of the associated command buttons based on whether // the month/year scroll buttons are visible in the control. this.cmdMonth.Visible = this.ultraMonthViewMulti1.MonthScrollButtonsVisibleResolved; this.cmdYear.Visible = this.ultraMonthViewMulti1.YearScrollButtonsVisibleResolved; // Display the actual values of the MonthScrollChange/YearScrollChange properties // in a TextBox. this.txtMonthScrollChange.Text = string.Format("Actual value: {0}", this.ultraMonthViewMulti1.MonthScrollChangeResolved ); this.txtYearScrollChange.Text = string.Format("Actual value: {0}", this.ultraMonthViewMulti1.YearScrollChangeResolved ); }