投稿日	： 2006/04/24(Mon) 11:07
投稿者	： ふく
Ｅメール	：
ＵＲＬ	：
タイトル	： 現状報告　非コントロール配列のループ処理

改めまして、
Ｋ.Ｊ.Ｋさん、花ちゃんさん、Ｂｌｕｅさん、neptuneさん、Ｓａｙさん
回答ありがとうございました。

下記のコードで、今回の仕様変更は対応できそうです。
ありがとうございました。

Controls(i)で、コントロールを順次参照するとき、
参照する順序はどのように決まるのでしょうか？
また、順序の変更はできるのでしょうか？
恐れ入りますが、再びご教授お願いします。

順序は、貼り付け順でもなく、
コントロールの種類に分かれているでもなく…
TabIndex順でみなく…


以下、今回試作コード（どちらかを使う予定）

Private Sub Command1_Click()

Dim myCheck As Object
'Dim myCheck As CheckBox
Dim i As Long

    For i = Controls.Count - 1 To 0 Step -1

        If TypeName(Controls(i)) = "CheckBox" Then
            Set myCheck = Me.Controls(i)
                If myCheck.Value = 1 Then
                    MsgBox (myCheck.Name)
                End If
        End If
    Next i

End Sub

Private Sub Command2_Click()
Dim i As Long

For i = 1 To 8
    If Me.Controls("Check" & CStr(i)).Value = 1 Then
        MsgBox ("Check" & CStr(i))
    End If
Next i

End Sub

★ - 非コントロール配列のループ処理 - ふく 04/20-19:37No.6284
• Re: 非コントロール配列のループ処理 - K.J.K. 04/20-19:59 No.6285
• Re: 非コントロール配列のループ処理 - 花ちゃん 04/20-20:42 No.6286
• Re: 非コントロール配列のループ処理 - Blue 04/20-23:49 No.6287
• 取り急ぎお礼 - ふく 04/21-08:33 No.6288
  • Re: 取り急ぎお礼 - neptune 04/22-17:05 No.6296
    • Re^2: 取り急ぎお礼 - Say 04/23-13:13 No.6300
      • Re^3: 取り急ぎお礼 - Blue 04/23-19:43 No.6301
        • Re^4: 取り急ぎお礼 - neptune 04/23-20:49 No.6302
          • ＊＊＊型配列とコレクション？ - ふく 04/24-11:18 No.6304
• 現状報告　非コントロール配列のループ処理 - ふく 04/24-11:07 No.6303
  • Re: 現状報告　非コントロール配列のループ.. - ダンボ 04/24-16:20 No.6310
    • Re^2: 現状報告　非コントロール配列のルー.. - ふく 04/27-11:30 No.6344