VBAでコントロールを動的に配置する方法

質問

VBAでコントロールを動的に配置する方法を教えて下さい。
フォームに n組のチェックボックスとテキストボックスを横方向に動的配置し、標準モジュールからチェックボックスを チェックボックス(x) x=1～n のように配列のような制御したいのです。
画像で見て頂くと、チェックボックスとテキストボックスが n によって縦方向に追加されるイメージです。
どなたか、お知恵を貸してください。

回答No.2

mt2015

私もあらかじめ作っておいてvisibleのTRUE/FALSEでやることをお勧めしますが
どうしてもというならばこんな感じでしょうか。
エラー処理等一切行っていないサンプルです。

Sub UserForm_Initialize()
　　n = 5
　　For i = 1 To n
　　　　Set myCheckBox = Me.Controls.Add("Forms.CheckBox.1")
　　　　With myCheckBox
　　　　　　.Height = 20
　　　　　　.Width = 20
　　　　　　.Left = 10
　　　　　　.Top = (i - 1) * .Height + 10
　　　　　　.Caption = ""
　　　　End With

　　　　Set myTextBox = Me.Controls.Add("Forms.TextBox.1")
　　　　With myTextBox
　　　　　　.Height = 20
　　　　　　.Width = 80
　　　　　　.Left = 30
　　　　　　.Top = (i - 1) * .Height + 10
　　　　End With
　　Next i
End Sub

お礼

ご回答ありがとうございます。
教えて頂いた方法を改良して、Nameプロパティに連番を設定してみました。
文字列処理が必要ですが、Nameプロパティを配列番号のように使用できるようになりました。

回答No.1

FEX2053

あの・・・複雑に考えなくても、ほとんどのオブジェクトには
.visibleプロパティがあって、そいつをTrue/Falseに設定することで
表示が見え隠れします。たとえば

textbox1.visible=False
textbox2.visible=True

と、ダイアログを.Showする前に設定すれば、テキストボックス１は
見えなくなりますし、テキストボックス２は見えるようになります。

この辺は、VBAでもVBでも同じような動きをしますので、こちらを
参考にしていただくといいかと思います。
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard17.htm

お礼

ご回答ありがとうございます。
最大数があらかじめ分かっているときは、良い方法ですね。
今後の参考にさせて頂きます。