Demonstrates how to use the control's scrollbar-related properties to customize the vertical scrollbar's appearance and behavior.
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
'Declaration
Public Property ScrollbarVisible As Boolean
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 );
}
}
'Declaration
Public Property ScrollbarVisible As Boolean
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