删除控件数组

Question

我怎样才能建控件数组，再删了，再建。
也就是说，单击了command1，再单击command2，在单击command1。
Private Sub Command1_Click()
Dim i As IntegerFor i = 1 To 7
    Load Text1(i)
    Text1(i).Top = Text1(i - 1).Top + 800
    Text1(i).Visible = True
Next i
End SubPrivate Sub Command2_Click()For i = 1 To 7
Unload Text1(i)
Next iEnd Sub

Answer 1

Dim i As IntegerPrivate Sub Command1_Click()For i = 1 To 7
    Load Text1(i)
    Text1(i).Top = Text1(i - 1).Top + 800
    Text1(i).Visible = True
Next i
End SubPrivate Sub Command2_Click()
For i = 7 To 1 Step -1
Unload Text1(i)
Next iEnd Sub

Answer 2

楼主的代码没问题呀.
只是在Command2_Click没有定义i

Answer 3

你首先要在窗口上画一个text1控件,将它的index属性设为0就可以执行你的程序了.

Answer 4

设置 Text1控件索引为0

Answer 5

正解:
你首先要在窗口上画一个text1控件,将它的index属性设为0就可以执行你的程序了.我来晚了!
--------------------------------------------------------------------
我是一棵无人知道的小草！
欢迎你访问http://lgxyslldw.512j.com
下载试用lgxgrid控件。

Answer 6

你先要将TEXT1的INDEX属性设置为0,这样才能用LOAD命令创建控件数组,用UNLOAD命令只能删除你创建的控件.