by lotsk8rs (5 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 22nd June 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb.
'drag 6 vertical sliders onto the screen in 2 rows (123,456) and put 2 shapes next to them
'then make a command button called command1 and type this code directly onto the page
Private Sub Command1_Click()
Form1.Cls
Dim x, y As Integer
Dim r2 As Integer
Dim b2 As Integer
Dim g2 As Integer
r2 = VScroll4.Value
g2 = VScroll5.Value
b2 = VScroll6.Value
Dim r As Integer
Dim b As Integer
Dim g As Integer
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Dim i As Integer
Dim redr, grer, blur As Integer
CurrentX = 10000
CurrentY = 0
ForeColor = RGB(r, g, b): x = CurrentX: y = CurrentY
For i = 1 To 255
While r > r2
r = r - 1
Print "__________________________________________________________________________"
ForeColor = RGB(r, g, b)
CurrentX = x: CurrentY = y
y = y + 10
Wend
While r < r2
r = r + 1
Print "__________________________________________________________________________"
ForeColor = RGB(r, g, b)
CurrentX = x: CurrentY = y
y = y + 10
Wend
While g > g2
g = g - 1
Print "__________________________________________________________________________"
ForeColor = RGB(r, g, b)
CurrentX = x: CurrentY = y
y = y + 10
Wend
While g < g2
g = g + 1
Print "__________________________________________________________________________"
ForeColor = RGB(r, g, b)
CurrentX = x: CurrentY = y
y = y + 10
Wend
While b > b2
b = b - 1
Print "__________________________________________________________________________"
ForeColor = RGB(r, g, b)
CurrentX = x: CurrentY = y
y = y + 10
Wend
While b < b2
b = b + 1
Print "__________________________________________________________________________"
ForeColor = RGB(r, g, b)
CurrentX = x: CurrentY = y
y = y + 10
Wend
Next
End Sub
Private Sub VScroll1_Change()
Dim r As Integer
Dim b As Integer
Dim g As Integer
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Label1.Caption = VScroll1.Value
Shape1.FillColor = RGB(r, g, b)
End Sub
Private Sub VScroll1_Scroll()
Call VScroll1_Change
End Sub
Private Sub VScroll2_Change()
Dim r As Integer
Dim b As Integer
Dim g As Integer
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Label2.Caption = VScroll2.Value
Shape1.FillColor = RGB(r, g, b)
End Sub
Private Sub VScroll2_Scroll()
Call VScroll2_Change
End Sub
Private Sub VScroll3_Change()
Dim r As Integer
Dim b As Integer
Dim g As Integer
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Label3.Caption = VScroll3.Value
Shape1.FillColor = RGB(r, g, b)
End Sub
Private Sub VScroll3_Scroll()
Call VScroll3_Change
End Sub
Private Sub VScroll4_Change()
Dim r2 As Integer
Dim b2 As Integer
Dim g2 As Integer
r2 = VScroll4.Value
g2 = VScroll5.Value
b2 = VScroll6.Value
Label4.Caption = VScroll4.Value
Shape2.FillColor = RGB(r2, g2, b2)
End Sub
Private Sub VScroll4_Scroll()
Call VScroll4_Change
End Sub
Private Sub VScroll5_Change()
Dim r2 As Integer
Dim b2 As Integer
Dim g2 As Integer
r2 = VScroll4.Value
g2 = VScroll5.Value
b2 = VScroll6.Value
Label5.Caption = VScroll5.Value
Shape2.FillColor = RGB(r2, g2, b2)
End Sub
Private Sub VScroll5_Scroll()
Call VScroll5_Change
End Sub
Private Sub VScroll6_Change()
Dim r2 As Integer
Dim b2 As Integer
Dim g2 As Integer
r2 = VScroll4.Value
g2 = VScroll5.Value
b2 = VScroll6.Value
Label6.Caption = VScroll6.Value
Shape2.FillColor = RGB(r2, g2, b2)
End Sub
Private Sub VScroll6_Scroll()
Call VScroll6_Change
End Sub
No comments have been posted about Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb.. Why not be the first to post a comment about Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb..