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
フォーム上に、あらかじめ以下のテキストボックスを一つだけ配置しておき、
オブジェクト名：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
有難うございます。
この方法で、PictureBoxも実行時に作ることができました。
問題解決しました。
返信する
最新の投稿: お久しぶりです、いかがお過ごしでしょうか。 最新のメンバー: gantez 最近の投稿 未読の投稿
