Metallic Forms *updated*
Cut and Paste code... Turns your flat form into a metalic cylinder. Setting the AutoRedraw property is now done for you. Also thanks to Sebastjan for his tip about setting the ScaleMode to pixels.
Original Author: John Edward Colman
Code
Private Sub GradientFill()
Dim i As Long
Dim c As Integer
Dim r As Double
r = ScaleHeight / 3.142
'Hint: Multiplying r by differnt values give different effects (try 2.3)
For i = 0 To ScaleHeight
c = Abs(220 * Sin(i / r))
'Hint: Changing sin to cos reverses range
Me.Line (0, i)-(ScaleWidth, i), RGB(c, c, c + 30)
'Hint: Notice the bias to blue. You can be more subtle by reducing this number (try 10). Try other colours too.
Next
End Sub
Private Sub Form_Load()
Me.ScaleMode = 3
Me.AutoRedraw = True
End Sub
Private Sub Form_Resize()
GradientFill
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.