Choose out your best color in RGB mode
Choose out your best color in RGB mode
Rate Choose out your best color in RGB mode
(1(1 Vote))
Timer1.Interval = 300
End Sub
Private Sub Command2_GotFocus()
Timer1.Interval = 0
Label1.Visible = False
End Sub
Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = True
End Sub
Private Sub HScroll1_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = "rgb(" & HScroll1.Value & "," & HScroll2.Value & "," & HScroll3.Value & ")"
End Sub
Private Sub HScroll2_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = "rgb(" & HScroll1.Value & "," & HScroll2.Value & "," & HScroll3.Value & ")"
End Sub
Private Sub HScroll3_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = "rgb(" & HScroll1.Value & "," & HScroll2.Value & "," & HScroll3.Value & ")"
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub
Private Sub VScroll1_Change()
Label1.ForeColor = RGB(VScroll1.Value, 0, VScroll2.Value)
End Sub
Private Sub VScroll2_Change()
Label1.ForeColor = RGB(VScroll1.Value, 0, VScroll2.Value)
End Sub
Choose out your best color in RGB mode Comments
No comments yet — be the first to post one!
Post a Comment