ab.com コミュニティ

ありがとうございます！

Dim i As Long
For i=0 To 10
    SetWindowText(GetDlgItem(hMainWnd,Static1+i),Str$(i))
Next

Dim i As Long, Static_ID[9] As Long

Static_ID[0]=Static1:Static_ID[1]=Static2
Static_ID[2]=Static3:Static_ID[3]=Static4
Static_ID[4]=Static5:Static_ID[5]=Static6
Static_ID[6]=Static7:Static_ID[7]=Static8
Static_ID[8]=Static9:Static_ID[9]=Static10

For i=0 To 9
    SetWindowText(GetDlgItem(hMainWnd,Static_ID),Str$(i+1))
Next

これでどうでしょうか？

[code]Dim i As Long
For i=0 To 10
SetWindowText(GetDlgItem(hMainWnd,Static1+i),Str$(i))
Next[/code]

Static1～Static10は文字列ではなくConst命令で作成された定数なので
GetDlgItem()の第２パラメータにはStatic1などのIDをそのまま渡します。

上記のコードは、あくまでコントロールを作成した順がStatic1～Static10まで
連続に作成された場合にだけ使えるので、
コントロールが順番に連続に作成されていない場合、即ち
Static1→Button1→Static2→...
のように作成されている場合は、うまく動作するかは保障できませんので

少し面倒ですが下記のようにすると確実に動作すると思います。

[code]Dim i As Long, Static_ID[9] As Long

Static_ID[0]=Static1:Static_ID[1]=Static2
Static_ID[2]=Static3:Static_ID[3]=Static4
Static_ID[4]=Static5:Static_ID[5]=Static6
Static_ID[6]=Static7:Static_ID[7]=Static8
Static_ID[8]=Static9:Static_ID[9]=Static10

For i=0 To 9
SetWindowText(GetDlgItem(hMainWnd,Static_ID[i]),Str$(i+1))
Next[/code]

お久しぶりです。

例えば、Static１～１０くらいまでに１～１０の数字を表示させていのですが、このコードではうまくいきません。

[hide]Dim i As Long,temp As String
i=1

Do
temp="Static"&Str$(i)
SetWindowText(GetDlgItem(hMainWnd,temp),Str$(i))

If i=10 Then Exit Do
i=i+1
Loop[/hide]どのように改良すればいいのですか