ScrollBar Control with Different Visual Style using VB.NET 2008

• Download demo - 27.7 KB
• Download source - 234.5 KB

Introduction

Why another Scroll Bar? The standard ScrollBar is too limited in functionality and I couldn't find a custom control written that did all that I wanted. This is a User Control with Microsoft Office 2007 Visual Style. It is simple to use, just drop it on the form, and use it like the normal ScrollBar.

Background

MBScrollBar is a ContextMenuStrip which inherits all the properties of simple Scroll Bar control. I added Microsoft Office 2007 like Visuals in MBScrollBar, also it supports mouse wheel. The language used is VB.NET. There are so many classes which provides same functionality, but for that we have to write minimum two lines of code to add that renderer class in our application. MBScrollBar is the Scroll Bar which already contains MBScrollBarRenderer Class You Just add the reference of MBScrollBar.Dll and used it by Dragging and Dropping.

MBScrollBar Control

Code

The concept for this Scroll Bar came from the Microsoft Office 2007 Scroll Bar. I organized methods of MBScrollBar into layers like this:

Following methods which are responsible for rendering simple Scroll Bar like Microsoft office

This method Render Background of MBScrollBar item:

''' <summary>
    ''' Draw Background for MBScrollBar
    ''' </summary>
    ''' <param name="g">graphics As Graphics</param>
    ''' <param name="rect">Rect As Rectangle</param>
    ''' <param name="orientation">Orientation As MBScrollBarOrientation</param>
    Public Shared Sub DrawBackground(ByVal g As Graphics, ByVal rect As Rectangle, ByVal orientation As MBScrollBarOrientation)
        If (g Is Nothing) Then
            Throw New ArgumentNullException("g")
        End If
        If (rect.IsEmpty Or g.IsVisibleClipEmpty Or Not g.VisibleClipBounds.IntersectsWith(rect)) Then
            Return
        End If
        If (orientation = MBScrollBarOrientation.Vertical) Then
            DrawBackgroundVertical(g, rect)
        Else
            DrawBackgroundHorizontal(g, rect)
        End If   
 End Sub

This method Render Arrow Button of MBScrollBar Item:

''' <summary>
''' Draw Arrow Button For MBScrollBar
''' </summary>
''' <param name="g">graphics As Graphics</param>
''' <param name="rect">Rect As Rectangle</param>
''' <param name="state">State As MBScrollBarState</param>
''' <param name="arrowUp">ArrowUp As Boolean</param>
''' <param name="orientation">Orientation As MBScrollBarOrientation</param>
Public Shared Sub DrawArrowButton(ByVal g As Graphics, ByVal rect As Rectangle, 
    ByVal state As MBScrollBarArrowButtonState, ByVal arrowUp As Boolean, 
    ByVal orientation As MBScrollBarOrientation)
        If g Is Nothing Then
            Throw New ArgumentNullException("g")
        End If
        If rect.IsEmpty Or g.IsVisibleClipEmpty Or (
            Not g.VisibleClipBounds.IntersectsWith(rect)) Then
            Return
        End If
        If orientation = MBScrollBarOrientation.Vertical Then
            DrawArrowButtonVertical(g, rect, state, arrowUp)
        Else
            DrawArrowButtonHorizontal(g, rect, state, arrowUp)
        End If
    End Sub

This method Handles painting of MBScrollBar:

''' <summary>
''' Handles MBScrollBar Mouse Wheel
''' </summary>
Protected Overrides Sub OnMouseWheel(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseWheel(e)
        If (Me._Value < Me.Minimum Or Me._Value > Me.Maximum) Then
            Return
        Else
            If e.Delta > 0 Then
                Me._Value = Me._Value - 1
            Else
                Me._Value = Me._Value + 1
            End If
            If Me._Value > 100 Then Me._Value = 100
            If Me._Value < 0 Then Me._Value = 0
        End If
        Me.ChangeThumbPosition(Me.GetThumbPosition())
        Me.Refresh()
    End Sub

Using the Code

It is very easy to use the MBScrollBar in your application. Just add the reference of the provided DLL to your application and just drag and drop.

History

• MBScrollBar Version 1.0.