テキストボックスコントロール配列を実行時に作成する

[戻る]
おっさん 2007/05/23(水) 00:58:15
VB6で、テキストボックスコントロールの配列を100個くらい実行時に作成したいのです
が、いい方法はないでしょうか? 教えてください。


ちなみに、下記のようなコードでテキストボックスのコントロール配列ElmBoxを作成し、
実行しましたが、.Index = i の箇所で、「実行時エラー382 Indexプロパティは実行時
には設定できません」というエラーになってしまいます。ガックシ。

For i = 0 To 10
    Form1.Controls.Add "VB.TextBox", "ElmBox"
    With Form1!ElmBox
        .Left = 100 + i * 10
        .Top = 100
        .Width = 100
        .Height = 50
        .Visible = True
        .Index = i
    End With
Next i

まに 2007/05/25(金) 12:06:01
フォーム上に、あらかじめ以下のテキストボックスを一つだけ配置しておき、

オブジェクト名:Text1
Index:0

以下のコードを実行すると、テキストボックスをコピーできます。

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 10
        Load Text1(i)                                               'テキストボ
ックスを生成
        Text1(i).Top = Text1(i - 1).Top + Text1(i - 1).Height       '生成したテ
キストボックスの表示位置を設定
        Text1(i).Visible = True                                     '生成したテ
キストボックスを表示
    Next i
End Sub

おっさん 2007/05/25(金) 13:17:43
有難うございます。
この方法で、PictureBoxも実行時に作ることができました。

おっさん 2007/05/25(金) 17:21:48
[[解決]]
問題解決しました。

古いスレッドには追加発言できません。