[RESOLVED] Changing the Background Colour

[wiz126]

The best way to do it is to use the "Microsoft Common Dialog Control"

Edit: I see MartinLiss Beat ME :\

[Argh two glass eyes]

Thank you very much works perfectly

[MartinLiss]

Thank you very much works perfectly

Just in case someone presses Cancel.

Private Sub Command1_Click()
 
Dim frm As Form
 
On Error GoTo ErrorRoutine
 
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
For Each frm In Forms
    frm.BackColor = CommonDialog1.Color
Next
 
Exit Sub
 
ErrorRoutine:
 
    If Err.Number = 32755 Then
        MsgBox "You pressed Cancel rather than selecting a color"
    End If
 
End Sub

[Argh two glass eyes]

Just in case someone presses Cancel.

Private Sub Command1_Click()
 
Dim frm As Form
 
CommonDialog1.ShowColor
For Each frm In Forms
    frm.BackColor = CommonDialog1.Color
Next
 
 
End Sub

Thanks but i'm now having the problem of it only changing the background colour of two forms. the one that i select the colour in and a main menu form

[MartinLiss]

It will only change the color of the currently loaded forms. If you want to change the color of forms loaded later, put the following in their Load subs.

Me.BackColor = Form1.CommonDialog1.Color