将多个文本框添加到

comcu · 发表于 2022-7-6 17:27:22

你好

我希望有人能帮忙。

我试图在表单中添加一个命令按钮。按下此按钮时，将显示无限数量（有理由）的文本框，称为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公司

rocheey · 发表于 2022-7-6 17:59:13

在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）

末端接头

'----剪-----剪-----剪-----剪-----剪-----

comcu · 发表于 2022-7-6 18:47:26

罗西，

谢谢你，我会试一试的！

干杯

col公司

[编程交流] 将多个文本框添加到

发表回复

精选推荐