by Nadeem Gulzar Rana (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30th September 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Choose out your best color in RGB mode
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