いつも利用させていただいています・
早速質問です。
表題にもあるうようにコントロールのプロパティを変数使ってループで
回せないかというものです。
あるコントール(名前をＡＡＡとします)があり
そのプロパティが(名前をｂｂｂとします)だったとします。
そのプロパティが、コントロール内で複数存在します。
例としては、ＡＡＡ.ｂｂｂ１
　　　　　　ＡＡＡ.ｂｂｂ２
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
　　　　　　ＡＡＡ.ｂｂｂＮ
となります。
このとき、プロパティをループで回す方法ってあるんでしょうか？
現在は、
　　　ＡＡＡ.ｂｂｂ１＝値
　　　ＡＡＡ.ｂｂｂ２＝値
というようにプロパティ数分書いています。
理想としては、これが
　　　ＦＯＲ　i＝１　TO　Ｎ
　　　　　ＡＡＡ.ｂｂｂ　＆　i＝値
　　　Ｎｅｘｔ　i
みたいに書けると大変助かるのですが。
どなたかご教授いただけると幸いです。
よろしくお願いします。

> あるコントール(名前をＡＡＡとします)があり
> そのプロパティが(名前をｂｂｂとします)だったとします。
> そのプロパティが、コントロール内で複数存在します。

整数を引数として受け取るプロパティ、たとえば
VB6 の ListBox の List プロパティなどは、このように書けますね。

Option Explicit

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 10
        List1.List(i) = "サンプル" & CStr(i)
    Next
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1 Step 2
        List1.List(i) = "偶数" & CStr(i)
    Next
End Sub



プロパティ名の末尾に 1 , 2 , 3 , …のような連番がつく形なら、
　'ＡＡＡ.ｂｂｂ1 = 値
　Call CallByName(ＡＡＡ, "ｂｂｂ" & CStr(n), VbLet, 値)
ですね。

引数付プロパティの場合は
　'ＡＡＡ.ｂｂｂ1(引数1, 引数2) = 値
　Call CallByName(ＡＡＡ, "ｂｂｂ" & CStr(n), VbLet, 引数1, 引数2, 値)
のような感じです。今回は引数無しのようですが。



> 例としては、ＡＡＡ.ｂｂｂ１

"ｂｂｂ1" ではなく
"ｂｂｂ１" なのですね？

ということは、全角変換も必要なので、
　Dim propName As String
　For n = 1 To N
　　propName = "ｂｂｂ" & StrConv(CStr(n), vbWide, &H411)
　　Call CallByName(ＡＡＡ, propName, VbLet, 値)
　Next
になりそうです。

魔界の仮面弁士さま、返信ありがとうございます。

> プロパティ名の末尾に 1 , 2 , 3 , …のような連番がつく形なら、
> 　'ＡＡＡ.ｂｂｂ1 = 値
> 　Call CallByName(ＡＡＡ, "ｂｂｂ" & CStr(n), VbLet, 値)
> ですね。
>
> 引数付プロパティの場合は
> 　'ＡＡＡ.ｂｂｂ1(引数1, 引数2) = 値
> 　Call CallByName(ＡＡＡ, "ｂｂｂ" & CStr(n), VbLet, 引数1, 引数2, 値)
> のような感じです。今回は引数無しのようですが。
なるほど〜。『CallByName』を使うのですね。
ＶＢを長年やってきてましたが、初めてお目にかかる関数です。
お恥ずかしい。
ちなみに、プロパティ名はすべて半角です。
投稿する際、見やすいと思って全角にしてしまいました。すいません。
ただ、全角だった場合の方法も知れたので幸いです。
早速、教えていただいた方法で試してみようと思います。
また、わからないことがあったらよろしくお願いします。

魔界の仮面弁士さま

いつもお世話になります。
教えていただいた方法を早速試してみました。
結果は、こちらが意図した通りになりました。
ありがとうございます。
これで、ステップ数が削減できるので大変助かります。
また、わからないことがありましたらよろしくお願いします。