• Home
 · 
• Miscellaneous
 · 
• Code provides exclusive color combinations through scrolling by the user , he/she can use the scrol

Code provides exclusive color combinations through scrolling by the user , he/she can use the scrol

Code provides exclusive color combinations through scrolling by the user , he/she can use the scroll bar as they want to generate colors

API Declarations


3 labels namely red blue & green
and a command button control to close the form
name hscroll bars as identical to labels as colors



Rate Code provides exclusive color combinations through scrolling by the user , he/she can use the scrol

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End
End Sub

Private Sub hsbblue_Change()
docolor 'call a general procedure docolor'
End Sub

Private Sub hsbblue_Scroll()
docolor 'call the hsbblue_change procedure'
End Sub

Private Sub hsbgreen_Change()
docolor 'call a general procedure docolor'
End Sub

Private Sub hsbgreen_Scroll()
hsbgreen_Change 'call the hsbgreen_change procedure'

End Sub

Private Sub hsbred_Change()
docolor 'call a general procedure docolor'
End Sub

Private Sub hsbred_Scroll()
hsbred_Change 'call the hsbred_change procedure'

End Sub

Public Sub docolor()
Frmcolors.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub