Question

怎样在VB中每隔一段时间画一个圆且半径渐渐增加,颜色不断变化

怎样在VB中每隔一段时间画一个圆且半径渐渐增加,颜色不断变化

Answer 1

Dim i As Integer, l As Integer
Dim r As Boolean
Private Sub Form_Load()
Form1.Scale (-200, 200)-(200, -200)
l = 1
i = 1
r = False
End Sub

Private Sub Timer1_Timer()
DoEvents
If r = False Then
Timer1.Interval = i
i = i + l
Form1.Cls
Form1.FillStyle = 0
Form1.FillColor = vbRed
Circle (0, 0), i, vbBlue
If i >= 200 Then
    r = True
End If
ElseIf r = True Then
    Timer1.Interval = i
    i = i - 1
    Form1.Cls
    Form1.FillStyle = 0
    Form1.FillColor = vbBlue
    Circle (0, 0), i, vbBlue
    If i <= 1 Then
         r = False
    End If
End If
End Sub