الرئيسية › 2002ASP › Metallic Forms *updated*
Advertisement
2002ASP Graphics #4187

Metallic Forms *updated*

John Edward Colman
★★★★★
4.8 · التحميلات: 2,341

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.

AI

ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

كود المصدر
original-source 
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
التعليقات الأصلية (3)
مسترجع من Wayback Machine