• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make a color pallete

Make a color pallete

Make a color pallete

API Declarations


'please note you will need 19 labels on the form and just make them small and give the white background color place them like a color pallete.start from label2 till label 19
and youll need a textbox to test the colors. thats it now lets start...



Rate Make a color pallete

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

step1
  on the form_load event write the following code::
Private Sub Form_Load()
Label2.BackColor = "&0000000"
Label3.BackColor = "&1111111"
Label4.BackColor = "&2222222"
Label5.BackColor = "&3333333"
Label6.BackColor = "&4444444"
Label7.BackColor = "&5555555"
Label8.BackColor = "&6666666"
Label9.BackColor = "&7777777"
Label10.BackColor = "&hccaacc"
Label11.BackColor = "&h900000"
Label12.BackColor = "&h666666"
Label13.BackColor = "&haaaaaa"
Label14.BackColor = "&haaccaa"
Label15.BackColor = "&hff0000"
Label16.BackColor = "&hddccdd"
Label17.BackColor = "&h333366"
Label18.BackColor = "&hff7777"
Label19.BackColor = "&h7777ff"
'now here these will fill the label boxes with different colors you will see when u the run the form'
End Sub
Step 2
now paste this code on the form as it is do not change anything
Private Sub Label10_Click()
Text1.ForeColor = Label10.BackColor

End Sub

Private Sub Label11_Click()
Text1.ForeColor = Label11.BackColor

End Sub

Private Sub Label12_Click()
Text1.ForeColor = Label12.BackColor

End Sub

Private Sub Label13_Click()
Text1.ForeColor = Label13.BackColor

End Sub

Private Sub Label14_Click()
Text1.ForeColor = Label14.BackColor

End Sub

Private Sub Label15_Click()
Text1.ForeColor = Label15.BackColor

End Sub

Private Sub Label16_Click()
Text1.ForeColor = Label16.BackColor

End Sub

Private Sub Label17_Click()
Text1.ForeColor = Label17.BackColor

End Sub

Private Sub Label18_Click()
Text1.ForeColor = Label18.BackColor

End Sub

Private Sub Label19_Click()
Text1.ForeColor = Label19.BackColor

End Sub

Private Sub Label2_Click()
Text1.ForeColor = Label2.BackColor
End Sub

Private Sub Label3_Click()
Text1.ForeColor = Label3.BackColor
End Sub

Private Sub Label4_Click()
Text1.ForeColor = Label4.BackColor

End Sub

Private Sub Label5_Click()
Text1.ForeColor = Label5.BackColor

End Sub

Private Sub Label6_Click()
Text1.ForeColor = Label6.BackColor

End Sub

Private Sub Label7_Click()
Text1.ForeColor = Label7.BackColor

End Sub

Private Sub Label8_Click()
Text1.ForeColor = Label8.BackColor

End Sub

Private Sub Label9_Click()
Text1.ForeColor = Label9.BackColor

End Sub

Thats it you can run your form and see your color pallete.

if you have anything to ask . You are free to ask me at [email protected]
if you want to look at my website
you can log on to www.geocities.com/murtaza_quaid/indexplug.htm
(Please the website is still in progress it is fully made on flash and but the links will not work only you can the first page.)

thats for now enjoy your color pallete.