Question

我有8个标签＆amp;文本框name :Label21, Label22 .. Labe28.Textboxes as Txt21, Txt22 .. Txt28.

由于某些原因，标签＆amp;文本框名称无法更改。出于某些有效原因，For loop（ - 7到0）的值无法更改。

我想更改标签的标题，以便标题更改为Label21 = whatever1，Label22 = whatever2。

我想添加一个固定长度为8的数组，并将值动态添加到该数组并在另一个循环中打印，但不确定如何循环使用负值。

我的尝试如下。

For i = -7 To 0
     Me("Label" & i).Caption = "whatever"&i
     Me("Txt" & i).Caption = "whatever"&i
Next i

如果我在当前For循环中再添加一个For循环，它将无法满足需要，不确定我是否应该在某处退出For循环。

  For i = -7 To 0
        For j = 21 To 28
          Me("Label" & j).Caption = "whatever"&i
          Me("Txt" & j).Caption = "whatever"&i
        Next J 
Next i

Answer 1

这样的事情：

Dim counter As Integer
counter = 21
For i = -7 To 0
     Controls("Label" & counter).Caption = "whatever" & i
     Controls("Txt" & counter).Caption = "whatever" & i
     counter = counter + 1
Next i

Ms Ms将动态标题分配给标签和文本字段

1 个答案: