一个有关动态添加控件，如何引用的问题？

Question

在一个框架空间里  放置两个按钮  一个增加  一个删除
连续点击增加按钮  则按行增加文本框控件，每次增加一行
连续点击删除按钮  则按行删除文本框控件，每次删除一行目前通过Me.Frame1.Controls.Add("Forms.label.1", "xz1" & CStr(i))已经可以添加控件，为新控件起名xz11、xz12、xz13……这样的名字，i是通过count查询得出的控件数目数值。想请教的是  
1、如何引用这些文本框，似乎不能
xz11.text。那如何使用这些新增的文本框呢？2、使用集合的remove方法似乎不支持remove "xz1" & CStr(i)这样做，得给出具体的名字，为每一个控件单独删除？怎么办呢？希望能有高手关注一下……

Answer 1

设计时加个控件数组 text1() text1(0).visible=fasle ，加载就 load text1(i) ,卸载unload text1(i),引用也一样

Answer 2

因为用的是VBA，不支持控件数组吧……
难道add添加的控件  就clear。remove。item方法吗？

Answer 3

你加的到底是什么？***********************************************
Me.Frame1.Controls.Add("Forms.label.1", "xz1" & CStr(i))1、如何引用这些文本框，似乎不能
xz11.text。那如何使用这些新增的文本框呢？
*****************************************
相互矛盾

Answer 4

这样使用
Me.Frame1.Controls.Add("Forms.label.1", "xz1" & CStr(i))
Me.Frame1.Controls("xz1" & CStr(i)).caption="haha" & CStr(i)

Answer 5

似乎不能用Me.Frame1.Controls.remove("xz1" & CStr(i))  这种写法吧？？报错“无效参数”
连删除都不支持变量控件名……

Answer 6

Me.Frame1.Controls.remove "xz1" & CStr(i) 

Answer 7

我是在CAD vba里设计的这么个东西  
这种写法也不对  报错“无效参数”
Me.Frame1.Controls.remove "xz11" 
Me.Frame1.Controls.remove "xz12" 
Me.Frame1.Controls.remove "xz13" 这样才可以……

Answer 8

cad 里我没有测试，excel里没有问题变通一下
dim strName as stringfor i= 1 to 5
    strName="xz1" & CStr(i) 
    Me.Frame1.Controls.remove strName
next i

Answer 9

这个方法我也想过  也是不行  我是在cad2006里做的
总之给我的感觉是  完全不支持变量控件名   但是支持*号，比如可以一次删除xz1*……

Answer 10

try
**********************************************
dim strName as stringfor i= 1 to 5
  strName=chr(34) & "xz1" & CStr(i) & chr(34)  
  Me.Frame1.Controls.remove strName
next i

Answer 11

又试了试  ，支持变量控件名，并且实现了一次只删除一个控件，如下：
Dim k As Integer
k = Me.Frame1.Controls.CountDim strName As StringFor i = k - 1 To k - 1strName = "xz1" & CStr(i)
Me.Frame1.Controls.Remove strName
接下来的问题就是重点了：大家使用add添加的控件，难道不关心它的引用吗？比如我动态添加了个文本框，能像设计时添加的一样使用.text属性吗？  我定义的时候加了WithEvents。