VB 给多个text连续赋值

来源：百度知道 编辑：UC知道 时间：2024/05/31 11:12:00
我建了72个text，用一个combo的click命令给text1到text72连续赋值，也就是说在combo的下拉栏中单击一个值然后将它赋给没赋值的最靠前的text。能不能用for命令来执行循环？

定不定义数组都行，定义会方便一些。
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

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

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

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