#Region " Imports "
 
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Runtime.InteropServices
Imports System.Windows.Forms.Design
 
#End Region
 
#Region " ToolStripCheckBox "
 
''' <summary>
''' Represents a selectable <see cref="ToolStripItem"/> that when clicked, toggles a checkmark.
''' </summary>
''' <seealso cref="ToolStripControlHost"/>
<
    ClassInterface(ClassInterfaceType.AutoDispatch),
    ComVisible(True),
    DebuggerStepThrough,
    DefaultEvent(NameOf(ToolStripCheckBox.CheckedChanged)),
    DefaultProperty(NameOf(ToolStripCheckBox.Text)),
    Description("Represents a selectable ToolStripItem that when clicked, toggles a checkmark."),
    Designer("System.Windows.Forms.Design.ToolStripItemDesigner, System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),
    DesignerCategory(NameOf(DesignerCategoryAttribute.Generic)),
    DesignTimeVisible(False),
    DisplayName(NameOf(ToolStripCheckBox)),
    Localizable(True),
    ToolboxBitmap(GetType(CheckBox), "CheckBox.bmp"),
    ToolboxItem(False),
    ToolboxItemFilter("System.Windows.Forms", ToolboxItemFilterType.Allow),
    ToolStripItemDesignerAvailability(ToolStripItemDesignerAvailability.ToolStrip Or ToolStripItemDesignerAvailability.StatusStrip)
>
Public Class ToolStripCheckBox : Inherits ToolStripControlHost
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets the <see cref="CheckBox"/> control that is hosted by this <see cref="ToolStripCheckBox"/>.
    ''' </summary>
    <
        Browsable(True), EditorBrowsable(EditorBrowsableState.Advanced),
        DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),
        Category("Hosted"), Description("The CheckBox control that is hosted by this control.")
    >
    Public Shadows ReadOnly Property Control As CheckBox
        Get
            Return DirectCast(MyBase.Control, CheckBox)
        End Get
    End Property
 
    ''' <summary>
    ''' Gets or sets a value indicating whether this <see cref="ToolStripCheckBox"/> is in the checked state.
    ''' </summary>
    ''' 
    ''' <returns>
    ''' <see langword="True"/> if checked; otherwise, <see langword="False"/>.
    ''' </returns>
    <
        Bindable(True), SettingsBindable(True),
        DefaultValue(False),
        RefreshProperties(RefreshProperties.All),
        Category("Appearance"), Description("Specifies whether this control is in the checked state.")
    >
    Public Property Checked As Boolean
        Get
            Return Me.Control.Checked
        End Get
        Set(value As Boolean)
            Me.Control.Checked = value
        End Set
    End Property
 
    ''' <summary>
    ''' Gets or sets the checked state of this <see cref="ToolStripCheckBox"/>.
    ''' </summary>
    ''' 
    ''' <returns>
    ''' One of the <see cref="System.Windows.Forms.CheckState"/> enumeration values. 
    ''' <para></para>
    ''' The default value is <see cref="System.Windows.Forms.CheckState.Unchecked"/>.
    ''' </returns>
    ''' 
    ''' <exception cref="System.ComponentModel.InvalidEnumArgumentException">
    ''' The value assigned is not one of the <see cref="System.Windows.Forms.CheckState"/> enumeration values.
    ''' </exception>
    <
        Bindable(True),
        DefaultValue(CheckState.Unchecked),
        RefreshProperties(RefreshProperties.All),
        Category("Appearance"), Description("Specifies the checked state of this control.")
    >
    Public Property CheckState As CheckState
        Get
            Return Me.Control.CheckState
        End Get
        Set(value As CheckState)
            Me.Control.CheckState = value
        End Set
    End Property
 
    ''' <summary>
    ''' Gets or sets a value indicating whether this <see cref="ToolStripCheckBox"/> 
    ''' will allow three check states rather than two.
    ''' </summary>
    ''' 
    ''' <remarks>
    ''' If the <see cref="ToolStripCheckBox.ThreeState"/> property is set to <see langword="False"/>, 
    ''' the <see cref="ToolStripCheckBox.CheckState"/> property value can only be set to 
    ''' the <see cref="System.Windows.Forms.CheckState.Indeterminate"/> value in code, 
    ''' and not by user interaction doing click on the control.
    ''' </remarks>
    ''' 
    ''' <returns>
    ''' <see langword="True"/> if this <see cref="ToolStripCheckBox"/> 
    ''' is able to display three check states; otherwise, <see langword="False"/>.
    ''' <para></para>
    ''' The default value is <see langword="False"/>.
    ''' </returns>
    <
        DefaultValue(False),
        Category("Behavior"), Description("Specifies whether this control will allow three check states rather than two.")
    >
    Public Property ThreeState As Boolean
        Get
            Return Me.Control.ThreeState
        End Get
        Set(value As Boolean)
            Me.Control.ThreeState = value
        End Set
    End Property
 
#End Region
 
#Region " Events "
 
    ''' <summary>
    ''' Occurs whenever the <see cref="ToolStripCheckBox.Checked"/> property is changed.
    ''' </summary>
    Public Event CheckedChanged As EventHandler
 
    ''' <summary>
    ''' Occurs whenever the <see cref="ToolStripCheckBox.CheckState"/> property is changed.
    ''' </summary>
    Public Event CheckStateChanged As EventHandler
 
#End Region
 
#Region " Constructors "
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="ToolStripCheckBox"/> class.
    ''' </summary>
    Public Sub New()
 
        MyBase.New(New CheckBox())
        Me.Control.BackColor = Color.Transparent
    End Sub
 
#End Region
 
#Region " Event Invocators "
 
    ''' <summary>
    ''' Raises the <see cref="ToolStripCheckBox.CheckedChanged"/> event.
    ''' </summary>
    ''' 
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="EventArgs"/> instance containing the event data.
    ''' </param>
    Private Sub OnCheckedChanged(sender As Object, e As EventArgs)
        If Me.CheckedChangedEvent IsNot Nothing Then
            RaiseEvent CheckedChanged(Me, e)
        End If
    End Sub
 
    ''' <summary>
    ''' Raises the <see cref="ToolStripCheckBox.CheckStateChanged"/> event.
    ''' </summary>
    ''' 
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="EventArgs"/> instance containing the event data.
    ''' </param>
    Private Sub OnCheckStateChanged(sender As Object, e As EventArgs)
        If Me.CheckStateChangedEvent IsNot Nothing Then
            RaiseEvent CheckStateChanged(Me, e)
        End If
    End Sub
 
#End Region
 
#Region " Event Invocators (Overriden) "
 
    ''' <summary>
    ''' Subscribes events from the hosted control
    ''' </summary>
    ''' 
    ''' <param name="control">
    ''' The control from which to subscribe events.
    ''' </param>
    Protected Overrides Sub OnSubscribeControlEvents(control As Control)
        MyBase.OnSubscribeControlEvents(control)
        AddHandler DirectCast(control, CheckBox).CheckedChanged, AddressOf Me.OnCheckedChanged
    End Sub
 
    ''' <summary>
    ''' Unsubscribes events from the hosted control
    ''' </summary>
    ''' 
    ''' <param name="control">
    ''' The control from which to unsubscribe events.
    ''' </param>
    Protected Overrides Sub OnUnsubscribeControlEvents(control As Control)
        MyBase.OnUnsubscribeControlEvents(control)
        RemoveHandler DirectCast(control, CheckBox).CheckedChanged, AddressOf Me.OnCheckedChanged
    End Sub
 
    ''' <summary>
    ''' Raises the <see cref="Windows.Forms.Control.ParentChanged"/> event.
    ''' </summary>
    ''' 
    ''' <param name="oldParent">
    ''' The original parent of the item.
    ''' </param>
    ''' 
    ''' <param name="newParent">
    ''' The new parent of the item.
    ''' </param>
    Protected Overrides Sub OnParentChanged(oldParent As ToolStrip, newParent As ToolStrip)
        MyBase.OnParentChanged(oldParent, newParent)
    End Sub
 
    ''' <summary>
    ''' Raises the <see cref="ToolStripItem.OwnerChanged"/> event.
    ''' </summary>
    ''' 
    ''' <param name="e">
    ''' The <see cref="EventArgs"/> instance containing the event data.
    ''' </param>
    Protected Overrides Sub OnOwnerChanged(e As EventArgs)
        MyBase.OnOwnerChanged(e)
    End Sub
 
#End Region
 
End Class
 
#End Region

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 12-April-2024
' ***********************************************************************
 
#Region " Public Members Summary "
 
' ToolStrip.ForEachItem(Boolean, Action(Of ToolStripItem))
' ToolStrip.ForEachItem(Of T As ToolStripItem)(Boolean, Action(Of T))
 
#End Region
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.Generic
Imports System.Linq
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
 
#If Not NETCOREAPP Then
Imports DevCase.ProjectMigration
#Else
Imports System.Runtime.Versioning
#End If
#End Region
 
#Region " ToolStrip Extensions "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Extensions.ToolStripExtensions
 
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Provides custom extension methods to use with <see cref="System.Windows.Forms.ToolStrip"/> class.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
<HideModuleName>
Public Module ToolStripExtensions
 
#Region " Public Extension Methods "
 
''' ---------------------------------------------------------------------------------------------------
''' <summary>
''' Iterates through all the items of the specified type within the source <see cref="ToolStrip"/> control, 
''' optionally recursively, and performs the specified action on each item.
''' </summary>
''' ---------------------------------------------------------------------------------------------------
''' <param name="toolStrip">
''' The <see cref="ToolStrip"/> control whose items are to be iterated.
''' </param>
''' 
''' <param name="recursive">
''' <see langword="True"/> to iterate recursively through all items 
''' (i.e., iterate the child items of child items); otherwise, <see langword="False"/>.
''' </param>
''' 
''' <param name="action">
''' The action to perform on each item.
''' </param>
''' ---------------------------------------------------------------------------------------------------
<Extension>
<DebuggerStepThrough>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Sub ForEachItem(toolStrip As ToolStrip, recursive As Boolean, action As Action(Of ToolStripItem))
    ToolStripExtensions.ForEachItem(Of ToolStripItem)(toolStrip, recursive, action)
End Sub
 
''' ---------------------------------------------------------------------------------------------------
''' <summary>
''' Iterates through all the items of the specified type within the source <see cref="ToolStrip"/> control, 
''' optionally recursively, and performs the specified action on each item.
''' </summary>
''' ---------------------------------------------------------------------------------------------------
''' <typeparam name="T">
''' The type of items to iterate through.
''' </typeparam>
''' 
''' <param name="toolStrip">
''' The <see cref="ToolStrip"/> control whose items are to be iterated.
''' </param>
''' 
''' <param name="recursive">
''' <see langword="True"/> to iterate recursively through all items 
''' (i.e., iterate the child items of child items); otherwise, <see langword="False"/>.
''' </param>
''' 
''' <param name="action">
''' The action to perform on each item.
''' </param>
''' ---------------------------------------------------------------------------------------------------
<Extension>
<DebuggerStepThrough>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Sub ForEachItem(Of T As ToolStripItem)(toolStrip As ToolStrip, recursive As Boolean, action As Action(Of T))
    If action Is Nothing Then
        Throw New ArgumentNullException(paramName:=NameOf(action), "Action cannot be null.")
    End If
 
    Dim queue As New Queue(Of ToolStripItem)
 
    ' First level items iteration.
    For Each item As ToolStripItem In toolStrip.Items
        If recursive Then
            queue.Enqueue(item)
        Else
            If TypeOf item Is T Then
                action.Invoke(DirectCast(item, T))
            End If
        End If
    Next item
 
    ' Recursive items iteration.
    While queue.Any()
        Dim currentItem As ToolStripItem = queue.Dequeue()
        If TypeOf currentItem Is T Then
            action.Invoke(DirectCast(currentItem, T))
        End If
 
        If TypeOf currentItem Is ToolStripDropDownItem Then
            Dim dropDownItem As ToolStripDropDownItem = DirectCast(currentItem, ToolStripDropDownItem)
            For Each subItem As ToolStripItem In dropDownItem.DropDownItems
                queue.Enqueue(subItem)
            Next subItem
        End If
    End While
End Sub
 
#End Region
 
End Module
 
End Namespace
 
#End Region

<HideModuleName>
public module ControlExtensions
 
    ''' ---------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Iterates through all controls within a parent <see cref="Control"/>, 
    ''' optionally recursively, and performs the specified action on each control.
    ''' </summary>
    ''' ---------------------------------------------------------------------------------------------------
    ''' <param name="parentControl">
    ''' The parent <see cref="Control"/> whose child controls are to be iterated.
    ''' </param>
    ''' 
    ''' <param name="recursive">
    ''' <see langword="True"/> to iterate recursively through all child controls 
    ''' (i.e., iterate the child controls of child controls); otherwise, <see langword="False"/>.
    ''' </param>
    ''' 
    ''' <param name="action">
    ''' The action to perform on each control.
    ''' </param>
    ''' ---------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <Extension>
    <EditorBrowsable(EditorBrowsableState.Always)>
    Public Sub ForEachControl(parentControl As Control, recursive As Boolean, action As Action(Of Control))
        ControlExtensions.ForEachControl(Of Control)(parentControl, recursive, action)
    End Sub
 
    ''' ---------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Iterates through all controls of the specified type within a parent <see cref="Control"/>, 
    ''' optionally recursively, and performs the specified action on each control.
    ''' </summary>
    ''' ---------------------------------------------------------------------------------------------------
    ''' <typeparam name="T">
    ''' The type of child controls to iterate through.
    ''' </typeparam>
    ''' 
    ''' <param name="parentControl">
    ''' The parent <see cref="Control"/> whose child controls are to be iterated.
    ''' </param>
    ''' 
    ''' <param name="recursive">
    ''' <see langword="True"/> to iterate recursively through all child controls 
    ''' (i.e., iterate the child controls of child controls); otherwise, <see langword="False"/>.
    ''' </param>
    ''' 
    ''' <param name="action">
    ''' The action to perform on each control.
    ''' </param>
    ''' ---------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <Extension>
    <EditorBrowsable(EditorBrowsableState.Always)>
    Public Sub ForEachControl(Of T As Control)(parentControl As Control, recursive As Boolean, action As Action(Of T))
 
        If TypeOf parentControl Is ToolStrip Then
            Throw New InvalidOperationException($"Not allowed. Please use method {NameOf(ToolStripExtensions.ForEachItem)} to iterate items of a {NameOf(ToolStrip)}, {NameOf(StatusStrip)}, {NameOf(MenuStrip)} or {NameOf(Control.ContextMenuStrip)} controls.")
        End If
 
        If action Is Nothing Then
            Throw New ArgumentNullException(paramName:=NameOf(action), "Action cannot be null.")
        End If
 
        Dim queue As New Queue(Of Control)
 
        ' First level items iteration.
        For Each control As Control In parentControl.Controls
            If recursive Then
                queue.Enqueue(control)
            Else
                If TypeOf control Is T Then
                    action.Invoke(DirectCast(control, T))
                End If
            End If
        Next control
 
        ' Recursive items iteration.
        While queue.Any()
            Dim currentControl As Control = queue.Dequeue()
            If TypeOf currentControl Is T Then
                action.Invoke(DirectCast(currentControl, T))
            End If
 
            For Each childControl As Control In currentControl.Controls
                queue.Enqueue(childControl)
            Next childControl
        End While
 
    End Sub
 
end module

TabControl1.DisableTabs(TabPage1, TabPage2)

TabControl1.EnableTabs(TabPage1, TabPage2)

Imports System.Runtime.CompilerServices
 
''' <summary>
''' Provides extension methods for a <see cref="TabControl"/> control.
''' </summary>
<HideModuleName>
Public Module TabControlExtensions
 
    ''' <summary>
    ''' Collection used to store tab pages whose tab header need to remain disabled on a <see cref="TabControl"/>.
    ''' <para></para>
    ''' This collection depends on <see cref="TabControlExtensions.DisableOrEnableTabs_Internal"/> method.
    ''' </summary>
    Private disabledTabs As HashSet(Of TabPage)
 
    ''' <summary>
    ''' Collection used to store tab controls whose its <see cref="TabControl.Selecting"/> event
    ''' has been associated to <see cref="TabControlExtensions.disableTabPageHandler"/>.
    ''' <para></para>
    ''' This collection depends on <see cref="TabControlExtensions.DisableOrEnableTabs_Internal"/> method.
    ''' </summary>
    Private tabHandlerAddedControls As HashSet(Of TabControl)
 
    ''' <summary>
    ''' A <see cref="TabControlCancelEventHandler"/> delegate used for disabling tabs on a <see cref="TabControl"/>.
    ''' <para></para>
    ''' This handler depends on <see cref="TabControlExtensions.DisableOrEnableTabs_Internal"/> method.
    ''' </summary>
    Private tabDisablerHandler As TabControlCancelEventHandler
 
    ''' <summary>
    ''' Disables one or multiple <see cref="TabPage"/>, 
    ''' making the tabs unselectable in the source <see cref="TabControl"/>.
    ''' </summary>
    ''' 
    ''' <param name="tabControl">
    ''' The source <see cref="TabControl"/>.
    ''' </param>
    ''' 
    ''' <param name="tabPages">
    ''' An Array of <see cref="TabPage"/> to disable.
    ''' </param>
    <Extension>
    <DebuggerStepThrough>
    Public Sub DisableTabs(tabControl As TabControl, ParamArray tabPages As TabPage())
        TabControlExtensions.DisableOrEnableTabs_Internal(tabControl, enabled:=False, tabPages)
    End Sub
 
    ''' <summary>
    ''' Enables one or multiple <see cref="TabPage"/> that were previously 
    ''' disabled by a call to <see cref="TabControlExtensions.DisableTabPages"/> method, 
    ''' making the tabs selectable again in the source <see cref="TabControl"/>.
    ''' </summary>
    ''' 
    ''' <param name="tabControl">
    ''' The source <see cref="TabControl"/>.
    ''' </param>
    ''' 
    ''' <param name="tabPages">
    ''' An Array of <see cref="TabPage"/> to enable.
    ''' </param>
    <Extension>
    <DebuggerStepThrough>
    Public Sub EnableTabs(tabControl As TabControl, ParamArray tabPages As TabPage())
        TabControlExtensions.DisableOrEnableTabs_Internal(tabControl, enabled:=True, tabPages)
    End Sub
 
    ''' <summary>
    ''' *** FOR INTERNAL USE ONLY ***
    ''' <para></para>
    ''' Disables or enables one or multiple <see cref="TabPage"/>, 
    ''' denying or allowing their tab selection in the source <see cref="TabControl"/>.
    ''' </summary>
    ''' 
    ''' <param name="tabControl">
    ''' The source <see cref="TabControl"/>.
    ''' </param>
    ''' 
    ''' <param name="enabled">
    ''' If <see langword="False"/>, disables the tab pages and make them unselectable in the source <see cref="TabControl"/>; 
    ''' otherwise, enable the tab pages and allows to be selected in the source <see cref="TabControl"/>.
    ''' </param>
    ''' 
    ''' <param name="tabPages">
    ''' An Array of the tab pages to disable or enable.
    ''' </param>
    <DebuggerStepThrough>
    Private Sub DisableOrEnableTabs_Internal(tabControl As TabControl, enabled As Boolean, ParamArray tabPages As TabPage())
        If tabControl Is Nothing Then
            Throw New ArgumentNullException(paramName:=NameOf(tabControl))
        End If
        If tabPages Is Nothing Then
            Throw New ArgumentNullException(paramName:=NameOf(tabPages))
        End If
 
        ' Initialize collections.
        If TabControlExtensions.disabledTabs Is Nothing Then
            TabControlExtensions.disabledTabs = New HashSet(Of TabPage)
        End If
        If TabControlExtensions.tabHandlerAddedControls Is Nothing Then
            TabControlExtensions.tabHandlerAddedControls = New HashSet(Of TabControl)
        End If
 
        ' Initialize handler.
        If TabControlExtensions.tabDisablerHandler Is Nothing Then
            TabControlExtensions.tabDisablerHandler =
                Sub(sender As Object, e As TabControlCancelEventArgs)
                    If e.TabPageIndex < 0 Then
                        Exit Sub
                    End If
 
                    Select Case e.Action
                        Case TabControlAction.Selecting, TabControlAction.Selected
                            e.Cancel = TabControlExtensions.disabledTabs.Contains(e.TabPage)
                        Case Else
                            Exit Sub
                    End Select
                End Sub
        End If
 
        For Each tabPage As TabPage In tabPages
            If tabPage Is Nothing Then
                Throw New NullReferenceException($"{NameOf(tabPage)} object is null.")
            End If
 
            ' Disable or enable the tab page.
            tabPage.Enabled = enabled
 
            If Not enabled Then ' Disable the tab header.
                Dim success As Boolean = disabledTabs.Add(tabPage)
                If success AndAlso Not TabControlExtensions.tabHandlerAddedControls.Contains(tabControl) Then
                    AddHandler tabControl.Selecting, TabControlExtensions.tabDisablerHandler
                    TabControlExtensions.tabHandlerAddedControls.Add(tabControl)
                End If
            Else ' Enable the tab header.
                Dim success As Boolean = disabledTabs.Remove(tabPage)
                If success AndAlso TabControlExtensions.tabHandlerAddedControls.Contains(tabControl) AndAlso
                               Not TabControlExtensions.disabledTabs.Any() Then
                    RemoveHandler tabControl.Selecting, TabControlExtensions.tabDisablerHandler
                    TabControlExtensions.tabHandlerAddedControls.Remove(tabControl)
                End If
            End If
        Next tabPage
 
    End Sub
 
End Module

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 19-April-2024
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.ComponentModel
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports System.Windows.Forms.Design
 
#End Region
 
#Region " ToolStripNumericUpDown "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.UI.Components
 
    ''' <summary>
    ''' Represents a selectable Windows spin box <see cref="ToolStripItem"/> that displays numeric values.
    ''' </summary>
    ''' <seealso cref="ToolStripControlHost"/>
    <
        ComVisible(True),
        DebuggerStepThrough,
        DefaultEvent(NameOf(ToolStripNumericUpDown.ValueChanged)),
        DefaultProperty(NameOf(ToolStripNumericUpDown.Value)),
        DefaultBindingProperty(NameOf(ToolStripNumericUpDown.Value)),
        Description("Represents a selectable Windows spin box ToolStripItem that displays numeric values."),
        Designer("System.Windows.Forms.Design.ToolStripItemDesigner, System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),
        DesignerCategory(NameOf(DesignerCategoryAttribute.Generic)),
        DesignTimeVisible(False),
        DisplayName(NameOf(ToolStripNumericUpDown)),
        Localizable(True),
        ToolboxBitmap(GetType(NumericUpDown), "NumericUpDown.bmp"),
        ToolboxItem(False),
        ToolboxItemFilter("System.Windows.Forms", ToolboxItemFilterType.Allow),
        ToolStripItemDesignerAvailability(ToolStripItemDesignerAvailability.ToolStrip Or ToolStripItemDesignerAvailability.StatusStrip)
    >
    Public Class ToolStripNumericUpDown : Inherits ToolStripControlHost
 
#Region " Properties "
 
        ''' <summary>
        ''' Gets the <see cref="NumericUpDown"/> control that is hosted by this <see cref="ToolStripNumericUpDown"/>.
        ''' </summary>
        <
            Browsable(True), EditorBrowsable(EditorBrowsableState.Advanced),
            DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),
            Category("Components"), Description("The NumericUpDown control that is hosted by this control.")
        >
        Public Shadows ReadOnly Property Control As NumericUpDown
            Get
                Return DirectCast(MyBase.Control, NumericUpDown)
            End Get
        End Property
 
        ''' <summary>
        ''' Gets or sets the numeric value assigned to this <see cref="ToolStripNumericUpDown"/>.
        ''' </summary>
        ''' 
        ''' <value>
        ''' The numeric value assigned to this <see cref="ToolStripNumericUpDown"/>.
        ''' </value>
        <
            Bindable(True),
            DefaultValue(0D),
            Category("Appearance"), Description("The numeric value assigned to this control.")
        >
        Public Property Value As Decimal
            Get
                Return Me.Control.Value
            End Get
            Set(value As Decimal)
                Me.Control.Value = value
            End Set
        End Property
 
        ''' <summary>
        ''' Gets or sets the text to be displayed in this <see cref="ToolStripNumericUpDown"/>.
        ''' </summary>
        ''' 
        ''' <value>
        ''' The text to be displayed in this <see cref="ToolStripNumericUpDown"/>.
        ''' </value>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Bindable(False),
            DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),
            Category("Behavior"), Description("The text to be displayed in this control.")
        >
        Public Overrides Property Text As String
            Get
                Return Me.Control.Text
            End Get
            Set(value As String)
                Me.Control.Text = value
            End Set
        End Property
 
        ''' <summary>
        ''' This property is not applicable for this control.
        ''' </summary>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Category("Not Applicable"), Description("This property is not applicable for this control.")
        >
        Public Overrides Property BackgroundImage As Image
            Get
                Return Nothing
            End Get
            Set(value As Image)
                MyBase.BackgroundImage = Nothing
            End Set
        End Property
 
        ''' <summary>
        ''' This property is not applicable for this control.
        ''' </summary>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Category("Not Applicable"), Description("This property is not applicable for this control.")
        >
        Public Overrides Property BackgroundImageLayout As ImageLayout
            Get
                Return MyBase.BackgroundImageLayout
            End Get
            Set(value As ImageLayout)
                MyBase.BackgroundImageLayout = value
            End Set
        End Property
 
        ''' <summary>
        ''' This property is not applicable for this control.
        ''' </summary>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Category("Not Applicable"), Description("This property is not applicable for this control.")
        >
        Public Overrides Property Image As Image
            Get
                Return Nothing
            End Get
            Set(value As Image)
                MyBase.Image = Nothing
            End Set
        End Property
 
#End Region
 
#Region " Events "
 
        ''' <summary>
        ''' Occurs whenever the <see cref="ToolStripNumericUpDown.Value"/> property is changed.
        ''' </summary>
        <
            Category("Action"), Description("Occurs whenever the Value property is changed.")
        >
        Public Event ValueChanged As EventHandler
 
#End Region
 
#Region " Constructors "
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="ToolStripNumericUpDown"/> class.
        ''' </summary>
        Public Sub New()
            MyBase.New(ToolStripNumericUpDown.CreateControlInstance())
        End Sub
 
#End Region
 
#Region " Event Invocators "
 
        ''' <summary>
        ''' Raises the <see cref="ToolStripNumericUpDown.ValueChanged"/> event.
        ''' </summary>
        ''' 
        ''' <param name="sender">
        ''' The source of the event.
        ''' </param>
        ''' 
        ''' <param name="e">
        ''' The <see cref="EventArgs"/> instance containing the event data.
        ''' </param>
        Private Sub OnValueChanged(sender As Object, e As EventArgs)
            If Me.ValueChangedEvent IsNot Nothing Then
                RaiseEvent ValueChanged(Me, e)
            End If
        End Sub
 
#End Region
 
#Region " Event Invocators (Overriden) "
 
        ''' <summary>
        ''' Subscribes events from the hosted control
        ''' </summary>
        ''' 
        ''' <param name="control">
        ''' The control from which to subscribe events.
        ''' </param>
        Protected Overrides Sub OnSubscribeControlEvents(control As Control)
            MyBase.OnSubscribeControlEvents(control)
 
            AddHandler DirectCast(control, NumericUpDown).ValueChanged, AddressOf Me.OnValueChanged
        End Sub
 
        ''' <summary>
        ''' Unsubscribes events from the hosted control
        ''' </summary>
        ''' 
        ''' <param name="control">
        ''' The control from which to unsubscribe events.
        ''' </param>
        Protected Overrides Sub OnUnsubscribeControlEvents(control As Control)
            MyBase.OnUnsubscribeControlEvents(control)
 
            RemoveHandler DirectCast(control, NumericUpDown).ValueChanged, AddressOf Me.OnValueChanged
        End Sub
 
#End Region
 
#Region " Private Methods "
 
        ''' <summary>
        ''' Creates the control instance.
        ''' </summary>
        ''' 
        ''' <returns>
        ''' The control.
        ''' </returns>
        Private Shared Function CreateControlInstance() As Control
            Return New NumericUpDown() With {.AutoSize = True}
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 19-April-2024
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.ComponentModel
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports System.Windows.Forms.Design
 
#End Region
 
#Region " ToolStripTrackBar "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.UI.Components
 
    ''' <summary>
    ''' Represents a selectable track bar <see cref="ToolStripItem"/>.
    ''' </summary>
    ''' <seealso cref="ToolStripControlHost"/>
    <
        ComVisible(True),
        DebuggerStepThrough,
        DefaultEvent(NameOf(ToolStripTrackBar.Scroll)),
        DefaultProperty(NameOf(ToolStripTrackBar.Value)),
        DefaultBindingProperty(NameOf(ToolStripTrackBar.Value)),
        Description("Represents a selectable track bar ToolStripItem."),
        Designer("System.Windows.Forms.Design.ToolStripItemDesigner, System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),
        DesignerCategory(NameOf(DesignerCategoryAttribute.Generic)),
        DesignTimeVisible(False),
        DisplayName(NameOf(ToolStripTrackBar)),
        Localizable(True),
        ToolboxBitmap(GetType(TrackBar), "TrackBar.bmp"),
        ToolboxItem(False),
        ToolboxItemFilter("System.Windows.Forms", ToolboxItemFilterType.Allow),
        ToolStripItemDesignerAvailability(ToolStripItemDesignerAvailability.ToolStrip Or ToolStripItemDesignerAvailability.StatusStrip)
    >
    Public Class ToolStripTrackBar : Inherits ToolStripControlHost
 
#Region " Properties "
 
        ''' <summary>
        ''' Gets the <see cref="TrackBar"/> control that is hosted by this <see cref="ToolStripTrackBar"/>.
        ''' </summary>
        <
            Browsable(True), EditorBrowsable(EditorBrowsableState.Advanced),
            DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),
            Category("Components"), Description("The TrackBar control that is hosted by this control.")
        >
        Public Shadows ReadOnly Property Control As TrackBar
            Get
                Return DirectCast(MyBase.Control, TrackBar)
            End Get
        End Property
 
        ''' <summary>
        ''' Gets or sets a numeric value that represents the current position of the scroll box on this <see cref="ToolStripTrackBar"/>.
        ''' </summary>
        ''' 
        ''' <value>
        ''' The numeric value that represents the current position of the scroll box on this <see cref="ToolStripTrackBar"/>.
        ''' </value>
        <
            Bindable(True),
            DefaultValue(0I),
            Category("Behavior"), Description("The numeric value that represents the current position of the scroll box on this control.")
        >
        Public Property Value As Integer
            Get
                Return Me.Control.Value
            End Get
            Set(value As Integer)
                Me.Control.Value = value
            End Set
        End Property
 
        ''' <summary>
        ''' Gets or sets the lower limit of the range this <see cref="ToolStripTrackBar"/> is working with.
        ''' </summary>
        ''' 
        ''' <value>
        ''' The minimum value for this <see cref="ToolStripTrackBar"/>. The default is 0.
        ''' </value>
        <
            Bindable(True),
            DefaultValue(0I),
            RefreshProperties(RefreshProperties.All),
            Category("Behavior"), Description("The minimum value for this control.")
        >
        Public Property Minimum As Integer
            Get
                Return Me.Control.Minimum
            End Get
            Set(value As Integer)
                Me.Control.Minimum = value
            End Set
        End Property
 
        ''' <summary>
        ''' Gets or sets the upper limit of the range this <see cref="ToolStripTrackBar"/> is working with.
        ''' </summary>
        ''' 
        ''' <value>
        ''' The maximum value for this <see cref="ToolStripTrackBar"/>. The default is 10.
        ''' </value>
        <
            Bindable(True),
            DefaultValue(10I),
            RefreshProperties(RefreshProperties.All),
            Category("Behavior"), Description("The maximum value for this control.")
        >
        Public Property Maximum As Integer
            Get
                Return Me.Control.Maximum
            End Get
            Set(value As Integer)
                Me.Control.Maximum = value
            End Set
        End Property
 
        ''' <summary>
        ''' This property is not applicable for this control.
        ''' </summary>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Category("Not Applicable"), Description("This property is not applicable for this control.")
        >
        Public Overrides Property BackgroundImage As Image
            Get
                Return Nothing
            End Get
            Set(value As Image)
                MyBase.BackgroundImage = Nothing
            End Set
        End Property
 
        ''' <summary>
        ''' This property is not applicable for this control.
        ''' </summary>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Category("Not Applicable"), Description("This property is not applicable for this control.")
        >
        Public Overrides Property BackgroundImageLayout As ImageLayout
            Get
                Return MyBase.BackgroundImageLayout
            End Get
            Set(value As ImageLayout)
                MyBase.BackgroundImageLayout = value
            End Set
        End Property
 
        ''' <summary>
        ''' This property is not applicable for this control.
        ''' </summary>
        <
            Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
            Category("Not Applicable"), Description("This property is not applicable for this control.")
        >
        Public Overrides Property Image As Image
            Get
                Return Nothing
            End Get
            Set(value As Image)
                MyBase.Image = Nothing
            End Set
        End Property
 
#End Region
 
#Region " Events "
 
        ''' <summary>
        ''' Occurs when either a mouse or keyboard action moves the scroll box.
        ''' </summary>
        <
            Category("Behavior"), Description("Occurs when either a mouse or keyboard action moves the scroll box.")
        >
        Public Event Scroll As EventHandler
 
        ''' <summary>
        ''' Occurs when the <see cref="ToolStripTrackBar.Value"/> property changes, 
        ''' either by movement of the scroll box or by manipulation in code.
        ''' </summary>
        <
            Category("Action"), Description("Occurs when the Value property changes, either by movement of the scroll box or by manipulation in code.")
        >
        Public Event ValueChanged As EventHandler
 
#End Region
 
#Region " Constructors "
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="ToolStripTrackBar"/> class.
        ''' </summary>
        Public Sub New()
            MyBase.New(ToolStripTrackBar.CreateControlInstance())
        End Sub
 
#End Region
 
#Region " Event Invocators "
 
        ''' <summary>
        ''' Raises the <see cref="ToolStripTrackBar.Scroll"/> event.
        ''' </summary>
        ''' 
        ''' <param name="sender">
        ''' The source of the event.
        ''' </param>
        ''' 
        ''' <param name="e">
        ''' The <see cref="EventArgs"/> instance containing the event data.
        ''' </param>
        Private Sub OnScroll(sender As Object, e As EventArgs)
            If Me.ScrollEvent IsNot Nothing Then
                RaiseEvent Scroll(Me, e)
            End If
        End Sub
 
        ''' <summary>
        ''' Raises the <see cref="ToolStripTrackBar.Scroll"/> event.
        ''' </summary>
        ''' 
        ''' <param name="sender">
        ''' The source of the event.
        ''' </param>
        ''' 
        ''' <param name="e">
        ''' The <see cref="EventArgs"/> instance containing the event data.
        ''' </param>
        Private Sub OnValueChanged(sender As Object, e As EventArgs)
            If Me.ValueChangedEvent IsNot Nothing Then
                RaiseEvent ValueChanged(Me, e)
            End If
        End Sub
 
#End Region
 
#Region " Event Invocators (Overriden) "
 
        ''' <summary>
        ''' Subscribes events from the hosted control
        ''' </summary>
        ''' 
        ''' <param name="control">
        ''' The control from which to subscribe events.
        ''' </param>
        Protected Overrides Sub OnSubscribeControlEvents(control As Control)
            MyBase.OnSubscribeControlEvents(control)
 
            AddHandler DirectCast(control, TrackBar).Scroll, AddressOf Me.OnScroll
            AddHandler DirectCast(control, TrackBar).ValueChanged, AddressOf Me.OnValueChanged
        End Sub
 
        ''' <summary>
        ''' Unsubscribes events from the hosted control
        ''' </summary>
        ''' 
        ''' <param name="control">
        ''' The control from which to unsubscribe events.
        ''' </param>
        Protected Overrides Sub OnUnsubscribeControlEvents(control As Control)
            MyBase.OnUnsubscribeControlEvents(control)
 
            RemoveHandler DirectCast(control, TrackBar).Scroll, AddressOf Me.OnScroll
            RemoveHandler DirectCast(control, TrackBar).ValueChanged, AddressOf Me.Onvaluechanged
        End Sub
 
#End Region
 
#Region " Private Methods "
 
        ''' <summary>
        ''' Creates the control instance.
        ''' </summary>
        ''' 
        ''' <returns>
        ''' The control.
        ''' </returns>
        Private Shared Function CreateControlInstance() As Control
            Using ts As New ToolStrip()
                Return New TrackBar() With {
                    .AutoSize = False,
                    .Size = New Size(80, ts.Height)
                }
            End Using
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region