原始碼:http://down.gogobox.com.tw/t2329175/oq2m2
用了一些簡單的小技巧,發現不能用公式做。
原始碼:
用了一些簡單的小技巧,發現不能用公式做。
原始碼:
Dim x As Double, flag As Boolean
Private Sub Form_Activate()
DoEvents
Scale (-50, 50)-(50, -50)
For i = 0 To 1E+18 Step 0.05
Moon.Left = 35 * Cos(i) - 5
Moon.Top = 35 * Sin(i) + 3
Delay 0.05
Next
End Sub
Public Sub Delay(x As Single)
no = Timer
DoEvents
Do While no + x > Timer
DoEvents
Loop
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub
全站熱搜
留言列表