Question

VB 给多个text连续赋值

我建了72个text，用一个combo的click命令给text1到text72连续赋值，也就是说在combo的下拉栏中单击一个值然后将它赋给没赋值的最靠前的text。能不能用for命令来执行循环？

Answer 1

定不定义数组都行，定义会方便一些。
private sub combo1_click()
如果是数组
for i = text1.lbound to text1.ubound
if text1(i).text ="" then text1(i).text = combo1.text:exit for
next
如果不是数组
for i = 1 to 72
if me("text" & i).text = "" then me("text" & i).text = combo1.text:exit for
next

end sub

Answer 2

可以，你将text1变成控件数组，然后依次赋值

如 text1(0),text1(1),text1(2).....text1(71)
for i=0 to 71
....... '中间自己写
next

Answer 3

如果你的text是定义成控件数组的话应该就可以.