在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/16 17:28:07
在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度

在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度
在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度

在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度
Option Explicit
Private i As Integer
Private Sub Form_Load()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If i < 360 Then
Dim pi
pi = 3.14159265
Me.ScaleMode = 3
Show
Me.Circle (100,100),100,,-2 * pi,(2 * (i + 1) / 360) * pi
i = i + 1
Else
Me.Timer1.Enabled = False
End If
End Sub