Option Explicit
Dim Radius, R, G, B, XPos, YPos, i, j, k, s1, s2, s3, w As Integer
Dim l As Long
Dim d As Boolean

Private Sub Form_Click()
Unload Form1

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Form1
End Sub

Private Sub Form_Load()
Form1.DrawWidth = 1
Radius = 1
w = 20
d = True
R = 10
G = 200
B = 90
s1 = 1
s2 = 2
s3 = 3
i = -1
j = 1
k = 1

End Sub

Private Sub Timer1_Timer()
If R + i * s1 > 255 Then
  R = 510 - R - s1 * i
  i = -1
ElseIf R + s1 * i < 0 Then
  R = -R - s1 * i
  i = 1
Else
  R = R + i * s1
End If

If G + j * s2 > 255 Then
  G = 510 - R - s1 * j
  j = -1
ElseIf G + s2 * j < 0 Then
  G = -G - s2 * j
  j = 1
Else
  G = G + j * s1
End If

If B + k * s3 > 255 Then
  B = 510 - R - s3 * k
  k = -1
ElseIf B + s3 * i < 0 Then
  B = -B - s3 * i
  k = 1
Else
  B = B + k * s3
End If

XPos = Form1.ScaleWidth / 2
YPos = Form1.ScaleHeight / 2

l = Sqr(CLng(YPos) * CLng(YPos) + CLng(XPos) * CLng(XPos))

If Radius <= l Then
  d = True
End If
If Radius > l Then
 d = False
End If

Circle (XPos, YPos), Radius, RGB(R, G, B)

If d Then
 Radius = Radius + w
 
Else
 Radius = Radius - w
 
End If

End Sub

发表于 @ 2005年03月02日　15:54:00 | 评论( loading... ) | 编辑| 举报| 收藏

新一篇:程序员之路