ScrollChangeLarge Property (UltraMonthViewSingle)

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