Question

我正在处理一个用户窗体，我想在每次单击命令按钮时添加文本框。下面的代码可以做到这一点：

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

但是我认为我在点击时仅添加一个文本框，对吗？如果是这样，是否有一种方法可以添加与单击commandButton一样多的文本框？

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

谢谢

Answer 1

安排即时创建的文本框

每次单击都会创建一个新的textBox，而不会为它们重叠的.Top属性分配（更改）值。没有名称，您以后将无法再引用它们。

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

如何在VBA中将文本框一个一个地动态定位

1 个答案: