人道主义精神:VB中如何控制MDI中所有子窗体的颜色

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 12:36:53

写个函数就好了
在每个子窗体都Init_FrmBack Me调用
Public Sub Init_FrmBack(Frm As Form, Optional BackColor As Long = 颜色代码)
'声明控件类型的变量
Dim c As Control
'将传入参数的颜色设置为自身的背景色
Frm.BackColor = BackColor
'初始化窗体内控件
For Each c In Frm.Controls
'初始化控件类型
If (TypeName(c) = "Label" 还可加上自己窗体内的控件类型) Then
'设置控件背景色
c.BackColor = Frm.BackColor
End If
next
End Sub