The default value of the ScrollbarVisible property is True. By setting the property's value to False, a vertical scrollbar will not appear at the right edge of the control.
Note: scrolling operations (i.e., wheeling or panning), are not affected in any way by the value of the ScrollbarVisible property.
Scrolling can be prevented by canceling the BeforeScroll event.
Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Imports Infragistics.Win.UltraWinSchedule.MonthViewSingle Private Sub SetupScrollbar() Dim result As DialogResult ' See if the user wants to display the scrollbar result = MessageBox.Show("Would you like the control to display its vertical scrollbar?", "SetupScrollbar", MessageBoxButtons.YesNoCancel) If result = DialogResult.Cancel Then Return If result = DialogResult.Yes Then Me.UltraMonthViewSingle1.ScrollbarVisible = True Else ' If they don't want to display it, set the ScrollbarVisible ' property false, and return Me.UltraMonthViewSingle1.ScrollbarVisible = False Return End If ' See if the user wants to have up and down buttons at both ends result = MessageBox.Show("Would you like to have the up and down scroll buttons appear on both ends of the scrollbar?", "SetupScrollbar", MessageBoxButtons.YesNoCancel) If result = DialogResult.Cancel Then Return If result = DialogResult.Yes Then Me.UltraMonthViewSingle1.CalendarLook.ScrollBarLook.ScrollBarArrowStyle = _ Infragistics.Win.UltraWinScrollBar.ScrollBarArrowStyle.BothAtEachEnd Else Me.UltraMonthViewSingle1.CalendarLook.ScrollBarLook.ScrollBarArrowStyle = _ Infragistics.Win.UltraWinScrollBar.ScrollBarArrowStyle.OneAtEachEnd End If ' See if the user wants to display the min and max buttons result = MessageBox.Show("Would you like the Min/Max buttons to be displayed?", "SetupScrollbar", MessageBoxButtons.YesNoCancel) If result = DialogResult.Cancel Then Return If result = DialogResult.Yes Then Me.UltraMonthViewSingle1.CalendarLook.ScrollBarLook.MinMaxButtonsVisible = True Else Me.UltraMonthViewSingle1.CalendarLook.ScrollBarLook.MinMaxButtonsVisible = False End If ' See if the user wants to set ScrollChangeLarge to the same number as the ' value of the VisibleWeeks property result = MessageBox.Show("Would you like to set the large scrolling increment equal to the number of visible weeks?", "SetupScrollbar", MessageBoxButtons.YesNoCancel) If result = DialogResult.Cancel Then Return If result = DialogResult.Yes Then ' Set the ScrollChangeLarge property to the value of the VisibleWeeks property Me.UltraMonthViewSingle1.ScrollChangeLarge = Me.UltraMonthViewSingle1.VisibleWeeks End If ' See if the user wants to set ScrollChangeSmall to half the value of ScrollChangeLarge result = MessageBox.Show("Would you like to set the small scrolling increment equal to half of the large scrolling increment?", "SetupScrollbar", MessageBoxButtons.YesNoCancel) If result = DialogResult.Cancel Then Return If result = DialogResult.Yes Then ' Set the ScrollChangeSmall property to 1/2 of ScrollChangeLarge Me.UltraMonthViewSingle1.ScrollChangeSmall = Me.UltraMonthViewSingle1.ScrollChangeLarge / 2 End If End Sub
using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; using Infragistics.Win.UltraWinSchedule.MonthViewSingle; using System.Diagnostics; private void SetupScrollbar() { // See if the user wants to display the scrollbar DialogResult result = MessageBox.Show( "Would you like the control to display its vertical scrollbar?", "SetupScrollbar", MessageBoxButtons.YesNoCancel); if ( result == DialogResult.Cancel ) return; if ( result == DialogResult.Yes ) this.ultraMonthViewSingle1.ScrollbarVisible = true; else { // If they don't want to display it, set the ScrollbarVisible // property false, and return this.ultraMonthViewSingle1.ScrollbarVisible = false; return; } // See if the user wants to have up and down buttons at both ends result = MessageBox.Show( "Would you like to have the up and down scroll buttons appear on both ends of the scrollbar?", "SetupScrollbar", MessageBoxButtons.YesNoCancel ); if ( result == DialogResult.Cancel ) return; if ( result == DialogResult.Yes ) { this.ultraMonthViewSingle1.CalendarLook.ScrollBarLook.ScrollBarArrowStyle = Infragistics.Win.UltraWinScrollBar.ScrollBarArrowStyle.BothAtEachEnd; } else { this.ultraMonthViewSingle1.CalendarLook.ScrollBarLook.ScrollBarArrowStyle = Infragistics.Win.UltraWinScrollBar.ScrollBarArrowStyle.OneAtEachEnd; } // See if the user wants to display the min and max buttons result = MessageBox.Show( "Would you like the Min/Max buttons to be displayed?", "SetupScrollbar", MessageBoxButtons.YesNoCancel ); if ( result == DialogResult.Cancel ) return; if ( result == DialogResult.Yes ) { this.ultraMonthViewSingle1.CalendarLook.ScrollBarLook.MinMaxButtonsVisible = true; } else this.ultraMonthViewSingle1.CalendarLook.ScrollBarLook.MinMaxButtonsVisible = false; // See if the user wants to set ScrollChangeLarge to the same number as the // value of the VisibleWeeks property result = MessageBox.Show( "Would you like to set the large scrolling increment equal to the number of visible weeks?", "SetupScrollbar", MessageBoxButtons.YesNoCancel ); if ( result == DialogResult.Cancel ) return; if ( result == DialogResult.Yes ) { // Set the ScrollChangeLarge property to the value of the VisibleWeeks property this.ultraMonthViewSingle1.ScrollChangeLarge = this.ultraMonthViewSingle1.VisibleWeeks; } // See if the user wants to set ScrollChangeSmall to half the value of ScrollChangeLarge result = MessageBox.Show( "Would you like to set the small scrolling increment equal to half of the large scrolling increment?", "SetupScrollbar", MessageBoxButtons.YesNoCancel ); if ( result == DialogResult.Cancel ) return; if ( result == DialogResult.Yes ) { // Set the ScrollChangeSmall property to 1/2 of ScrollChangeLarge this.ultraMonthViewSingle1.ScrollChangeSmall = (int)( this.ultraMonthViewSingle1.ScrollChangeLarge / 2 ); } }
Target Platforms: Windows 10, Windows 8.1, Windows 8, Windows 7, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2