Dim pi為Double
將運行時調暗為雙精度
將a調成單身,b調成單身
Dim cntX為Single,cntY為Single
將r標註為單個
私有WithEvents定時器1作為定時器
將tX調成單個,將tY調成單個
Dim單步執行
私有子窗體_Load()
我。ScaleMode = 3
我。AutoRedraw = True
pi = Atn(1)
設置定時器1 =控制。Add("vb.timer "," Timer1 ")
A =橢圓的50 '長軸
B = 30 '橢圓短軸
CntX = 100 '中心坐標x
CntY = 60 '中心坐標y
R = 10 '圓半徑
定時器1。間隔= 50 '運動間隔(毫秒)
TStep = pi/10 '角度步長
定時器1。啟用=真
末端接頭
私有子定時器1_Timer()
運行時間=運行時間+ 1
Dim Arg為Double
Arg = runTime * tStep
tX = cntX + a * Cos(Arg)
tY = cntY + b * Sin(Arg)
我。Cls
我。DrawStyle = 2
我。圓圈(cntX,cntY),a,,,b / a
我。DrawStyle = 0
我。圓形(tX,tY),r
末端接頭