怎么遍历窗体内所有字控件
2个回答
2017-05-08
展开全部
下面这个函数传入值为父控件,在递归过程中,把子控件的背景颜色设置为和父控件一致。
Private Sub GetChildCtrl(ParentCtrl As Control)
For Each ctrlC As Control In ParentCtrl.Controls
'设置颜色
ctrlC.BackColor = ParentCtrl.BackColor
'递归
If ctrlC.HasChildren Then GetChildCtrl(ctrlC)
Next
End Sub
Private Sub GetChildCtrl(ParentCtrl As Control)
For Each ctrlC As Control In ParentCtrl.Controls
'设置颜色
ctrlC.BackColor = ParentCtrl.BackColor
'递归
If ctrlC.HasChildren Then GetChildCtrl(ctrlC)
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询