你的意思是不是通过TEXT1中的数值来判断DATACOMBO控件要显示几组啊? For i = 0 To text1.Text datacombo1(i - 1).Visible = True datacombo2(i - 1).Visible = True datacombo3(i - 1).Visible = True Next i
for i=1 to 3 for j=1 to 3 load datacombo(i*10+j) next j next i 然后设置datacombo(i)得位置 datacombo(i).left= datacombo(i).top= . . .
if text1.text=1 then datacombo1.Visible = True elseif text1.text=2 then datacombo1.Visible = True datacombo2.Visible = True else datacombo1.Visible = True datacombo2.Visible = True datacombo3.Visible = True end if
bwldwb6的意思理解错了,wangyao811212但不知道j是啥,i*10+j什么意思?
加控件数组combo1(1),combo1(2),combo1(3) for i =1 to text1.text combo1(i).additem i next
For i = 0 To text1.Text
datacombo1(i - 1).Visible = True
datacombo2(i - 1).Visible = True
datacombo3(i - 1).Visible = True
Next i
for j=1 to 3
load datacombo(i*10+j)
next j
next i
然后设置datacombo(i)得位置
datacombo(i).left=
datacombo(i).top=
.
.
.
datacombo1.Visible = True
elseif text1.text=2 then
datacombo1.Visible = True
datacombo2.Visible = True
else
datacombo1.Visible = True
datacombo2.Visible = True
datacombo3.Visible = True
end if
for i =1 to text1.text
combo1(i).additem i
next