| 投稿日 | ： 2005/11/09(Wed) 10:34 |
| 投稿者 | ： Blue |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: UserFormに動的にTextBoxを作成 |
> 動的にTextBoxを作る事は出来ないのでしょうか？？
Controls.Add メソッドを使います。
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 5
With Me.Controls.Add("Forms.TextBox.1", "TextBox" & i)
.Text = "Test" & i
.Top = 5 + 20 * (i - 1)
.Left = 10
.Height = 15
End With
Next
Me.Controls("TextBox5").Text = ""
End Sub
ただし、イベントが制御できるかは不明。