by Ryj (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 26th May 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Colour picker - this program allows you to select an RGB colour value using scrollbars, it also shows how you use procedures, it also contains
R = HScroll1.Value
G = HScroll2.Value
B = HScroll3.Value
Me.BackColor = RGB(R, G, B)
End Sub
Private Sub Command1_Click()
Dim s As Integer
s = MsgBox("Do you wish to exit", vbYesNo, "Exit?")
If s = vbYes Then End
End Sub
Private Sub Form_Load()
WindowState = 2
End Sub
Private Sub HScroll1_Change()
Call colour
End Sub
Private Sub HScroll2_Change()
Call colour
End Sub
Private Sub HScroll3_Change()
Call colour
End Sub
Private Sub Timer1_Timer()
Call colour
R = HScroll1.Value
G = HScroll2.Value
B = HScroll3.Value
HR = Hex(R)
HG = Hex(G)
HB = Hex(B)
If Val(R) < 16 Then HR = "0" & HR
If Val(G) < 16 Then HG = "0" & HG
If Val(B) < 16 Then HB = "0" & HB
Me.Caption = "Colour Picker " & "(" & "#" & HR & HG & HB & ")"
End Sub
No comments have been posted about Colour picker - this program allows you to select an RGB colour value using scrollbars, it also sho. Why not be the first to post a comment about Colour picker - this program allows you to select an RGB colour value using scrollbars, it also sho.