今天早上开始学vb的小白求救

level 1

呀草1b 楼主

想绕一直线的端点作圆周运动
Private Sub Timer1_Timer()
Dim a As Double
Dim b As Integer
b = b + 5
a = b * 3.1415926 / 180
Line1.X2 = Line1.X1 + 500 * Cos(a)
Line1.Y2 = Line1.Y1 + 500 * Sin(a)
End Sub

怎么就不动呢？

2013年01月12日 12点01分 1

level 10

ztw1122

a 和 B申明为模块级变量

2013年01月13日 05点01分 3

level 11

WindCian

a b 放在事件Timer1_Timer的外面

2013年01月13日 19点01分 4