excel - 如何在vba中将文本框动态定位在另一个下方

Question

我正在开发一个用户窗体，每次单击命令按钮时都想在其中添加文本框。以下代码执行此操作:

Private Sub CommandButton1_Click()
    Dim editBox As Control   
    Set editBox = UserForm1.Controls.Add("Forms.TextBox.1")
End Sub

但是我想我只在点击时添加一个文本框，对吗？如果是这样，有没有办法在我点击 commandButton 时添加尽可能多的文本框？

另外，我的大问题是将添加的每个文本框放置在彼此下方，就像在列中一样。有没有办法做到这一点？
还是您建议我更改添加文本框的方式？

谢谢

Answer 1

排列动态创建的文本框

每次单击都会创建一个新的文本框，而不会为 .Top 分配(更改的)值。他们得到重叠的属性(property)。如果没有名称，您以后将无法引用它们。

Private Sub CommandButton2_Click()
    Static i
    Dim editBox As MSForms.Control
    Set editBox = Me.Controls.Add("Forms.TextBox.1")
    i = i + 1
    editBox.Name = "myBox" & i
    editBox.Top = i * editBox.Height
End Sub