如何卸载动态生成的控件数组？

Question

hnwx,
如何先判断该控件数组是否存在，如果是再卸载？

Answer 1

Function check(nIndex) As Boolean
    
    On Error GoTo here
    
    控件数组名(nIndex).Tag = ""
    
    check = True
    Exit Function
here:
    check = FalseEnd Function
然后就可以用if check(1) then unload 控件数组(1)了

Answer 2

'判断数组控件是否存在
Private Function IsExist(ByVal ControlName As String, ByVal Index As Integer) As Boolean
    Dim c As Control
    
    For Each c In Controls
      If c.Name = ControlName Then
          If c.Index = Index Then
              IsExist = True
              Exit Function
          End If
      End If
    Next c
    IsExist = False
End Function'if isexist("label",i) then unload label(i)

Answer 3

我用
Set lblHbl = Controls.Add("VB.label", "lblhbl" & Trim(Str(i)))
生成了i个标签。我应该卸载lblHbl呢，还是分别卸载lblhbl0，lblhbl1...等？

Answer 4

我在过程中使用以下方式，动态产生控件
Set lblHbl = Controls.Add("VB.label", "lblhbl" & Trim(Str(0)))
我需要在其他过程中卸载该控件，如何实现?

Answer 5

Dim c As Control
    
    For Each c In Controls
      If left(c.Name,6) = "lblhbl" Then
         controls.remove c.name
      End If
    Next c