作者namejoshua (烨)
看板Visual_Basic
标题[VB6 ] 用timer画圆
时间Sun Dec 14 22:40:16 2008
我想试着用timer来一次跑一弧度
然後360秒後跑出一个圆(360个点)
程式码如下
Private Sub Timer1_Timer()
Form1.Scale (-15, 15)-(15, -15) <--这行只是想让圆心在form的中央
pai = 3.1415
Static a As Integer
a = a + 1
PSet (5 * Cos(a*pai/180), 5 * Sin(a*pai/180))
End Sub
可是跑出来的结果却只有第一个点出来= =?
可以请高手们帮我看看是哪里有问题吗~感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.104.34.95
1F：推 UniFish:要在程式最前面宣告a..你TIMER每执行一次..a就被重新宣告 12/14 23:29
2F：→ UniFish:a就每次都被设为0了 12/14 23:29
3F：→ namejoshua:喔喔~原来如此!!太感谢了^^ 12/14 23:44