WAP in which by moving the horizontal scroll bar the color of the font ranges and each of three horizontal scroll bar represents red, blue, green colors by using RGB built in function.
____________________________________________________________________
Private Sub Command1_Click()
'Text1.BackColor = 255
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Text1.Enabled = False
HScroll1.Max = 255
HScroll1.Min = 0
HScroll1.SmallChange = 1
HScroll1.LargeChange = 2
HScroll1.Value = 255
HScroll2.Max = 255
HScroll2.Min = 0
HScroll2.SmallChange = 1
HScroll2.LargeChange = 2
HScroll2.Value = 0
HScroll3.Max = 255
HScroll3.Min = 0
HScroll3.Value = 0
HScroll3.SmallChange = 1
HScroll3.LargeChange = 2
End Sub
Private Sub HScroll1_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
__________________________________________________________
OUTPUT
__________________________________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment