ピクチャーボックスを等間隔に連続表示するには？

解決

こわし 2007-02-28 00:26:07 No: 135548

ピクチャーボックスを連続表示させたいのですが、少し幅をあけたいのですが、どうしたらよろしいのでしょうか？あとその周りに1周り大き目のピクチャーボックスをフレームみたいに作ろうと思っているのですが、2個目以降の表示がキレイに重なってくれません。

途中までで詰まってます。

'ピクチャーボックスをiの分だけ連続表示
    Dim i As Long
    Dim j As Long
    For i = 1 To CHARA_ACOUNT_MAX - 1
        Load Picture1(i)
        Picture1(i).Visible = True
        Picture1(i).Left = Picture1(0).Left
        Picture1(i).Top = Picture1(i - 1).Top + Picture1(i - 1).Height
    Next i

'1の周りのフレーム用のピクチャー2を連続表示
    Dim s As Long
    For s = 0 To CHARA_ACOUNT_MAX - 1
        Load Picture2(s)
        Picture2(s).Visible = True
        Picture2(s).Left = Picture2(0).Left
        Picture2(s).Top = Picture2(s - 1).Top + Picture2(s - 1).Height
    Next s

誰かよかったら教えてください。

こわし 2007-02-28 01:16:09 No: 135549

すいません、解決いたしました。