-
I only have two colors I want to use for my interface but instead of doing what I've done below is there another way to consolidate this? I can't find in my books or on the web how to make my BackColor/ForeColor coding easier? I'm sure there's something out there. Any help? :)
Just a part of my code to color the interface:
Private Sub Form_Load()
frmTitle.BackColor = RGB(255, 204, 153)
cmdHPU.BackColor = RGB(255, 204, 153)
cmdManoa.BackColor = RGB(255, 204, 153)
cmdKCC.BackColor = RGB(255, 204, 153)
Line1.BorderColor = RGB(153, 102, 0)
lblCynde.BackColor = RGB(255, 204, 153)
lblCynde.ForeColor = RGB(153, 102, 0)
chkSlogan.BackColor = RGB(255, 204, 153)
chkSlogan.ForeColor = RGB(153, 102, 0)
chkLogo.BackColor = RGB(255, 204, 153)
chkLogo.ForeColor = RGB(153, 102, 0)
chkProgName.BackColor = RGB(255, 204, 153)
chkProgName.ForeColor = RGB(153, 102, 0)
lblBakery.BackColor = RGB(255, 204, 153)
lblBranchinfo.BackColor = RGB(255, 204, 153)
lblBranchinfo.ForeColor = RGB(153, 102, 0)
lblVarsity.BackColor = RGB(255, 204, 153)
lblSlogan.BackColor = RGB(255, 204, 153)
lblSlogan.ForeColor = RGB(153, 102, 0)
lblHours.BackColor = RGB(255, 204, 153)
lblHours.ForeColor = RGB(153, 102, 0)
Label1.ForeColor = RGB(153, 102, 0)
Label1.BackColor = RGB(255, 204, 153)
-
Use a For Each Loop and the Controls Collection....
Code:
Private Sub Form_Load()
On Error Resume Next
Dim lBC As Long
Dim lFC As Long
Dim Ctl As Control
lBC = RGB(255, 204, 153)
lFC = RGB(153, 102, 0)
frmTitle.BackColor = lBC
For Each Ctl In Me.Controls
Ctl.ForeColor = lFC
Ctl.BackColor = lBC
Next Ctl
End Sub
and if you have multiple forms....
Code:
Private Sub Form_Load()
On Error Resume Next
Dim lBC As Long
Dim lFC As Long
Dim Ctl As Control
Dim Frm as Form
lBC = RGB(255, 204, 153)
lFC = RGB(153, 102, 0)
frmTitle.BackColor = lBC
For Each Frm in Forms
Frm.BackColor = lBC
Frm.ForeColor = lFC
For Each Ctl In Frm.Controls
Ctl.ForeColor = lFC
Ctl.BackColor = lBC
Next Ctl
Next Frm
End Sub
-
Thanks, YoungBuck, I knew there was a simpler way to do it. :)
