实际测试,下面代码,执行正常
For Each frm As WinForm.Form In Forms
If frm.Opened AndAlso frm.Name.StartsWith("tingKao") = True Then
frm.Close()
End If
Next
能将上面代码,改成遍历label控件么?
希望遍历,使用代码RemoveControl(name)动态删除控件
论坛上搜索,找到一部分参考,加上帮助,下述代码实现了
'遍历窗口控件,将不必要的,都删除
For Each c As Winform.Control In Forms("chaKan").Controls
If c.Name.StartsWith("chaKanLe") Then
Forms("chaKan").RemoveControl(c.Name)
End If
Next