• Home
 · 
• Graphics
 · 
• Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb.

Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb.

Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb.

Rate Draws gradient from ANY COLOR to ANY OTHER COLOR. Uses slider bars to set rgb.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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