'其实不连贯是没问题的,只要及时的将不用的控件 Unload,不占内存即可! '以下代码实现 Debug.Print 没有 unload 的控件:Dim TextX As TextBox For Each TextX In Text1 Debug.Print TextX.Index Next TextX控件数组的load , unload http://www.csdn.net/expert/topic/141/141828.shtm 控件数组问题!快来看看 http://www.csdn.net/expert/topic/116/116854.shtm End Sub End Sub
用一个循环遍历一下数组如果发现有空洞,就用数组的下一个元素来填充
For i = 1 To 个数
Load 控件名(i)
比如,
定义了一个text1数组,分别为text1(0),text1(1),text1(2),text1(3),text1(4),text1(5),
现在,
用unload text1(3),将text1(3)删掉,则剩下text1(0),text1(1),text1(2),text1(4),text1(5),我现在要求他们变成text1(0),text1(1),text1(2),text1(3),text1(4),即把以前的text1(4)的index重新设置成3,即成为text1(3),把以前的text1(5)的index重新设置成4,即成为text1(4),这样数组的index又连贯起来。如何实现。
用type定义吧,再做一个循环,下次检测没有text1(3),load text1(3),不要继续load text1(5)
我想把text1(5)整体付给text1(4),
如何写?
'以下代码实现 Debug.Print 没有 unload 的控件:Dim TextX As TextBox
For Each TextX In Text1
Debug.Print TextX.Index
Next TextX控件数组的load , unload
http://www.csdn.net/expert/topic/141/141828.shtm
控件数组问题!快来看看
http://www.csdn.net/expert/topic/116/116854.shtm
End Sub
End Sub