C# と VB.NET の質問掲示板

分類を間違えたので変更

開発環境:Win7
言語:.net2005

先日は、ありがとうございました。

今回は、参照ボタンを押下した場合に、タブコントロールの中のスクロールパネル上のパネル内のコントロールのみ非活性にしたいのですが、フォーム上のコントロールを全て取得する下記コードからパネル上のコントロールというのは振り分けできますでしょうか？

デザインではタブコントロール→スクロールパネル→パネル三層になっています。


   Public Shared Function CreateControlCollection(ByVal Container As Control) As Hashtable
        Dim Hash As New Hashtable

        Call AppendControlCollection(Container, Hash)

        Return Hash

    End Function

    Private Shared Sub AppendControlCollection(ByVal Container As Control, ByVal Hash As Hashtable)
        For Each oControl As Control In Container.Controls

            If oControl.Controls.Count > 0 Then
                Call AppendControlCollection(oControl, Hash)
            End If

            Hash(oControl.Name) = oControl

        Next

    End Sub

   Private Sub all()

        '全てのコントロールをハッシュテーブルに入れる。
        Dim MyControls As Hashtable = CreateControlCollection(Me)
        Dim oControl As Control
        'ハッシュテーブルの値をコントロールに変換する
        For Each oControl In MyControls.Values

            '非活性にする
            oControl.Enabled = False



        Next
    End Sub

■No74980 (優希（ゆき） さん) に返信

こんな感じでしょうか？
スクロールパネルとかスクロールパネルに直載っているものは対象になりませんが
大丈夫でしょうか？

For Each pnl1 in スクロールパネル.Controls.OfType(Of Panel)
    For Each CL in pnl1.Controls
        Select Case True
            Case 非活性化条件
                CL.Enabled = False
        End Select
または
　　　　CL.Enabled = Not Func非活性化条件(CL)
    Next
Next

Hongliangさん、キムさん、shuさん

回答有難うございました。

パネルでは問題ありと言われたため、パネル上のコントロールを検索して、
処理を行うことにしました。
また、テキストボックス等は読み取り専用ですることとの事でしたので、
キャストして、読み取り専用にしました。

次回もよろしくお願いします。

   Private Sub Control_Reference()

        '全てのコントロールをハッシュテーブルに入れる。
        Dim MyControls As Hashtable = CreateControlCollection(Me)
        Dim oControl As Control

        Try



            'ハッシュテーブルの値をコントロールに変換する
            For Each oControl In MyControls.Values
                '下記コントールを探す。
                If oControl.GetType Is GetType(独自コントロール名) Or oControl.GetType Is GetType(独自コントロール名) Or oControl.GetType Is GetType(独自コントロール名) Or oControl.GetType Is GetType(独自コントロール名) _
                Or oControl.GetType Is GetType(CheckBox) Or oControl.GetType Is GetType(Button) Or oControl.GetType Is GetType(RadioButton) Then

                    'テキストボックスか否か
                    If TryCast(oControl, 独自コントロール名) IsNot Nothing Then

                        DirectCast(oControl, 独自コントロール名).ReadOnly = True

                    ElseIf TryCast(oControl, 独自コントロール名) IsNot Nothing Then

                        DirectCast(oControl, 独自コントロール名).ReadOnly = True

                    ElseIf TryCast(oControl, 独自コントロール名) IsNot Nothing Then

                        DirectCast(oControl, 独自コントロール名).ReadOnly = True

                    ElseIf TryCast(oControl, 独自コントロール名) IsNot Nothing Then

                        DirectCast(oControl, 独自コントロール名).ReadOnly = True

                        'ラジオボタンかチェックボックスか否か
                    ElseIf TryCast(oControl, RadioButton) IsNot Nothing Or TryCast(oControl, CheckBox) IsNot Nothing Then

                        If TryCast(oControl, RadioButton) IsNot Nothing Then

                            DirectCast(oControl, RadioButton).AutoCheck = False

                        Else

                            DirectCast(oControl, CheckBox).AutoCheck = False

                        End If

                    ElseIf TryCast(oControl, Button) IsNot Nothing Then

                        DirectCast(oControl, Button).Enabled = False

                    ElseIf TryCast(oControl, DataGridViewPlus) IsNot Nothing Then

                        DirectCast(oControl, DataGridViewPlus).ReadOnly = False

                    Else

                        oControl.Enabled = False


                    End If

                End If

            Next


            'ボタンは全て非活性にしているので、しないものは解除する
            btn_Tbpage1.Enabled = True
            btn_Tbpage2.Enabled = True
            btn_Tbpage3.Enabled = True
            btn_Tbpage4.Enabled = True
            btn_Tbpage5.Enabled = True
            btn_Tbpage6.Enabled = True
            btn_Tbpage7.Enabled = True
            btn_close.Enabled = True
            btn_His.Enabled = True






        Catch ex As Exception
            ''--------------------
            '' エラーハンドリング
            ''--------------------
            Call gsub_ErrorHandring(ex)

        End Try
    End Sub


※独自コントロール名は伏せさせていただきました。

■No75031 (優希（ゆき） さん) に返信

For Each直下は

If TypeOf oControl is ControlType1 Then
    DirectCast(oControl, TypeControl1).ReadOnly = True
ElseIf TypeOf oControl is ControlType2 Then
    DirectCast(oControl, TypeControl2).ReadOnly = True
・・・
End If

の方がすっきりします。


また独自コントロールにこの制御用にインターフェースを実装するともっとすっきり
すると思います。

提示コードのIf条件はOrではなくOrElseを推奨します。