by king (24 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 1st July 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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...
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.