• Home
 · 
• Graphics
 · 
• Metallic Formsupdated

Metallic Formsupdated

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.

Rate Metallic Formsupdated

• 1
• 2
• 3
• 4
• 5

(10(10 Vote))

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