| 投稿日 | ： 2005/11/09(Wed) 17:07 |
| 投稿者 | ： じゃんぬねっと |
| Ｅメール | ： |
| ＵＲＬ | ： http://jeanne.wankuma.com/ |
| タイトル | ： Re^2: UserFormに動的にTextBoxを作成 |
> ' Load イベントで配列を動的に作成してフォームに加える
> Private Sub Form_Load()
> Dim i As Integer
>
> For i = 1 To 9
> ' Load ステートメントを使用してコントロールを作成する
> Call Load(Me.Text1(i))
>
> ' ここで、プロパティなどを必要に応じて設定します
> Me.Text1(i).Text = "Text" & CStr(i + 1)
> Me.Text1(i).Top = Me.Text1(0).Top + (240 * i)
>
> ' 初期値で False になっているので True にする
> Me.Text1(i).Visible = True
> Next i
> End Sub
どこかで見たことあるなぁと思ったら自分のでした。(私は天然かもw)
hhttp://jeanne.wankuma.com/tips/control/02-arraycontrol.html
Excel 2003 であれば、.NET の方を参考になるでしょうね。
と思ったら Me.Controls.Add については Blue さんが回答してましたか。