Question

怎样在vb里使像片（picture）按照指定的轨迹运动，比如按照圆形轨迹运动，求指点？？？

Answer 1

一个picture1,一个timer1.
代码如下：圆形轨迹
Dim angle As Double
Const PI = 3.1415926

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
angle = angle + PI / 90
Picture1.Left = 500 * Cos(angle) + Me.ScaleWidth / 2
Picture1.Top = 500 * Sin(angle) + Me.ScaleHeight / 2
End Sub

追问

谢谢。还有我想问一下能不能用picture.move的方法来移动？？？