移除窗体中Frame内所有控件

chicken301

1. Dim ctr As Control
   
2. For Each ctr In Frame1.Controls
   
3.                 If TypeName(ctr) = "label" Then Frame1.Controls.Remove (ctr.Name)
   
4.             Next

复制代码

单击一个按钮时，我用上面的代码成功移除了窗体中Frame1内所有的label控件（只有几个label控件，没有其他控件），只是我不明白，谁能给我讲一下。而且我用下面的代码就提示错误，谁能讲一下呢。多谢了。

1. Frame1.Controls.Remove
   

复制代码

wj2368

Frame1.Controls.Remove (ctr.Name)
括号里要label的名称

chicken301

刚发现上面的代码也不对，哭了，如何移除frame内的所有控件呢，不是清除内容，而是移除。望高人解答

chicken301

1. For Each ctr In Me.Frame1.Controls      '这个可以实现移除frame1下面的所有控件
   
2. If ctr.Name Like "laab*" Then Me.Frame1.Controls.Remove ctr.Name
   
3. Next

复制代码

解决了，上面的代码可以实现移除frame1下面所有指定的控件（好像必须是运行时添加的控件），当然，需要提前对指定控件批量命名并在运行时添加，命名代码如下：

1. Dim mylabel As Control
   
2. For D = 3 To 10
   
3. Set mylabel = Frame1.Controls.Add("Forms.label.1", "laab" & D)
   
4. Next D

复制代码

FOB_FN_L

弄这个的目的是什么

chicken301

FOB_FN_L 发表于 2020-1-17 15:15
弄这个的目的是什么

学习代码啊