• Home
 · 
• Miscellaneous
 · 
• Colour picker - this program allows you to select an RGB colour value using scrollbars, it also sho

Colour picker - this program allows you to select an RGB colour value using scrollbars, it also sho

Colour picker - this program allows you to select an RGB colour value using scrollbars, it also shows how you use procedures, it also contains

Rate Colour picker - this program allows you to select an RGB colour value using scrollbars, it also sho

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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