DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Add color palette to form

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jul 2007

Posts: 192

Reputation: plusplus is an unknown quantity at this point

Solved Threads: 16

plusplus

Offline

Junior Poster

Add color palette to form

Aug 13th, 2007

I'd like to add a color palette to my form, so that the user can choose a color. How can I add such a palette to my form(with all the colors vb offers)?

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Online

Practically a Posting Shark

Re: Add color palette to form

Aug 13th, 2007

Hi,
Add this Control to ur ToolBox:
"Microsoft Commom Dialog Control 6.0" to ur Project. Place the Control on the Form and rename it as "cdlg"
and use this Code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
    Dim mycol
    cdlg.ShowColor
    mycol = cdlg.Color
    Me.BackColor = mycol
End Sub
Private Sub Command1_Click()
    Dim mycol
    cdlg.ShowColor
    mycol = cdlg.Color
    Me.BackColor = mycol
End Sub

Regards
Veena

•

Join Date: Jul 2007

Posts: 192

Reputation: plusplus is an unknown quantity at this point

Solved Threads: 16

plusplus

Offline

Junior Poster

Re: Add color palette to form

Aug 13th, 2007

Two questions
1. I'd like to also add the system colors
2. How to move the palette to a certain place on the screen?

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Online

Practically a Posting Shark

Re: Add color palette to form

Aug 15th, 2007

Hi,

U cannot Control the position of CommonDialog control. But there is an alternative, Place the common Dialog on a New Form, and Move the Form to Desired position on Screen and Show the Form.

Some thing like this : Add a Form And Rename it as frmColor:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 Dim frmColor As New frmColor
 frmColor.Move 200,500
 frmColor.cdlg.ShowColor
 Dim frmColor As New frmColor
 frmColor.Move 200,500
 frmColor.cdlg.ShowColor