• Home
 · 
• Graphics
 · 
• Shade a form with gradient color using circles that move in a sinewave shape. No API, functions wit

Shade a form with gradient color using circles that move in a sinewave shape. No API, functions wit

Shade a form with gradient color using circles that move in a sinewave shape. No API, functions with all VB's. Pure code... cool :]

Rate Shade a form with gradient color using circles that move in a sinewave shape. No API, functions wit

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'** Shade a form with gradient color
'** using shapes that flow in a sinewave.
'**
'**
'** From:  revega  May 06, 2002
'------------------------------------------     
'
' Put this inside a command button or menu

freq = .01      'circle circumference
amp = .6        'sinewave shape
z% = 0          'pattern height [where to start drawing]
s% = 400        'sinewave shape
pi = 3.1415926

   For x = 1 To 40

For a% = 0 To (60000 * freq) Step 2

    form1.ForeColor = a%
    Circle (a% / freq, -(Sin(a% / 2) * amp * s%) + z%), a%

Next a%

             z% = z% + 200
             'uncomment one for nice FX ;]
             'freq=freq + .001
             'freq = freq + .0001


For a% = 0 To (60000 * freq) Step 2

    form1.ForeColor = a%
    Circle (a% / freq, -(Sin(a% / 2) * amp * s%) + z%), a%

Next a%

     Next x

'#$::::::::::__::::::__:::/¯¯\::::/\::$#
'::::'  '::::\ \::::/ /::/ /\_\::/  \:::
':::/___ ) / __/\::/\__ \\ \  __/ /\ \::
'::/    < / __/\ \/ /\__ \\ \_\ \ \/  \:
':/__/__)/___/::\  /::\___\\____ \  \ /:
'::::::::::::::::\/:::::::::::::\_\  /::
'$:::::::::::::::::::::::::::::::::\/::$
'$$$$    underground  facilities    $$$$
'5$$$$$$$$$$$$$$$$$$00$$$$$$$$$$$$$$$$$8