VB 如何动态删除label

2025-05-14 02:27:10

推荐回答（4个）

回答1：

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

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

回答2：

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

虽然不用index 但用了集合

回答3：

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

回答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