Question

VB 如何动态删除label

比如添加一个任意label控件，设计一段程序删除它，再添加一个textbox控件进行选择性的删除（在textbox中输入label名称，就可以删除当前label)
我是说假如有3个label控件，我想删除一个，动态删除就是在界面上的textbox中输入label的名字就可以把这个控件删除，不是单单在程序上删除一个，而是这几个想删哪个就删哪个，删除是时不用改程序的那种，在界面上输入一个数据就可以完成删除的，大家继续帮忙，满意就给分了，在线等

执行不了，说未找到方法或数据成员？？？？？？

可以执行了，但它只能删除第一个label,第二个就不能删除了。还有就是删除后，永久删除怎么弄，谢谢

又OK一项，现在就差永久删除了，解决了就给分

别的都解决了，可以执行，现在就是删除了没永久删除，再打开程序还有

那有什么办法可以实现呢，详细点要源码，加分

Answer 1

label控件可以显示可以不显示，你可以设置它的visible属性，让他隐藏不就可了，也可以让他的caption属性为“”（空）

如果非要删除这个空间
那就只能定义控件对象了 dim labelA as label
set labelA =new label
然后再对labelA做操作

Answer 2

参考
http://hi.baidu.com/lvyang/blog/item/2c68e9f874e26a0cd9f9fdba.html

虽然不用index 但用了集合

Answer 3

有很多label的，不现实，不是一个

Answer 4

VB6用户可以输入以下代码：
(我们先设textbox的名称是text1，三个Label的名称统一为Label，设置Index，Index从1开始。)

Private Sub text1_change()
Dim i As Integer
Dim t As String
t = Text1.Text '随时获取text1的文本
i = 1
For i = 1 To 3
If t = Label(i).Name & Label(i).Index Then
Label(i).Visible = False
End If
If t = "ReDoAll" Then '实现撤消所有删除功能
Label(i).Visible = True
End If
Next
End Sub