Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub SetFormDefaultColors(ByRef oForm As MSForms.UserForm)
- On Error GoTo ErrorHandler
- Dim oControl As MSForms.Control
- For Each oControl In oForm.Controls
- Select Case TypeName(oControl)
- Case "MultiPage":
- oControl.BackColor = CustomSettings.FORMS_BACKGROUND_COLOR
- Case "Frame", "Label", "RadioButton":
- oControl.BackColor = CustomSettings.FORMS_BACKGROUND_COLOR
- oControl.BorderColor = CustomSettings.FORMS_BORDER_COLOR
- oControl.ForeColor = CustomSettings.FORMS_FORE_COLOR
- Case "TextBox", "ComboBox":
- oControl.BorderColor = CustomSettings.FORMS_BORDER_COLOR
- Case "CheckBox", "OptionButton":
- oControl.ForeColor = CustomSettings.FORMS_FORE_COLOR
- End Select
- Next oControl
- oForm.BackColor = CustomSettings.FORMS_BACKGROUND_COLOR
- Exit Sub
- ErrorHandler:
- Call UI.ShowError("FormHelper.SetFormDefaultColors")
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement