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

皆さま、いつもお世話になっております。

この度は、皆さまに色々なアドバイスをもらいました結果
とりあえず、実現したい事は出来ました。

＞“なにを”教授して欲しいのでしょうか？フォームを設計した時点で入力エリアは
＞決まっています。それを列挙することの、何が解らないのでしょうか？
Jitta on the way　様のおっしゃる通り、フォームの設計を見直し
コントロールにパネルを１つ配置しチェックしたいコントロールを
中に入れ、ループを回す方法に変えました。
現在の私の力ではこの方法が１番安易で効率的だと考えた結果です。
導いて頂き、ありがとうございます。

また前述とは違い、戻り値を空白のテキストボックス数に変更しました。
コードは以下となります。

大変厚かましいですが、何かアドバイス頂けると非常に嬉しいです。。。
自信がないので・・・
お時間の許す限り、お付き合いください。
宜しくお願いいたします。　m(__)m

        public static int checkTextBox(Control c)
        {
            int cnt = 0;
            // c 内コントロールを列挙
            foreach (Control t in c.Controls)
            {
                if (!(t is TextBoxBase)) continue;
                if (string.IsNullOrEmpty(t.Text))
                {
                    cnt++;
                }
            }
            return cnt;
        }
        private void button2_Click(object sender, EventArgs e)
        {
            int i = checkTextBox(this.panel1);
            MessageBox.Show(i.ToString());
        }

■No86485 (shu さん) に返信


連続した時間（分）の最初のデータのみに '*' マークを付けることで、空白の対処活用をすることは出来ないでしょうか？

    Private Structure datF
        Dim Jikoku As String      '時刻 （実際は "2018/01/30 16:30:00" などの日付も入った文字列）
        Dim Suu1 As Integer       '数量1
        Dim Suu2 As Integer       '数量2
        Dim mark As String        '連続した時間の最初のデータのみに '*' マークを付ける。
    End Structure
    Dim Uridat(500) As datF
    Dim datS As Integer          



        ' 8:10〜8:45           
        For i = 10 To 45        ' 8:10〜8:45
            datS = datS + 1
            Uridat(datS).mark = " "
            Uridat(datS).Jikoku = $"8:{i:00}"    '時刻
            Uridat(datS).Suu1 = i * 10           '数量1
            Uridat(datS).Suu2 = i * 5            '数量2 

            Uridat(datS).mark = " "
            If i = 10 Then
                Uridat(datS).mark = "*"          ' "*" マーク
            End If
        Next

        ' 10:20〜11:55
        For i = 0 To 59        ' 10:20〜10:59
            datS = datS + 1
            Uridat(datS).Jikoku = $"10:{i:00}"     '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2

            Uridat(datS).mark = " "
            If i = 0 Then
                Uridat(datS).mark = "*"            ' "*" マーク
            End If
        Next
        For i = 0 To 55        ' 11:00〜11:55
            datS = datS + 1
            Uridat(datS).Jikoku = $"11:{i:00}"     '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2

            Uridat(datS).mark = " "
        Next