テキストボックスコントロール配列を実行時に作成する – プログラミング – Home

テキストボックスコントロール配列を実行...
 
通知
すべてクリア

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


おっさん
 おっさん
(@おっさん)
ゲスト
結合: 17年前
投稿: 10
Topic starter  

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


引用未解決
トピックタグ
まに
 まに
(@まに)
ゲスト
結合: 17年前
投稿: 78
 

フォーム上に、あらかじめ以下のテキストボックスを一つだけ配置しておき、

オブジェクト名: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


返信引用
おっさん
 おっさん
(@おっさん)
ゲスト
結合: 17年前
投稿: 10
Topic starter  

有難うございます。
この方法で、PictureBoxも実行時に作ることができました。


返信引用
おっさん
 おっさん
(@おっさん)
ゲスト
結合: 17年前
投稿: 10
Topic starter  

問題解決しました。


返信引用

返信する

投稿者名

投稿者メールアドレス

タイトル *

プレビュー 0リビジョン 保存しました
共有:
タイトルとURLをコピーしました