将多个文本框添加到
你好我希望有人能帮忙。
我试图在表单中添加一个命令按钮。按下此按钮时，将显示无限数量（有理由）的文本框，称为TBxInt，可供用户输入。文本框“TBxInt”的数量取决于另一个名为TBxVal的文本框所持有的值。
对于eg
if TBxVal.value = “9” then create TBxInpt(0-9)
TBxInpt.width = 8
TBxInpt(0).left = 0
TBxInpt(1).left = 10
TBxInpt(2).left = 20
等等等等
然后，用户可以在每个文本框中输入值，这些值将用于进一步的计算。
如果有人知道这方面的任何示例或教程，我将不胜感激
非常感谢，
col公司 在VB中，这将被称为“控制数组”，它是内置的。
但是在VBA中，由于我们没有控件数组，我们将创建自己的控件数组。
'在空白VBA用户窗体中，输入以下代码，运行窗体，
'并单击表单，让其动态创建控件。
'----剪-----剪-----剪-----剪-----剪----
将cmdButton（）设置为MSForms。命令按钮
Private Sub UserForm_Click（）
Dim numButtons作为整数：numButtons=4
ReDim cmdButton（numButtons）
Dim I为整数
对于I=0到NUMBUTONS
'动态创建控件
设置cmdButton（I）=Me。控制。添加（“Forms.CommandButton.1”，“Command”和LTrim$（Str$（I）），True）
'设置其位置和大小
CMD按钮（I）。高度=20:CMD按钮（I）。宽度=100
CMD按钮（I）。左=5:CMD按钮（I）。顶部=（I*25）+5
CMD按钮（I）。Caption=“命令”&I
下一个I
'调整文本框周围表单的大小
我宽度=115
我高度=（（纽扣数+2）*25）
末端接头
'----剪-----剪-----剪-----剪-----剪----- 罗西，
谢谢你，我会试一试的！
干杯
col公司
页:
[1]