【VB.NET】Formの自動TabIndex設定

フォームのコントロールのタブインデックス設定は結構面倒です。
自分的には決まり切った規則があるにも関わらず、
同じ作業の繰り返しなのでかなり面倒です。

決まり切った規則とは以下の通りです。
-----------------------------------------------------
第1条件　Top値の少ないコントロール
第2条件　Left値の少ないコントロール
※子コントロールを持つコントロールは内部も設定する
-----------------------------------------------------
この並び順でTabIndexを自動で設定してあげれば解決するんでないの、ということです。

ということで、以下の関数とプロパティを作成しました。
継承元のFormに設置してみてください。

#Region "自動タブインデックス設定"

    Private _SetAutoTabIndex As Boolean
    <System.ComponentModel.Category("追加プロパティ")> _
    <System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
    <System.ComponentModel.Description("Trueにすると画面の全コントロールのタブインデックスを自動で設定します。")> _
    Public Property SetAutoTabIndex() As Boolean
        Get
            Return _SetAutoTabIndex
        End Get
        Set(ByVal value As Boolean)
            _SetAutoTabIndex = value
            If _SetAutoTabIndex Then
                Dim UpdateCount As Integer
                UpdateCount = SettingAutoTabIndex(Me)
                MessageBox.Show(UpdateCount & "件のタブインデックスを自動設定しました。", "自動設定", MessageBoxButtons.OK, MessageBoxIcon.Information)
                _SetAutoTabIndex = False
            End If
        End Set
    End Property


    ''' <summary>
    ''' タブインデックスを自動で設定します。
    ''' </summary>
    ''' <param name="ControlsInObject">引数で渡されたコントロール(省略した場合はフォーム)</param>
    ''' <remarks></remarks>
    Public Function SettingAutoTabIndex(Optional ByVal ControlsInObject As Control = Nothing) As Integer
        If ControlsInObject Is Nothing Then
            ControlsInObject = Me
        End If
        Dim UpdateCount As Integer = 0
        Dim sl As New System.Collections.SortedList()

        ' ポジションが左上に近いコントロールから順にタブインデックスを設定する.優先順位は上、左の順
        For Each Ctrl As Control In ControlsInObject.Controls
            Try
                Select Case True
                    ' 子コントロールを持てるコントロール(タブ、パネル、グループボックス...)
                    Case HasChildControls(Ctrl)
                        sl.Add(Ctrl.Top.ToString.PadLeft(10, "0") & Ctrl.Left.ToString.PadLeft(10, "0"), Ctrl)
                        UpdateCount += SettingAutoTabIndex(Ctrl)

                    Case Else
                        sl.Add(Ctrl.Top.ToString.PadLeft(10, "0") & Ctrl.Left.ToString.PadLeft(10, "0"), Ctrl)

                End Select
            Catch ex As Exception

            End Try
        Next Ctrl
        ' タブインデックスを設定する
        For Idx As Integer = 0 To sl.Count - 1
            If CType(sl.GetByIndex(Idx), Control).TabIndex <> Idx Then
                CType(sl.GetByIndex(Idx), Control).TabIndex = Idx
                UpdateCount += 1
            End If
        Next Idx

        Return UpdateCount
    End Function
#End Region
#Region "子コントロールを持てるコントロールかどうかチェック"
    ''' <summary>
    ''' 子コントロールを持てるコントロールかどうかチェック
    ''' </summary>
    ''' <param name="Ctrl"></param>
    ''' <returns></returns>
    ''' <remarks>子コントロールを持てる場合、True。持てない場合、False</remarks>
    Public Function HasChildControls(ByVal Ctrl As Control) As Boolean
        Select Case True
            Case TypeOf Ctrl Is Panel, TypeOf Ctrl Is GroupBox, TypeOf Ctrl Is TabControl, TypeOf Ctrl Is UserControl
                Return True
            Case Else
                Return False
        End Select
    End Function
#End Region

-----------------------------------------------------
・SettingAutoTabIndex
タブインデックスを設定します。引数としてGroupBoxなど渡せばその内部のみTabIndexを設定します。

・HasChildControls
子コントロールを持っているコントロールかどうかチェックします。

・SetAutoTabIndex
プロパティとして実装しました。Booleanで持っていることに特に意味はありませんが、
Trueにしてみるとタブインデックスを自動設定し、Falseに戻ります。
（本当はプロパティグリッドにボタンを置きたいです）
-----------------------------------------------------



FormのSetAutoTabIndex　のプロパティをいじくるだけで自動でタブインデックスがデザイナ上で設定します。